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