Delphi StringGrid控件 组件名称:StringGrid         ●固定行及固定列:  StringGrid.FixedCols:=固定行之数;  StringGrid.FixedRows:=固定列之数;  StringGrid. FixedColor:=固定行列之颜色;  StringGrid.Color:=资料区之颜色;  ●资料行列之宽高度:  StringGrid.DefaultColWidth:=内定全部之宽度;  StringGrid.DefaultRowHei

Delphi xe8 FMX StringGrid根据内容自适应列宽. 网上的资料比较复杂,而且不是根据字体字号等设置列宽.故自己写了个function来用. function GetColMaxDataLength(ASGrid: TStringGrid): TObject;var  MaxColLength,                  //列数据的最大长度  CellLength: Single;            //单元格长度  ACol,ARow: Integer;begi

{------------------------------------------------------------------------------- 过程名:    MakeFileList 遍历文件夹及子文件夹 参数:      Path,FileExt:string   1.需要遍历的目录 2.要遍历的文件扩展名 返回值:    TStringList   USE StrUtils      Eg:ListBox1.Items:= MakeFileList( 'E:\极品飞车',

unit Unit5; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Generics.Collections; type TForm5 = class(TForm) Memo1: TMemo; Button1: TButton; Button2: TButton; procedure Button1Click(Sender:

网页代码:<SELECT id=fy onchange=TouchRefresh(1) name=fy> <OPTION selected value=15>每頁顯示15筆</OPTION> <OPTION value=30>每頁顯示30筆</OPTION> <OPTION value=60>每頁顯示60筆</OPTION></SELECT> 1.webbrowser执行网页中的JS函数 如果要执行TouchR

/// <remarks> /// 遍历文件夹 (引用SysUtils单元) /// </remarks> procedure TfrmMusicMenu.SearchInDir(sDirectory: string); var pSearchRec: TSearchRec; // TSearchRec是delphi为我们定义好的一个记录类型. // 用于记录文件的各个参数,比如大小,属性,文件名等等: sPath, sFile: string; begin try // 检查目录

Delphi StringGrid常用属性和常用操作 StringGrid组件用于建立显示字符串的网格,与电子表格相似.它可使表格中的字符串和相关对象操作简单化.StringGrid组件提供了许多可控制网格外观念的属性,以及利用表格的结构响应用户操作的事件和方法.StringGrid具有关联对象与网格中的每个字符串的作用,这些对象为用户封装了字符串表示的信息或行为. 一.Delphi StringGrid控件的属性及使用说明 1.固定行及固定列: (没有固定行列的时候,不能在运行时调节各个单元格

Delphi遍历文件夹及子文件夹 {-------------------------------------------------------------------------------过程名:    MakeFileList 遍历文件夹及子文件夹作者:      SWGWEB日期:      2007.11.25参数:      Path,FileExt:string   1.需要遍历的目录 2.要遍历的文件扩展名返回值:    TStringList Eg:ListBox1.Item

http://blog.csdn.net/easyboot/article/details/8004954 Delphi 遍历类中的属性 标签: delphistringbuttonclassformswindows 2012-09-21 16:45 2125人阅读 评论(1) 收藏 举报  分类: Delphi(54)  版权声明:本文为博主原创文章,未经博主允许不得转载. unit Unit1; interface uses Windows, Messages, SysUtils, Vari

delphi如何按照控件的左右顺序来遍历窗体中的每个控件delphi默认是按照控件添加进窗体的顺序来遍历的,有没有哪个属性能控制这个/?? 更多0分享到:   对我有用[0] 丢个板砖[0] 引用 | 举报| 管理 回复次数:13 关注 case5166 我看见佛 本版等级:   #1 得分:10回复于: 2012-03-11 13:42:18 没有的, Delphi/Pascal code   ? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

StringGrid组件用于建立显示字符串的网格,与电子表格相似.它可使表格中的字符串和相关对象操作简单化.StringGrid组件提供了许多可控制网格外观念的属性,以及利用表格的结构响应用户操作的事件和方法.StringGrid具有关联对象与网格中的每个字符串的作用,这些对象为用户封装了字符串表示的信息或行为. 一.Delphi StringGrid控件的属性及使用说明 1.固定行及固定列:  (没有固定行列的时候,不能在运行时调节各个单元格的宽度和高度) StringGrid.FixedCo

用我的方法来控制其他程序窗体上的窗口控件,必须先了解什么是 回调函数.我的理解是这样的: 回 调函数写出来不是自己的程序去调用的,反而是让其他的东西去调用,比如windows操作系统,比如其他的程序等等之类的.但是什么时候被调用却不知道 了.回调函数一般是按照调用者的要求定义好参数和返回值的类型,你向调用者提供你的回调函数的入口地址,然后调用者有什么事件发生的时候就可以随时按照你 提供的地址调用这个函数通知你,并按照预先规定好的形式传递参数.所以很多人打比方,说回调函数还真有点像您随身带的BP机

TTreeView组件遍历磁盘目录 实例说明 TTreeView组件是一个以分枝结构或者说树状结构显示数据的组件,以该组件显示数据具有较好的等级关系和逻辑层次,并且易于操作.在组件中显示的数据结构与系统中目录的结构非常相似,所以本例使用该组件设计一个磁盘目录查看工具.运行本例,在窗口右边选择目录或路径就可以在TTreeView组件中列出所有选择目录中的子目录和文件.实例运行效果如图1所示. 图1  TTreeView组件遍历磁盘目录 思路与技术 磁盘中的目录结构就像TTreeView组件中显示的

遍历指定目录下指定类型文件的函数// ================================================================// 遍历某个文件夹下某种文件,// 使用说明//  _GetFileList(ListBox1.Items,'c:\*.doc');// _GetFileList(MyTStringList,'c:\*.exe');// =====================================================

本博客的Delphi代码使用的版本均为DelphiXE10.x 1.1 .枚举进程 通过进程名称获取指定的进程ID,代码很详细,不再赘述 unit Uuitls; interface uses TlHelp32, Winapi.Windows; function GetPidByProName(proname: string): DWORD; implementation function GetPidByProName(proname: string): DWORD; var hwd: THa

这个DEMO注意是用来看一个DLL所拥有的全部服务接口 演示效果如下 代码如下: unit Frm_Main; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, QPlugins, QPlugins_base, QPlug

unit untFixForm; interface uses Classes, SysUtils, Controls, Forms; type TFontedControl = class(TControl) public property Font; end; TFontMapping = record SWidth:Integer; SHeight:Integer; FName:string; FSize:Integer; end; procedure FixForm(AForm:TFor

function ListFiles(path: string): TStringList; var SearchRec: TSearchRec; found: integer; begin result := TStringList.Create; found := FindFirst(path + '\' + '*.*', faAnyFile, SearchRec); if not DirectoryExists(path) then begin Result.Clear; exit; en

一个常见的编程任务是枚举所有运行的"应用程序".Windows 任务管理器就是一个很好的例子.它用两种方式列出"应用程序".任务管理器的第一个选项卡列出桌面上的所有"应用程序窗口".第二个选项卡列出系统中的所有"进程".本文提供了如何执行这些任务的详细信息. 枚举顶层窗口如果将枚举进程与枚举桌面上的顶层窗口进行比较,那么枚举顶层窗口可能更容易一些.要枚举顶层窗口,请使用 EnumWindows() 函数.不要使用 GetWin

//参考如下代码--uses Clipbrd; function StringGridSelectText(mStringGrid: TStringGrid): string;var  I, J: Integer;  S: string;begin  Result := '';  if not Assigned(mStringGrid) then Exit;  for J := mStringGrid.Selection.Top to mStringGrid.Selection.Bottom d