Moin Bee,
damit Du den Button auch siehst, musst Du noch die Eigenschaft Parent setzen.
Switch.Parent := Window;
Die Routine für das anklicken des Buttons kann dann mit in das Hauptformular aufgenommen werden.
Delphi-Quellcode:
type
TForm1 = class(TForm)
procedure Button1Click(Sender: TObject); // Die ursprüngliche Prozedur
procedure ButtonClick(Sender: TObject); // Manuell hinzugefügt
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
// ....
implementation
// Die neue Routine
procedure TfrmMAIN.ButtonClick(Sender: TObject);
begin
ShowMessage('Klick');
end;
Dann noch dem OnClick des Buttons die Routine zuweisen:
Switch.OnClick := ButtonClick;