各位大俠，小弟剛接觸delphi，想實作一個功能，類似delphi編輯器似得，拖動一個物件時，滑鼠會生成一個跨越其他控制元件的框，放下時則生成一個新的物件。。該如何實作請各位大俠不吝賜教，小弟拜謝。
uj5u.com熱心網友回復：
不要虛框的話很簡單 DragMode變一下然后 加虛框的話自己研究一下GDI+吧procedure TForm1.Btn7EndDrag(Sender, Target: TObject; X, Y: Integer);
begin
(Sender as TButton).Left := X;
(Sender as TButton).Top := Y;
end;
procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer; State:
TDragState; var Accept: Boolean);
begin
self.Caption := IntToStr(X)+','+IntToStr(Y);
if Source is TForm then
Accept := True;
end;
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/50773.html