Schon mal probiert die crCross Zuweisung nur dann durchzuführen, wenn der Cursor nicht schon crCross ist?
Das passiert bereits in
TControl.SetCursor
, so wie üblicherweise bei allen gelagerten Eigenschaften:
Delphi-Quellcode:
procedure TControl.SetCursor(Value: TCursor);
begin
if FCursor <> Value then
begin
FCursor := Value;
Perform(CM_CURSORCHANGED, 0, 0);
end;
end;