Hallo Ich will einen TButton mit Drag & Drop auf der Form verschieben.
Was auch kein Problem ist.
Nun soll aber beim Drag over Der Button sichtbar bleiben ? Habe mir schon vieles angesehen.
Kann mir jemand weiter helfen Hier mal mein Code
Delphi-Quellcode:
procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := Source is TButton;
end;
procedure TForm1.FormDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
if Source is TButton then
begin
TButton(Source).Left := X;
TButton(Source).Top := Y;
end;
end;