Einzelnen Beitrag anzeigen

Benutzerbild von Lannes
Lannes

Registriert seit: 30. Jan 2005
Ort: Münster
745 Beiträge
 
Delphi 3 Professional
 
#16

Re: PageControl - Tabs um Schließen-Symbol erweitern

  Alt 29. Jul 2009, 08:31
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.
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
  Mit Zitat antworten Zitat