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