unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, TypInfo;
type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
function UpdateObjectProp(Instance: TObject;
const PropName: String;
AValue: String): Boolean;
var
pPI: PPropInfo;
begin
Result := False;
try
pPI := GetPropInfo(PTypeInfo(Instance.Classinfo), PropName);
if Assigned(pPI) and (pPi^.PropType^.Kind in [tkString,tkLString,tkWString]) then
begin
SetStrProp(Instance, pPI, AValue);
Result := True;
end;
except
;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
UpdateObjectProp(Form1, 'Caption', '연습입니다');
UpdateObjectProp(Edit1, 'Text', '안녕하세요');
UpdateObjectProp(Label1, 'Caption', '새해 복 많이 받으세요');
end;
end. |
|
