Forum: Object-Pascal / Delphi-Language
Delphi
by CalganX,
11. Sep 2003
Hi,
doch. In dem du die Eigenschaft "Name" des Buttons festlegst und dann schreibst:
procedure TfrmMain.NewButtonClick(Sender: TObject);
begin
if (Sender as TButton).Text = 'NewButton' then
// tu was
else if (Sender as TButton).Text = 'AndererButton' then
// tu was anderes
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by CalganX,
8. Sep 2003
Hi,
du erstellst einfach eine Prozedur vom Typ z.B. TNotifyEvent (siehe Hilfe) und weist die zu.
So zum Beispiel:
procedure TForm1.MeinEigenesOnClick(Sender: TObject);
begin
ShowMessage('Dynamischer Button wurde geklickt');
end;
{...}
procedure TForm1.FormCreate(Sender: TObject);