Einzelnen Beitrag anzeigen

Benutzerbild von ChrisE
ChrisE

Registriert seit: 15. Feb 2006
Ort: Hechingen
504 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#10

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

  Alt 3. Mär 2009, 11:17
Zitat von teebee:
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
Kann ich bestätigen. Tut bei mir auch. Vista 32 Bit SP1 und Delphi 2007

Gruß, Chris
Christian E.
Es gibt 10 Arten von Menschen, die die Binär lesen können und die die es nicht können

Delphi programming rules
  Mit Zitat antworten Zitat