Caption Drag Drop ?

[Bernd29bln]

Hallo,

Ich habe folgendes Problem. Ich will per drag drob, die caption eines Button an einen anderen Button übergeben das Klappt auch super Wie bekomme ich die caption auf den anderen Button?

also so meine ich das.

BUTTON1 BUTTON2
------- = -------
BUTTON2 BUTTON1

Mein Code:

Delphi-Quellcode:

procedure TForm1.Button1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  if (Source is TButton) and  (Sender is TButton) then
  begin
    Button1.Caption:= TButton(Source).Caption;
  end;
end;

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

procedure TForm1.Button1StartDrag(Sender: TObject;
  var DragObject: TDragObject);
var
  pt: TPoint;
begin
  if Sender is TButton then
  begin
    pt:= TButton(Sender).ScreenToClient(Mouse.CursorPos);
    TButton(Sender).Tag:= MakeLong(pt.X, pt.Y);
  end;
end;

Gruß Bernd