請問一下喔。

在Form中有Button情況下，小弟想說可以按鍵盤上的某一個鍵去執行某個Button裡的程式嗎？

就是可以用滑鼠去按Button去執執行該Button裡的程式，但也可以按鍵盤上我想要的鍵去執行該Button的程式。

Delphi有辦法做到嗎？

您好,

我試了一下可以, 不知是否是您所想要的 :
程式如下, 記得 form1.keypreview 設為 true;


按 a 模擬 button1
按 b 模擬 button2

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage('button1');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
showmessage('button2');
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key='a' then button1.Click;
if key='b' then button2.click;
end;

end.

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

不好意思，再問一下一件事。

您的Key直就就等於字串'a'？

不用 VK_****(VK_F5 = 鍵盤上的F5) 這個東西就只以抓到鍵盤上的按鈕嗎？
===================引 用 st33chen 文 章===================
您好,

我試了一下可以, 不知是否是您所想要的 :
程式如下, 記得 form1.keypreview 設為 true;


按 a 模擬 button1
按 b 模擬 button2

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage('button1');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
showmessage('button2');
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key='a' then button1.Click;
if key='b' then button2.click;
end;

end.

您好,
我是用 o n k e y p r e s s, 他的key參數是 char 型

若是用 o n k e y u p 那程式要改成,
if key=vk_f1 then button1.click
else if key=vk_f5 then button2.Click;

請自行查一下 delphi help 看 keypress 和 keyup, keydown 等等的不同點

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

編輯記錄

最簡單的方式就是在 button.caption:= '&A 按鍵1"
這樣 butoon 會出現 A 按鍵一, 只要按下 Alt A 就可以達成, 甚至 KeyPreview 都不用調
===================引 用 tokiama 文 章===================
請問一下喔。

在Form中有Button情況下，小弟想說可以按鍵盤上的某一個鍵去執行某個Button裡的程式嗎？

就是可以用滑鼠去按Button去執執行該Button裡的程式，但也可以按鍵盤上我想要的鍵去執行該Button的程式。

Delphi有辦法做到嗎？