RealICQClient/Includes/DRAGDROP/Demo/MultipleTargets/main.pas

unit main;

interface

uses
  DragDrop,
  DropTarget,
  DropSource,
  DragDropText,
  Windows, Classes, Graphics, Forms, StdCtrls, Controls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    MemoLeft: TMemo;
    MemoRight: TMemo;
    DropTextTarget1: TDropTextTarget;
    CheckBoxLeft: TCheckBox;
    CheckBoxRight: TCheckBox;
    MemoSource: TMemo;
    DropTextSource1: TDropTextSource;
    DropDummy1: TDropDummy;
    procedure FormDestroy(Sender: TObject);
    procedure CheckBoxLeftClick(Sender: TObject);
    procedure CheckBoxRightClick(Sender: TObject);
    procedure MemoSourceMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure DropTextTarget1Enter(Sender: TObject;
      ShiftState: TShiftState; Point: TPoint; var Effect: Integer);
    procedure DropTextTarget1Leave(Sender: TObject);
    procedure DropTextTarget1Drop(Sender: TObject; ShiftState: TShiftState;
      Point: TPoint; var Effect: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.MemoSourceMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  // Wait for user to move cursor before we start the drag/drop.
  if (DragDetectPlus(TWinControl(Sender).Handle, Point(X,Y))) then
  begin
    DropTextSource1.Text := MemoSource.Lines.Text;
    DropTextSource1.Execute;
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  // Unregister all targets.
  // This is not strictly nescessary since the target component will perform
  // the unregistration automatically when it is destroyed. Feel free to skip
  // this step if you like.
  DropTextTarget1.Unregister;
end;

procedure TForm1.CheckBoxLeftClick(Sender: TObject);
begin
  // Register or unregister control as drop target according to users selection.
  if TCheckBox(Sender).Checked then
    DropTextTarget1.Register(MemoLeft)
  else
    DropTextTarget1.Unregister(MemoLeft);
end;

procedure TForm1.CheckBoxRightClick(Sender: TObject);
begin
  // Register or unregister control as drop target according to users selection.
  if TCheckBox(Sender).Checked then
    DropTextTarget1.Register(MemoRight)
  else
    DropTextTarget1.Unregister(MemoRight);
end;

procedure TForm1.DropTextTarget1Enter(Sender: TObject;
  ShiftState: TShiftState; Point: TPoint; var Effect: Integer);
begin
  // Highlight the current drag target.
  // Use the TDropTarget.Target property to determine which control is
  // the current drop target:
  (TDropTarget(Sender).Target as TMemo).Color := clRed;
end;

procedure TForm1.DropTextTarget1Leave(Sender: TObject);
begin
  // Remove highlight.
  (TDropTarget(Sender).Target as TMemo).Color := clWindow;
end;

procedure TForm1.DropTextTarget1Drop(Sender: TObject;
  ShiftState: TShiftState; Point: TPoint; var Effect: Integer);
begin
  // Copy dragged text from target component into target control.
  (TDropTarget(Sender).Target as TMemo).Lines.Text := TDropTextTarget(Sender).Text;

  // Remove highlight.
  (TDropTarget(Sender).Target as TMemo).Color := clWindow;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  i: integer;
  Control: TWinControl;
begin
  // Remove highligt from all controls.
  for i := 0 to ComponentCount-1 do
    if (Components[i] is TMemo) then
      TMemo(Components[i]).Color := clWindow;

  // Demo of TDropTarget.FindTarget:
  // Highlight the control under the cursor if it is a drop target.
  Control := DropTextTarget1.FindTarget((Sender as TWinControl).ClientToScreen(Point(X,Y)));
  if (Control <> nil) and (Control is TMemo) then
    TMemo(Control).Color := clLime;
end;

end.