Einzelnen Beitrag anzeigen

teebee

Registriert seit: 17. Jan 2003
Ort: Köln
460 Beiträge
 
Delphi 6 Professional
 
#9

Re: TCheckComboBox: unangenehmes Scroll-Effekt beseitigen???

  Alt 3. Mär 2009, 10:11
Füge der ListWndProc mal die beiden Zeilen hinzu:
Delphi-Quellcode:
begin
                  InvalidateRect(FListHandle, @rcItem, FALSE);
                  SetCheck(nIndex, not IsChecked(nIndex));
                  SendMessage(WM_COMMAND, handle, CBN_SELCHANGE,handle);
                  Message.result := 0; // <- diese beiden Zeilen
                  exit; // <- hinzufügen
               end;
Scheint bei meinen ersten Tests zu funktionieren.

Gruß, teebee
  Mit Zitat antworten Zitat