Code:

uses TypInfo;

 

{ .... }

 

procedure TForm1.Button1Click(Sender: TObject);

var

x, y, z: Word;

pl: PPropList;

begin

y := GetPropList(Self, pl);

for x := 0to y - 1do

begin

if Copy(pl[x].Name, 1, 2) <> 'On'then Continue;

if GetMethodProp(Self, pl[x].Name).Code <> nilthen

Memo1.Lines.Add(Self.Name + ' - ' + pl[x].Name);

end;

for z := 0to Self.ComponentCount - 1do

begin

y := GetPropList(Self.Components[z], pl);

for x := 0to y - 1do

begin

if Copy(pl[x].Name, 1, 2) <> 'On'then Continue;

if GetMethodProp(Self.Components[z], pl[x].Name).Code <> nilthen

Memo1.Lines.Add(Self.Components[z].Name + ' - ' + pl[x].Name);

end;

end;

end;

 

 

 

 

 

Взято с сайтаhttps://www.swissdelphicenter.ch/en/tipsindex

Пример стандартного присвоения события в run-time:

 

Code:

type

{©Drkb v.3(2007): www.drkb.ru,

®Vit (Vitaly Nevzorov) - Этот адрес электронной почты защищён от спам-ботов. У вас должен быть включен JavaScript для просмотра.}

 

TForm1 = class(TForm)

Button1: TButton;

procedure FormCreate(Sender: TObject);

private

procedure Click(Sender: TObject);

end;

 

var Form1: TForm1;

 

implementation

 

procedure TForm1.Click(Sender: TObject);

begin

// do something

end;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

button1.OnClick:=Click;

end;

 

end.

 

 

 

 

Автор:Vit  

Взято с Vingradruhttps://forum.vingrad