Thema: Delphi TabControl und Events

Einzelnen Beitrag anzeigen

EWeiss
(Gast)

n/a Beiträge
 
#5

AW: TabControl und Events

  Alt 9. Jul 2018, 11:31
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

Geändert von EWeiss (11. Jul 2019 um 16:52 Uhr)
  Mit Zitat antworten Zitat