Registriert seit: 15. Feb 2006
Ort: Hechingen
504 Beiträge
Delphi 10.2 Tokyo Professional
|
Re: TCheckComboBox: unangenehmes Scroll-Effekt beseitigen???
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
|
|
Zitat
|