PageControl - Tabs um Schließen-Symbol erweitern

[turboPASCAL]

Moin.

@toms, eine Frage dazu, was ist die Unit WinXP ?

[toms]

Zitat von turboPASCAL:

Moin.

@toms, eine Frage dazu, was ist die Unit WinXP ?

Diese Unit kann entfernt werden. Brauchte ich nur für D6, da dieses die XPMan noch nicht hat.

[anse]

Cool wäre ja jetzt noch wenn man im leeren Bereich rechts neben den Tabs auf Doppelklick ein neues Tab öffnen könnte - so wie es im FireFox und mittlerweile auch einigen anderen Anwendungen funktioniert. Leider feuert in dem Bereich aber kein einziger Event:
* OnMouseDown + OnMouseUp reagieren nur auf den Tabs selbst, nicht aber in dem freien Bereich
* OnMouseClick + OnDblClick gibt's gar nicht bei TPageControl
* OnMouseActivate ist unbrauchbar für diesen Zweck und feuert auch dort nicht
* Auch die darunterliegende Komponente feuert hier kein OnClick o.ä. (was auch eigentlich logisch ist, aber hätte ja sein können)

Ideen?

[mirage228]

Wird auch keine VCL-Interne Window Message verschickt? Ala CM_MOUSECLICK oder so?

[anse]

Oh, sofern ein Tab den Fokus hat wird bei Klick auf den freien Bereich die Message 45060 verschickt. Keine Ahnung welche das genau ist, WM_LBUTTONDOWN (513) ist es nicht.

[Lannes]

Hallo,

45060 -> $B004

Aus controls.pas:
CM_BASE = $B000;
CM_CANCELMODE = CM_BASE + 4;

In OnMouseDown der Form kannst Du ermitteln ob ein Mousklick in dem Bereich stattgefunden hat:

Delphi-Quellcode:

var aRect : TRect;
    aPoint : TPoint;
begin
  aRect := PasgeControl.ClientRect;
  aPoint := PasgeControl.ScreenToClient(ClientToScreen(Point(X,Y)));
  if PtInRect(aRect,aPoint) then
    //neben Reiter geklickt
    else
      //auf Form geklickt

OnMouseDown der Form feuert nicht wenn auf andere Bereiche des PageControl geklickt wird.

[anse]

Hey Lannes, Grüße nach Münster aus Nienberge (bzw. Neuenkirchen privat)

Bei mir feuert die Form kein OnMouseDown wenn ich auf eine Komponente - egal welche und egal an welcher Stelle ich klicke. (D11)

(ähm, arbeitest du wirklich noch mit Delphi 3 (siehe dein Profil)?)

[semo]

Kleiner EInwurfvon mir: die Jedis bieten eine schöne Komponente: TJvTabBar

[toms]

Zitat von M. Hassmann:

Kleiner EInwurfvon mir: die Jedis bieten eine schöne Komponente: TJvTabBar

Das "X" ist jedoch immer links und es gibt keine Hover/OnClick-Effekte

[uwewo]

Delphi-Quellcode:

//Notlösung, da kA wie man das TRect manuell setzt um den Reiter zu verbreitern:
PageControl1.Pages[PageIndex].Caption := PageControl1.Pages[PageIndex].Caption + '      ';

PageControl.TabWidth