Delphi fmx移動無邊界形式

如何在Delphi FMX中移動鼠標時快速移動窗體。？。我已經嘗試了下面的代碼，但是當你移動鼠標來快速停止它的工作。Delphi fmx移動無邊界形式

How to drag a borderless FMX form on the screen through another object?

2014-02-21 user3337132

可能重複（http://stackoverflow.com/questions/15381796/move-borderless-form-in-firemonkey） –

雖然它在連接作爲OP的，我認爲它不會傷害到其添加在這裏也一樣，它不是公認的答案那邊有些人在以後搜索出該評論文章的提及日期可能會錯過它。還要確保它實際上是鼠標左鍵，除非你想讓它與其他按鈕一起拖動。

procedure TMyForm.DragPanelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single); 
begin 
    if (Button = TMouseButton.mbLeft) then StartWindowDrag; 
end;

的[移動無邊距形式Firemonkey]

來源

2014-02-21 17:37:57 DNR

非常感謝你 - 它也工作時，你移動鼠標farst ?.因爲我確實試圖讓我自己的東西mousedown和鼠標移動，但showhow，如果我確實移動鼠標快速它會停止工作。 – user3337132

它應該，但我非常建議你試試看......;） – DNR

Delphi fmx移動無邊界形式

回答

相關問題