Maus Cursor wechsel auf abbruch

[Sharky]

Hai HomerGER,

dann setze doch im OnLeav ereigniss eine Bedingung:

Delphi-Quellcode:

procedure TForm1.CMMouseLeave(var Message: TMessage); 
var 
  ptWork : TPoint; 
begin 
  GetCursorPos(ptWork); 
  if WindowFromPoint(ptWork) <> Button2.Handle then 
  begin 
    if (etwas_das_lange_dauert_nicht_fertig) then
    begin
      myCursor := crHourGlass
    end
    else
    begin
      myCursor := crDefault;
    end;
    Screen.Cursor := myCursor; 
  end; 
end;