(Verständnisfrage)
Hallo,
ich möchte, dass bei einem Klick auf ein TabSheet ein Befehl ausgeführt wird.
Ich bekomme aber nicht raus, wie das Funktioniert, ohne selber wie in meinem
Beispiel eine procedure zu schreiben. Das muss doch viel einfacher gehen,
sonst wäre doch onclick als Ereignis im TabSheet schon enthalten -
denn, warum auch nicht?
Delphi-Quellcode:
procedure TForm1.TabSheet1OnClick(Sender: TObject);
begin
Form1.Color := clred;
end;
procedure TForm1.TabSheet2OnClick(Sender: TObject);
begin
Form1.Color := clblue;
end;
procedure TForm1.PageControl1Change(Sender: TObject);
begin
TabSheet1.OnShow := TabSheet1Onclick;
TabSheet2.OnShow := TabSheet2OnClick;
end;