Delphi 使視窗來回移動

9個回答

匿名使用者2024-02-07

procedure movewindow();

constleftmax = 20;

leftmin = 1000;

beginwhile ( leftmax) do:= - 10;

while ( leftmin) do:= + 10;

end;procedure : tobject);

begin 刪除計時器並停止執行。

killtimer(handle, 1);

end;procedure : tobject);

開始計時器 ID 為 1,1000 毫秒。

settimer(handle, 1, 1000, @movewindow);

end;
匿名使用者2024-02-06

建立乙個新專案，向窗體新增乙個計時器控制項，並設定其屬性，如下所示：

interval=100（可以在 100 之間取 1000，數字越大，移動越慢）。

tag=2（建議使用1 100，數字越大，移動速度越快）然後雙擊定時器控制項，在**中輸入以下內容：

procedure : tobject);

beginleft:=left+;

if (left<=0) or (left>= then:=;

end;只需執行它。
匿名使用者2024-02-05

使用 api 函式 movewindow

例如 movewindow（，100,100，，;

這會將視窗移動到相對于父視窗的 100,100 個坐標，具有相同的高度和寬度。
匿名使用者2024-02-04

定義乙個布林全域性變數，當你開始輸入資料時，設定它的值為false，儲存資料，設定為true，關閉視窗時檢測這個值，如果是false，丟擲乙個對話方塊提醒使用者是否需要儲存資料，如果是，儲存資料關閉視窗，如果沒有，請直接關閉視窗。這不可能嗎？
匿名使用者2024-02-03

很簡單，你的表格2是什麼？

form1 的 position 屬性設定為 podefault否則，初始 ab 是錯誤的。

要使其居中，您必須在自己建立時獲得螢幕寬度高度。

您可以先將 ab 設定為 0，然後移動 form1 以檢視它是否會隨之移動。

關閉按鈕的事件在 ** 中未顯示。
匿名使用者2024-02-02

程式中的無限迴圈建議使用執行緒。好一點。

當然可以。

但是乙個好的**建議是使用執行緒來做到這一點。
匿名使用者2024-02-01

如果迴圈中的每一步都很短，則可以在迴圈中使用，如果迴圈時間較長，則最好使用多執行緒。
匿名使用者2024-01-31

在迴圈前新增乙個句子; 就是這樣，例如：

varl: integer

beginfor i:=0 to 100000 do:= inttostr(i);

end;end;

像上面的**一樣，跑到這裡的迴圈，程式會假死！卡主不動，在迴圈結束之前不會動！

如果你在前面加乙個句子; 不會有卡住的問題！

如下圖所示：var

l: integer

beginfor i:=0 to 100000 do;

inttostr(i);

end;end;
匿名使用者2024-01-30

設定面板的頂部和左側屬性。

窗體的高度。

窗體的寬度。