下面的代码可以在edit1中输入要查询的控件名
可以在ListView1中列出
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
ListView1: TListView;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Registry;
var Palette_List:TStringList;
{$R *.DFM}
//------------------------------------------------------
{下面这个过程是分割字符串.例如对于
s:='ABC;DE;FGHI;JK';
sList:=SplitString(s,';');
这样sList的内容为: ABC
DE
FGHI
JK
}
function SplitString(const source,ch:string):TStringlist;
var
temp:string;
i:integer;
begin
result:=tstringlist.Create;
temp:=source;
i:=pos(ch,source);
while i<>0 do
begin
result.Add(copy(temp,0,i-1));
delete(temp,1,i);
i:=pos(ch,temp);
end;
result.Add(temp);
end;
//------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var i,j,iIndex:integer;
sPalette,sPaletteValue,sFind:String;
Index_List:TStringlist;
s,p,K:String;
begin
j:=0;
sFind:= UpperCase(Edit1.text);
iIndex:=-1;
ListView1.Items.Clear;
Palette_List:=TStringlist.Create;
Index_List:=TStringlist.Create;
with Tregistry.create do
try
RootKey:=HKEY_CURRENT_USER;
OpenKey('Software/Borland/Delphi/5.0/Palette',false);
GetValueNames(Palette_List);
for i:=0 to Palette_List.count-1 do
begin
sPalette:= Palette_List.Strings;
sPaletteValue:=UpperCase(ReadString(sPalette));
if Pos(sFind,sPaletteValue)>0 then
begin
Index_List:=SplitString(sPaletteValue,';');
{ iIndex:=Index_List.IndexOf(Edit1.text);
不能用上面这句，如果这样要全部匹配 }
for j:=0 to Index_List.Count-1 do
if Pos(sFind,Index_List.Strings[j])>0 then
begin
iIndex:= j+1;//控件在控件栏的索引号以1起
with ListView1.Items.Add do begin
S := sPalette;
P := Index_List.Strings[j];
k := inttostr(iIndex);
Caption := S; //控件栏
SubItems.Add(P); //匹配控件名
SubItems.Add(k); //索引号
end;
end; //end for j:=0
end; //end if Pos
end; //end for i:=0
if iIndex=-1 then
MessageDlg('在控件栏中没有找到控件：'+Edit1.text, mtError, [mbOK], 0);
finally
Palette_List.Free;
Index_List.Free;
free;
end;
end;
//------------------------------------------------------
end.
