Button erstellen und Funktion zuweisen....

[CalganX]

Hi,
doch. In dem du die Eigenschaft "Name" des Buttons festlegst und dann schreibst:

Delphi-Quellcode:

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;

Chris