Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - PageControl und Rechtsclick???


DT2158 - So 03.11.02 16:03
Titel: PageControl und Rechtsclick???
Hallo ich habe ein pagecontrol mit tabsheets drauf und möchte ein ereignis auslösen, wenn man auf den kleinen Zipfel wo der Text steht (Reiter heißt das glaub ich).

Mit Tabsheet.OnMouseDown := TabSheetRightClick; passiert da garnix, das Geht nur wenn man auf die Fläche klickt.

PageControl_Edit.OnMouseDown := TabSheetRightClick; dann wird zwar das erergnis ausgeführt, aber unabhängig davon, welcher Reiter mit welchen Tabsheet geklickt wurde!

Wie kann man den "Sender" des Klicks herausfinden?
Ich hoffe, man hat das Problem verstanden!

Dt2158


Moritz M. - Sa 09.11.02 11:29

Versuchs mal mit dem OnChange-Ereigniss und der TabIndex-Variable:

Quelltext
1:
2:
3:
4:
procedure TForm1.TabControl1Change(Sender: TObject);
begin
  showmessage(inttostr(TabControl1.TabIndex));
end;

Beachte: TabIndex fängt beim 0 an, also ist der 1. Reiter (passt scho) 0, der 2. 1....usw.


DT2158 - So 10.11.02 16:35

danke habs anders gelöst


Moritz M. - So 10.11.02 16:59

gerne geschehen. :P


Tino - Mo 11.11.02 00:13

DT2158 hat folgendes geschrieben:
danke habs anders gelöst

Und wie?


Moritz M. - Mo 11.11.02 16:37

Ist ja eigentlich nicht arg wichtig, wie. Hauptsache er ist glücklich :wink: und sein Programm funktioniert. Dafür ist das Forum ja da


Tino - Mo 11.11.02 17:23

Onz hat folgendes geschrieben:
Ist ja eigentlich nicht arg wichtig, wie

Eigentlich nicht. Wenn jetzt ein andere User die gleiche Frage hat und durch die Suchfunktion dieses Topic findet dann erhält er trotzdem keine Antwort!

Gruß
TINO


Moritz M. - Mo 11.11.02 20:33

Haben ja so Recht, Sir. :hair:

PS: Könnte es sein, das es neue Smylies gibt?


Tino - Di 12.11.02 09:59

Onz hat folgendes geschrieben:
PS: Könnte es sein, das es neue Smylies gibt?

nimm dies [http://www.auq.de/viewtopic.php?t=1999]!

Gruß
TINO


Moritz M. - Di 12.11.02 14:41

Genommen *grunz* :tongue: