(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?

zusammenfalten · markieren

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;

du brauchst doch nur, statt dem PageControl den Tabsheet anklicken und dann im OI das gewünschte ereignis auswählen! Wahrscheinlich stehst du die ganze zeit auf dem PageControl und nicht auf dem einzelnen Tabsheet! Über dem OI ist doch sone Baumstruktur mit den Komponenten. Da einfach den Tabsheet auswählen und der Rest geht dann über OI

hoi,

nimm das ereignis onShow des tabsheets, dann sollte es klappen


cya

Nur mal so am Rande bemerkt: Mein Delphi7 kennt kein OnClick() des TabSheets.

Zitat von Butch87:

du brauchst doch nur, statt dem PageControl den Tabsheet anklicken und dann im OI das gewünschte ereignis auswählen!

? Das gewünschte Ereignis fehlt ja mit OnClick ?

@souleis: Und wie setze ich das anders mit OnShow um, - und einfacher, als ich es in meinem Beispiel schon getan habe?

markieren

Delphi-Quellcode:

procedure TForm1.TabSheet1OnShow(Sender: TObject);
begin
  Form1.Color := clred;
end;

procedure TForm1.TabSheet2OnShow(Sender: TObject);
begin
  Form1.Color := clblue;
end;

Zitat von julchen:

? Das gewünschte Ereignis fehlt ja mit OnClick ?

gibts da auch kein MouseDown?!? is ja

Zitat von taaktaak:

markieren

Delphi-Quellcode:

procedure TForm1.TabSheet1OnShow(Sender: TObject);
begin
  Form1.Color := clred;
end;

procedure TForm1.TabSheet2OnShow(Sender: TObject);
begin
  Form1.Color := clblue;
end;

Ja, das ist logisch! D.h. statt eine procedure mit OnClick zu schreiben, schreibe ich OnShow und spare mir so den "Umweg" über das PageControl!
Danke!
[EDIT]Ich spare mir gar nichts, weil ich die Ereignisse ja trotzdem im OI eintragen muss[/EDIT]

Und wenn jetzt noch 5 tabsheets dazu kommen, hast du noch 5 Prozeduren mehr! Weise doch jedem Tabsheet einen Tag zu!!

markieren

Delphi-Quellcode:

Case PageControl1.ActivePage.Tag of
       1: Form1.Color:= blue;
       2: Form1.Color:= red;
       .
       .
       .
end;

edit: Das case muss natürlich in das OnChange des PageControl!!!! (wie sirius es andeutet)

Häh, willst du jetzt ein Ereignis, wenn das Tabsheet wechselt? Dann nimm doch onChange des Pagecontrols.