各位大大好： 小弟在BCB程式中，載入一軟體(EON)， 載入後可以以鍵盤的F1鈕，讓此軟體的功能動作。 但我想設定一Edit元件，此元件會由我的控制， 從0增加至100，而我想在每增加10後， 就自動執行F1鈕(不需再用手去按下鍵盤) 不知該如何設定，謝謝各位大大幫忙 附圖     發表人 - taishyang 於 2005/03/25 12:29:25

參考下面的程式把 F4 改成 F1 就可以了 http://delphi.ktop.com.tw/topic.php?topic_id=60624

請參考    http://delphi.ktop.com.tw/topic.php?topic_id=43058 【BCB】【問題】關於POSTMESSAGE 模擬鍵盤、滑鼠 http://delphi.ktop.com.tw/topic.php?topic_id=35742 【問題】如何以程式模擬(按住ALT鍵)的功能 ..

首先感謝folkchen及blk5743的幫忙， 但是小弟不才還是試不出來， 那我換個方式問， 那如果我只要在 開始執行我的程式時，不需按下任何鈕， 每隔1秒就執行F1一次，不知該如何設定。 我試過以在Time內鍵入 HWND hwnd3=FindWindow(NULL,NULL); PostMessage(hwnd3, WM_KEYDOWN, VK_F1,0); 但還是不行^^" 再麻請各位大大幫幫我 再次感謝

samhum0522 您好： 我測試可以啊！！ 你有先把 TForm 的 KeyPreview 屬性設成 true嗎? 參考如下 1. public: // User declarations __fastcall Ta_pay_f(TComponent* Owner); int X1; 2. void __fastcall Ta_pay_f::FormCreate(TObject *Sender) { X1 = 0 ; } 3. void __fastcall Ta_pay_f::Timer1Timer(TObject *Sender) { if(X1 <= 99) { keybd_event(VK_F1, 0, 0, 0); //按下F1 keybd_event(VK_F1, 0, KEYEVENTF_KEYUP, 0);//放開F1 X1 = X1 ; Edit1->Text = IntToStr(X1); } } alvin2004 敬上 發表人 - alvin2004 於 2005/03/31 14:01:22 發表人 - alvin2004 於 2005/03/31 14:03:07

超級感謝alvin2004 大大： 您的範例讓我可以使用了， 之前一直是使用PostMessage指令， 但都一直不行，結果使用alvin2004 大大 的keybd_event這種指令就可以使用了。 再次感謝