Ostatni TNotifyEvent

0

czy mozna jakos okreslic jaki TNotifyEvent byl wykonany ostatnio?
chcialem zrobic petle z ostatnio wykonywana procedura, mam dosc duzo ich w programie i wolalbym uniknac dopisywanie do kazdej identyfikujacego ja integera

0
Var Z:TNotifyEvent;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Z:=Button1Click;
  ShowMessage('Button1');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Z:=Button2Click;
  ShowMessage('Button2');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Z(Self);
end;
0

no w sumie racja, nie pomyslalem o tym .. dzieki

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0