寫一個SpeedButton測試程式
當我按下空白鍵時Lable1會顯示有按到嗎
在SpeedButton裡面顯示Lable2有按到
當SpeedButton事件被觸發時才會執行到Lable
我查了一些SpeedButton關於事件的用法
但是我還是改不出來
想請問高手如何用鍵盤去觸發SpeedButton按鍵按下

空白鍵的ASCII為32

[code cpp]

#pragma hdrstop
#include "Unit1.h"
#include
#include

//---------------------------------------------------------------------------
#pragma package(smart_init)

#pragma resource "*.dfm"
TForm1 *Form1;

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{
//Label1->Caption = (int)Key;
if(Key== 32)
{ Label1->Caption = "有按到嗎:"; }

}
//---------------------------------------------------------------------------

void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
Label2->Caption = "有按到";
}
//---------------------------------------------------------------------------

[/code]

附加檔案：4aa11c9acd9fd_Projects.rar

SpeedButton...
把AllowAllUp設為true
把GroupIndex群組設為大於0
就可以控制SpeedButton的Down...達到您說的效果

那一篇寫得很清楚……

另外，請自己下中斷點確認是不是會進入O nKeyPress事件。

最後，針對你的程式，我有做出來，但最後加上Down時當機，就懶得抓圖了，先看看吧

================================
真懷擬是不是我表達能力出了問題……－ －|||

編輯記錄

GrandRURU大大
我照你的方法，把AllowAllUp設為true，把GroupIndex設為1，那救大於0
可是你執行的那個結果，Label2並沒有顯示，就是SpeedButton1Click並沒有執行到
我有下過中斷點，可是不會去執行SpeedButton1Click這一段程式
SpeedButton裡面沒有KeyDown之類的事件所以...我還是不太明白

我看完其他篇的SpeedButton終於知道了
SpeedButton裡面有個屬性是Down
true按下去，False放開
我寫了下面的程式
可是SpeedButton1->Down=true
之後應該被按下去
可是我卻要去手動按上來他才會變False
這要怎麼改阿

[code cpp]
#pragma hdrstop
#include "Unit1.h"
#include
#include

//---------------------------------------------------------------------------
#pragma package(smart_init)

#pragma resource "*.dfm"
TForm1 *Form1;

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{
//Label1->Caption = (int)Key;
if(Key == 32)
{
Label1->Caption = "有按到嗎:";
SpeedButton1->Down = true;

}

}
//---------------------------------------------------------------------------

void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{

Label2->Caption = "有按到";
Sleep(500);
SpeedButton1->Down = false;
}
//---------------------------------------------------------------------------
[/code]

感謝GrandRURU大大的回答

小弟寫出來了
參考delphi.ktop.com.tw/board.php

supman大大的回答
反向思考一下，當Form1的Button按下後直接去呼叫Form2的Button的Event就可以了。
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Form2->Button1Click(Sender);
}

而且我發現Form2->Button1Click(Sender);這一行是無敵的
因為不需要去設定太多
直接Sender出去就好
因為結果是一樣的