表單1和表單2，各一個Button,表單1按鈕單擊事件，是打開表單2，兩個按鈕位置都在螢屏中間。現在雙擊表單1的按鈕，會執行表單2按鈕的單擊事件，有沒有什么辦法可以讓表單2按鈕的第一次單擊無效呢
uj5u.com熱心網友回復：
弄個計時
procedure TForm2.OnBtnClick(sender: TObject);
begin
//表單創建到點擊事件，如果1秒內（根據需要調整），認為無效點擊。
if (GetTickCount-FTick)<1000 then exit;
ShowMessage('you click me');
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
FTick := GetTickCount();
Button1.OnClick := OnBtnClick;
end;
uj5u.com熱心網友回復：
定義一個integer或其他變數，當第一個BTN點擊后，將integer變數設為1，第二個按鈕點擊前先判斷integer的值，如果不等于則不執行（integer變數的默認值是0）uj5u.com熱心網友回復：
顯然是你連擊造成的uj5u.com熱心網友回復：
顯然是你連擊造成的轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/15914.html
標籤：語言基礎/算法/系統設計