TabControl und Events

[EWeiss]

Ich habe ein Transparentes TabControl erstellt.
Meine Probleme die ich habe sind 2 an der Zahl.

1. Welches Event wird ausgelöst beim klick auf einem Item.
2. Wie bekomme ich das updown control weg? Will da lieber was eigenes machen gibt es da einen Schalter?

Mein Versuch mit WM_NOTIFY bringt leider nichts.

Delphi-Quellcode:

    WM_NOTIFY:
      begin
        begin
          nmptr := PNMHdr(lp);
          if (nmptr.code = TCN_SELCHANGE) then
          begin
            GetClientRect(WinHandle, rc);
          end;
        end;
      end;

Komme da nicht rein wenn ich auf einen Button klicke.

EDIT:
OK punkt 1 ist erledigt normaler WM_LBUTTONUP

gruss

[TiGü]

Zu 1. aus der Unit ComCtrls:

Delphi-Quellcode:

...
procedure CNNotify(var Message: TWMNotify); message CN_NOTIFY; // <--- CN_ anstatt WM_
...

Delphi-Quellcode:

procedure TCustomTabControl.CNNotify(var Message: TWMNotify);
begin
  with Message do
    case NMHdr.code of
      TCN_SELCHANGE:
        Change;
      TCN_SELCHANGING:
        begin
          Result := 1;
          if CanChange then Result := 0;
        end;
    end;
end;

Change wird in der abgeleiteten Klasse TPageControl aufgerufen:

Delphi-Quellcode:

procedure TPageControl.Change;
var
  Form: TCustomForm;
begin
  if TabIndex >= 0 then
    UpdateActivePage;
  if csDesigning in ComponentState then
  begin
    Form := GetParentForm(Self);
    if (Form <> nil) and (Form.Designer <> nil) then
      Form.Designer.Modified;
  end;
  inherited Change;
end;

[EWeiss]

Danke!
Werde mal schaun ob ich davon etwas für NonVCL umsetzen kann.
TCustomTabControl kenne ich nicht SysTabControl32

Zitat:

// <--- CN_ anstatt WM_

Auch bei NonVCL ?
Glaube nicht.

gruss

[TiGü]

Zitat von EWeiss:

Danke!
Werde mal schaun ob ich davon etwas für NonVCL umsetzen kann.
TCustomTabControl kenne ich nicht SysTabControl32

Zitat:

// <--- CN_ anstatt WM_

Auch bei NonVCL ?
Glaube nicht.

TCustomTabControl ist die VCL-Kapselung für SysTabControl32.
Deine Kapselung heißt natürlich anders, weil du ja alles selber machst.

Außerdem hast du Recht mit WM_NOTIFY.
In der VCL-Variante wird explizit in Controls.DoControlMsg der Offset mit CN_BASE hinzugefügt.
Man könnte sagen, die Message wird neu gemappt.
Jetzt müsste man nur noch rausfinden, warum das so gelöst wurde.
Das hatte gewiss einen spezifischen Hintergrund.

[EWeiss]

Danke..

Ich habe das erste jetzt mit WM_LBUTTONUP gelöst.

Delphi-Quellcode:

    WM_LBUTTONUP:
      begin
        Item := GetCurSel(WinHandle);
        FSelectedItem := Item;

        ItemCount := GetItemCount(WinHandle);
        for IntI := 0 to ItemCount - 1 do
        begin
          if IntI <> FSelectedItem then
          begin
            HItem := GetDlgItem(FParentHandle, ID_PANEL_FIRST + IntI);
            if HItem <> 0 then
              ShowWindow(HItem, SW_HIDE)
          end;
        end;
        HItem := GetDlgItem(FParentHandle, ID_PANEL_FIRST + FSelectedItem);
        if HItem <> 0 then
          ShowWindow(HItem, SW_SHOW);

        SkinEngine.FInvalidateRect(WinHandle, false);
      end;

Muss jetzt nur noch rausfinden wie ich das mit updown32 gelöst bekomme das es nicht angezeigt wird.
Notfalls muss ich halt dieses Control auch noch pimpen.

Habe mal einen Test angehängt.
Mich würde interessieren ob das TabControl bei euch auch transparent ist. (Win7 sollte gehen).

gruss

[himitsu]

Zitat:

Wie bekomme ich das updown control weg? Will da lieber was eigenes machen gibt es da einen Schalter?

Billige Lösung: Nur die Tabs anzeigen, welche sichtbar sind / sein sollen und die Anderen auf Invisible.
Und beim Scrollen die Sichbarkeiten halt entsprechend anpassen.

Also von vorne x Tabs ausgeblendet, entsprechend Scrollposition und danach x Tabs sichtbar, wie angezeigt werden können.



Alternativ als MultilineTabcontrol und alle Tabs mehrzeilig anzeigen ... da gibt es diese Buttons auch nicht.