안녕하세여.. 컴맹입니다...



이렇게 하시면 됩니다... 주석은 달지 않겠습니다..



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, ExtCtrls, TeeProcs, TeEngine, Chart;



type

TForm1 = class(TForm)

Button1: TButton;

Chart1: TChart;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation

uses Typinfo;



{$R *.DFM}



procedure TForm1.Button1Click(Sender: TObject);

var

PropInfo : PPropInfo; // uses 에 TypeInfo를 추가....

begin

// 요부분이 Font 가 있는지 없는지 체크 한다...

PropInfo := GetPropInfo(Sender.ClassInfo,'Font');



if PropInfo <> nil then Caption := 'Sucess'

else Caption := 'Fail';

//********** 요기 까지...

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

Button1Click(Chart1);

end;



end.



그럼 이만...





설창원 wrote:

> 인자로 TObject를 받았을때 이 Object에 Font라는 Property가 있는지 알 수 있을까요?

> 부탁합니다.