Button click anfänger Problem

[freak4fun]

Du könntest jedem Button dem Tag die Nr. zuweisen und dann einen Eventhandler für alle ButtonClicks machen. In dem liest du dann den Tag aus.

Delphi-Quellcode:

procedure TForm1.MyEventHandler(Sender: TObject);
begin
  Label4.Caption := IntToStr((Sender as TButton).Tag);
end;

...
Button1.Click := MyEventHandler;

MfG
freak