Button zur Laufzeit mit festlegbarem On-Click Ereigniss

[Sharky]

Hai Toxman,

das Thema hatten wir schon sehr oft -> ForenSuche

Ich würde das anders lösen. Weise jedem Button das gleiche OnClick-Event zu.
Wenn Du einen neuen Button erzeugst weise der Eigenschaft Tag einen neuen Wert zu.
In deinem OnClick wertest Du jetzt einfach das Tag aus.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i_tag : Integer;
  s_programm : String;
begin
  i_tag := (Sender As TButton).Tag;
  case i_tag of
   0 : s_programm := 'c:\myprogramm1.exe';
   1 : s_programm := 'c:\myprogramm2.exe';
   2 : s_programm := 'c:\myprogramm3.exe';
  end;
  ShellExecute (.......);
end;