Help with Drag And drop

[bonmario]

Hi at all !!!
I must, using Drag And Drop, copy the text of Label1 in Label2.
I have assigned at Label1.DragMode:=dmAutomatic and i wrote this code:

Code: [Select]


procedure TForm1.Label2DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  if (Source is TLabel) then begin
    TLabel(Sender).Caption:=TLabel(Source).Caption;
  end else begin
    TLabel(Sender).Caption:='Source is not a da TLabel';
  end;
end;

procedure TForm1.Label2DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept:=True;
end;


but i can't do what i want.

Someone can help me?

Thanks, Mario

[bonmario]

I  have solved with this code:

Code: [Select]

procedure TForm1.Label2DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  if Source is TDragControlObject then begin
    TLabel(Sender).Caption:=TLabel(TDragControlObject(Source).Control).Caption;
  end;
end;



procedure TForm1.Label2DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
var  Control: TControl;
begin
  Accept:=True;
end;