Delphi遍历Panel组件上的所有控件
procedure frmMain.CLS; //主窗体自定义事件CLS
var i:integer;
begin
for i:=0 to panel5.ControlCount -1 do
begin
if panel5.Controls[i] is TEdit then //Edit组件
begin
((panel5.Controls[i]) as TEdit).Text:='';
((panel5.Controls[i]) as TEdit).Enabled:=true;
end else if panel5.Controls[i] is TComboBox then //ComboBox组件
begin
((panel5.Controls[i]) as TComboBox).Text:='';
((panel5.Controls[i]) as TComboBox).Enabled:=true;
end else if panel5.Controls[i] is TDateTimePicker then //DateTimePicker组件
begin
((panel5.Controls[i]) as TDateTimePicker).Enabled:=true;
((panel5.Controls[i]) as TDateTimePicker).DateTime:=now();
end;
end;
end;
这个过程主要是清空panel5组件Edit、ComboBox组件Text内容、把DateTimePicker组件日期设为当前日期，并使panel5所有控件可用
相关文档：
//声明:
GetWindowText(
hWnd: HWND; {窗口句柄}
lpString: PChar; {接收文本的缓冲区的指针}
nMaxCount: Integer {指定缓冲区大小, 其中包含NULL字符; 如果文本超出，会被被截断}
): Integer; {返回字符个数, 不包括中断的空字符; 如果标题为空或句柄无效, 则返回零}
//举例:
var
arr: ......
function BrowseCallbackProc(Wnd: HWND; uMsg: UINT; lParam, lpData: LPARAM): Integer; stdcall;
begin
if uMsg = BFFM_INITIALIZED then
begin
SendMessage(Wnd, BFFM_SETSELECTION, 1, lpData);
SetWindowText(Wnd, '选择一个目标');
end;
Result := 0;
end;
//hdl: 窗口句柄
//Root: 根� ......
本书通过典型的实例，系统地介绍了Delphi典型组件的基本使用方法和一些使用技巧。每一个实例都提供了程序的源代码、操作步骤，并且在一些特殊的实例中注明了知识点。力争使读者通过阅读实例后，可以较好地掌握每一个知识点。 本书分为五章，内容由浅入深、循序渐进，适用于初级用户和院校师生学习参考。 下载阅读边用边学D ......
delphi TStringList 用法详解
//TStringList 常用方法与属性
:
var
List: TStringList;
i: Integer;
begin
List := TStringList.Create;
List.Add('Strings1'); {添加}
List.Add('Strings2');
List.Exch ......
数组是可以通过索引来引用的同类型数据的列表。按照存储空间的获取方式，Delphi
支持的数组类型有两种，即静态数组和动态数组。所谓静态数组就是在声明时就已经确定大小的数组类型，而动态数组是指其大小在声明时不能确定的数组，动态数组的大小在使用时确定。
声明静态数组的方式非常简单，只要指明数组长度和数据类型 ......
