Как получить список всех назначенных событий?

2013-08-19T16:48:56+07:00

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;

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

Как присвоить событие в run-time?

2013-08-19T16:47:55+07:00

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

Code:

type

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

®Vit (Vitaly Nevzorov) - nevzorov@yahoo.com}

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

События

Как получить список всех назначенных событий?

Как присвоить событие в run-time?