![]() How to handle drag&drop between this label in each running application ? Style = OldCreateOrder = False OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Label1 : TLabel Caption = 'Drag Label' DragMode = dmAutomaticīetween 2 components on the same form or application it's not a problem.īut execute 2 times this application : Drag&drop from label1 in application 1 to label1 in application 2 is not working. Unit17.dfm : object Form17 : TForm17 Left = 0 Top = 0 Caption = 'Form17' ClientHeight = 347 ClientWidth = 728 Color = clBtnFaceįont. Label1DragOver ( Sender, Source : TObject X, Y : Integer State : TDragState var Accept : Boolean ) beginĪccept := true Showmessage ( 'DragOVer from ' + Sender. Procedure Label1DragOver ( Sender, Source : TObject X, Y : Integer State : TDragState var Accept : Boolean ) private end var Form17 : TForm17 TForm17 = class ( TForm ) Label1 : TLabel But not file or URL just "common" Delphi components. I use Drag and Drop Component Suite since a long time and its work fine.īut I don't know how to handle drag&drop between 2 VCL applications (same application execute at same time for example).
0 Comments
Leave a Reply. |