如何通過另一個對象在屏幕上拖動無邊界FMX表單？

Question

我試圖在屏幕上拖出一個表格，即我可以抓住它並在屏幕上移動它。它的透明並且沒有邊界，但是圖像可以作爲其他控制的背景。我想使用圖像的事件來控制窗體的拖動。我怎樣才能做到這一點？

我找到了具有此TDragObject參數的DragEnter，DragLeave，DragStart方法，我不知道。

有人可以幫忙嗎？

Answer 1

基本上你必須手動完成。

下面是從一種形式的一些德爾福/ Windows代碼上有一個透明的圖片（TransImage），無國界等 的事件是在形式的圖像，最&左指TMainScanForm.Top/Left。

這會拖累你的周圍形成使用圖像事件檢測點擊和移動

... 

// Mouse Drag Control 
MouseDown: Boolean; 
TopLeft, 
MouseStart: TPoint; 

... 

procedure TMainScanForm.TransImageMouseDown(Sender: TObject; Button: TMouseButton; 
    Shift: TShiftState; X, Y: Integer); 
begin 
    MouseDown := (Button = mbLeft); 
    if MouseDown then 
    begin 
    MouseStart.X := X; 
    MouseStart.Y := Y; 
    TopLeft := ClientToScreen(MouseStart); 
    TopLeft.X := TopLeft.X - X; 
    TopLeft.Y := TopLeft.Y - Y; 
    end; 
end; 

procedure TMainScanForm.TransImageMouseMove(Sender: TObject; 
            Shift: TShiftState; 
            X, Y: Integer); 
var 
    NewPoint: TPoint; 
begin 
    if MouseDown then 
    begin 
    NewPoint.X := X; 
    NewPoint.Y := Y; 
    NewPoint := ClientToScreen(NewPoint); // On Screen 
    NewPoint.Y := NewPoint.Y - MouseStart.Y; // New Onscreen 
    NewPoint.X := NewPoint.X - MouseStart.X; 
    Top := NewPoint.Y; 
    Left := NewPoint.X; 
    Refresh; 
    end; 
end; 

procedure TMainScanForm.TransImageMouseUp(Sender: TObject; Button: TMouseButton; 
    Shift: TShiftState; X, Y: Integer); 
begin 
    MouseDown := False; 
end;