D
DreamTiger
Unregistered / Unconfirmed
GUEST, unregistred user!
比如我想知道一个Form上哪些控件有Caption属性，有没有办法知道？
S
sunstone
Unregistered / Unconfirmed
GUEST, unregistred user!
你要作什吗?
D
DreamTiger
Unregistered / Unconfirmed
GUEST, unregistred user!
呵呵，保存Caption，可以用这种方法来更换界面啊。
H
hubdog
Unregistered / Unconfirmed
GUEST, unregistred user!
呵呵，有办法，学名rtti,欲知后事如何且听下回分解
D
DreamTiger
Unregistered / Unconfirmed
GUEST, unregistred user!
hubdog:快点出下回啊！
沈
沈前卫
Unregistered / Unconfirmed
GUEST, unregistred user!
uses typinfo;
var
p
PropInfo;
begin
p:=GetPropInfo(Memo1.ClassInfo,'Caption');
if p=nil then showmessage('No Caption')
else ShowMessage('Caption');
p:=GetPropInfo(Button1.ClassInfo,'Caption');
if p=nil then showmessage('No Caption')
else ShowMessage('Caption');
end;
var
p
PropInfo;begin
p:=GetPropInfo(Memo1.ClassInfo,'Caption');
if p=nil then showmessage('No Caption')
else ShowMessage('Caption');
p:=GetPropInfo(Button1.ClassInfo,'Caption');
if p=nil then showmessage('No Caption')
else ShowMessage('Caption');
end;
沈
沈前卫
Unregistered / Unconfirmed
GUEST, unregistred user!
DreamTiger:
你要将typinfo.pas拷贝到你的工程文件的目录。我已经测试通过！
你要将typinfo.pas拷贝到你的工程文件的目录。我已经测试通过！
D
DreamTiger
Unregistered / Unconfirmed
GUEST, unregistred user!
那我怎么才能得到这个Caption的值呢？
沈
沈前卫
Unregistered / Unconfirmed
GUEST, unregistred user!
var
pPropInfo;
begin
p:=GetPropInfo(Button1.ClassInfo,'Caption');
ShowMessage(GetStrProp(Button1,p));
end;
p
PropInfo;begin
p:=GetPropInfo(Button1.ClassInfo,'Caption');
ShowMessage(GetStrProp(Button1,p));
end;
沈
沈前卫
Unregistered / Unconfirmed
GUEST, unregistred user!
设置属性：
var
pPropInfo;
sCap:string;
begin
p:=GetPropInfo(Button1.ClassInfo,'Caption');
sCap:='Shenqw@cmmail.com';
SetStrProp(Button1,p,sCap);
end;
var
p
PropInfo;sCap:string;
begin
p:=GetPropInfo(Button1.ClassInfo,'Caption');
sCap:='Shenqw@cmmail.com';
SetStrProp(Button1,p,sCap);
end;
H
hubdog
Unregistered / Unconfirmed
GUEST, unregistred user!
hehe,给分吧
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,TypInfo;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Edit1: TEdit;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
I:Integer;
ppiPropInfo;
pPropsPropList;
ptiTypeInfo;
ptdTypeData;
PropInfoPropInfo;
begin
for I:=0 to Self.ComponentCount-1 do
begin
PropInfo:=GetPropInfo(Components.classinfo,'Caption');
if PropInfo<>nil then
ShowMessage(Components.Name+' has Caption property')
else
ShowMessage(Components.Name+' has not Caption property');
end;
end;
end.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,TypInfo;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Edit1: TEdit;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
I:Integer;
ppi
PropInfo;pProps
PropList;pti
TypeInfo;ptd
TypeData;PropInfo
PropInfo;begin
for I:=0 to Self.ComponentCount-1 do
begin
PropInfo:=GetPropInfo(Components.classinfo,'Caption');
if PropInfo<>nil then
ShowMessage(Components.Name+' has Caption property')
else
ShowMessage(Components.Name+' has not Caption property');
end;
end;
end.
H
hubdog
Unregistered / Unconfirmed
GUEST, unregistred user!
wuwu~~,沈前卫，你好快啊，没看到,hehe
沈
沈前卫
Unregistered / Unconfirmed
GUEST, unregistred user!
HeHe,我150分，你50分.DreamTiger。快给分.....
D
DreamTiger
Unregistered / Unconfirmed
GUEST, unregistred user!
非常感谢二位，给了hubdog一点苦劳分，呵呵，沈兄不会见怪吧。
D
DreamTiger
Unregistered / Unconfirmed
GUEST, unregistred user!
呵呵，世上的事就那么凑巧，我发分的时候还没看到沈兄的文章，结果却完全一样。
沈
沈前卫
Unregistered / Unconfirmed
GUEST, unregistred user!
DreamTiger:
你还没发分呢！你没点"接收答案"....
你还没发分呢！你没点"接收答案"....
D
DreamTiger
Unregistered / Unconfirmed
GUEST, unregistred user!
呵呵，真是抱歉，一激动，忘了。
