Mouse Leave during drag
lazarus / 31-LCL

----------------------------------------------------------------------
Kaller · 2022-02-18 03:46

How can I define an event for MouseLeave a control when dragging?
Basically I want a control to stop reacting when the mouse no longer
is dragging over it.

----------------------------------------------------------------------
howardpc · 2022-02-18 08:17

Perhaps this gives you an idea:
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i unit
uMainDragOver; {$mode objfpc}{$H+} interface uses  Forms, Controls,
StdCtrls; type  TForm1 = class(TForm)    Edit: TEdit;    Memo: TMemo; 
  procedure FormCreate(Sender: TObject);    procedure
MemoDragOver(Sender, Source: TObject; X, Y: Integer; State:
TDragState; var Accept: Boolean);  private    editOverMemo: Boolean; 
 lastEditOverMemo: Boolean;  end; var  Form1:
TForm1; implementation {$R *.lfm} procedure TForm1.FormCreate(Sender:
TObject);begin  Memo.Clear;  Memo.DragMode := dmAutomatic; 
Edit.DragMode := dmAutomatic;end; procedure
TForm1.MemoDragOver(Sender, Source: TObject; X, Y: Integer; State:
TDragState; var Accept: Boolean);begin  lastEditOverMemo :=
editOverMemo;  case state of    dsDragEnter: editOverMemo := True;   
dsDragLeave: editOverMemo := False;    dsDragMove: ;  end;  if
lastEditOverMemo <> editOverMemo then    case editOverMemo of     
True: Memo.Lines.Add('edit dragging over');      False:
Memo.Lines.Add('edit no longer dragging over');    end;end; end.

----------------------------------------------------------------------
Kaller · 2022-02-19 02:18

Oh, dragstate, why didn't I see that? Thanks.