drag drop drag over

procedure  TForm1 . Label1MouseDown ( Sender :  TObject ;  Button :  TMouseButton ;
   Shift :  TShiftState ;  X ,  Y :  Integer );
begin
   if    button = mbleft    then    ( sender    as    tlabel ). BeginDrag ( false );
end ;

procedure  TForm1 . Memo1DragOver ( Sender ,  Source :  TObject ;  X ,  Y :  Integer ;
   State :  TDragState ;  var  Accept :  Boolean );
begin
   if    source    is    tlabel    then      accept := true ;
end ;

procedure  TForm1 . Memo1DragDrop ( Sender ,  Source :  TObject ;  X ,  Y :  Integer );
begin
  if    ( sender    is    tmemo )    and    ( source    is    tlabel )    then
             ( sender    as    tmemo ). Lines . Add (( source    as    tlabel ). caption );
end ;

通过 Wiz 发布

附件列表