procedure TFormComp1.FCEdit1Exit(Sender: TObject); begin showmessage('go to append'); end; procedure TFormComp1.F2Button3Click(Sender: TObject); begin showmessage('go to delete'); end; procedure TFormComp1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin case key of vk_F2: //不會寫如何寫go ( procedure TFormComp1.FCEdit1Exit(Sender: TObject)) vk_F4: //不會寫如何寫go (procedure TFormComp1.F2Button3Click(Sender: TObject)) end; end;

procedure TFormComp1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case key of
       vk_F2: //不會寫如何寫go 
             FCEdit1Exit(nil);
       vk_F4: //不會寫如何寫go
             F2Button3Click(nil);
  end;
end;

引言:

procedure TFormComp1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case key of
       vk_F2: //不會寫如何寫go 
             FCEdit1Exit(nil);
       vk_F4: //不會寫如何寫go
             F2Button3Click(nil);
  end;
end;

對不起,我表達錯誤, vk_F2: run TFormComp1.FCEdit1Exit 內部程式 謝謝

william 兄提供的就是執行TFormComp1.FCEdit1Exit 的方法啊 (會出現 MessageBox : go to append)。 你到底想使用者按 F2 後有甚麼的效果呢?

引言: william 兄提供的就是執行TFormComp1.FCEdit1Exit 的方法啊 (會出現 MessageBox : go to append)。 你到底想使用者按 F2 後有甚麼的效果呢? 我錯了,我測式vk_f2:應該去run button1 結果寫去Editexit 因為edit1.text 空白時不去run,所以沒動作,失禮失禮,謝謝william 謝Justmade ｅ點靈 謝謝