我寫了兩個Form, 動作如下: Form1按下F2鍵呼叫出Form2, Form2按下F10鍵關閉, 關閉後回到Form1後他的KeyDown事件卻無法觸發, Form1跟Form2的KeyPreview都有設成True, 我發現回到Form1後必須先按下F10,然後再按下F2後, 才會觸發Form1的KeyDown事件! 請問各位高手該如何解決!!

不知道您由Form1呼叫Form2 時是否採用ShowModel的方式 因為這個牽涉到視窗控制Focus的移轉，您可能要在Try一下!

Form1 呼叫 Form2 時, 我是用 Form2.ShowModal 的方式

引言: 我寫了兩個Form, 動作如下: Form1按下F2鍵呼叫出Form2, Form2按下F10鍵關閉, 關閉後回到Form1後他的KeyDown事件卻無法觸發, Form1跟Form2的KeyPreview都有設成True, 我發現回到Form1後必須先按下F10,然後再按下F2後, 才會觸發Form1的KeyDown事件! 請問各位高手該如何解決!!

var Form1: TForm1; implementation uses Unit2; {$R *.dfm} procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin if(KEY=VK_F2)then Form2.ShowModal; end; end. var Form2: TForm2; implementation uses Unit1; {$R *.dfm} procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if(KEY=VK_F10)then Form2.Close; Form2.Close; end; end. //TForm1用FormKeyUp //TForm2用FormKeyDown 試試看.

我試了! 不行耶! 還是沒辦法很順的動作!

試一下在f10關閉form2的時候，加一行setActiveWindow(form1.handle)上去 許下第一千零一個願望 有一天幸福會聽我的話

if Key = VK_F10 then begin Close; Key := 0; end; Try it

感謝 lijenyun 您的幫忙, 下了 Key := 0 就解決這個問題了, 請問 Key := 0 是什麼意思啊? 為什麼要下 Key := 0 ?

Key := 0 means suppress further processing of the key press message, don't know why it works though