PageControl - Tabs um Schließen-Symbol erweitern

[HCB]

Hallo Leute,
ich probiere eine StringVariable auszuwerten:

var ClickedTab: String;
begin
clickedTab:=TComponent(msg.LParam).Owner.GetNamePa th;
showMessage(clickedTab);

Hier wird die Variable clickedTab korrekt als Tabsheet1 angezeigt!!
Wenn ich diese aber anschließend hier auswerten möchte mit

if clickedTab = 'Tabsheet1' then showMessage('1');

wird mir einfach ShowMessage nicht angezeigt.

Ich verzweifle noch, ich finde den Fehler nicht!!!
Hat jemand eine Idee woran es liegen könnte?

LG Harry

[himitsu]

Was möchtest du wetten, dass das eine S nicht klein ist?
SameText


Oder steht da wirklich nur der eine Komponentenname im Path?

Oder warum nicht mal ohne Strings?
if TComponent(msg.LParam).Owner is TabSheet1 then

[HCB]

Danke Himitsu für deine Hilfe.

> Oder steht da wirklich nur der eine Komponentenname im Path?

Es steht nur Tabsheet1 in der Variable ClickedTab, siehe screeshot.

>if TComponent(msg.LParam).Owner is TabSheet1 then

lässt sich nicht kompileren wegen Fehler, siehe Screenshot.

Irgendwie merkwürdig. Hat jemand vielleicht noch eine Idee?

LG Harry

[HCB]

So jetzt aber mit Anhang, sorry.

[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.