引言:

引言: 請教各位前輩,我在 checkbox onkeydown 寫程式但都沒作用,是不是有那 裏要設定??謝謝

QOO10: 請改在 CheckBox onClick 或 onKeyPress

>

引言: 請教各位前輩,我在 checkbox onkeydown 寫程式但都沒作用,是不是有那 裏要設定??謝謝

引言:

引言: > < face="Verdana, Arial, Helvetica"> QOO10: CheckBox.SetFocus; 試試看

肯定有 >

引言:

引言:

引言: > < face="Verdana, Arial, Helvetica"> QOO10: CheckBox.SetFocus; 試試看

肯定有 > < face="Verdana, Arial, Helvetica"> 附上 SOURCE unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; CheckBox1: TCheckBox; Edit2: TEdit; procedure CheckBox1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure CheckBox1KeyPress(Sender: TObject; var Key: Char); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.CheckBox1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin SHOWMESSAGE('KEY UP'); end; procedure TForm1.CheckBox1KeyPress(Sender: TObject; var Key: Char); begin SHOWMESSAGE('KEY UP'); end; end.

引言: 經過我的測試,一切OK 按下認意鍵 都會 SHOWMESSAGE('key up'); 不知你的問題在那裡

引言:

引言: [可否將你的程式 mail 給我,嚷我了解到底是不是我有那個屬性未設謝謝!! e-mail :mikehuang01@yahoo.com.tw

QOO10: 我已經 E-Mail 給你了,不知是否收到

SORRY!!上午一直再忙現在才回,你的信已收到,謝謝您.但是還是不行,就聯你給的 PROJECT1.EXE 都還是不行,將滑鼠移到 CHECKBOX 並 DBCLICK讓其打勾,在按 UP 鍵 FOCUS 跑到 EDIT2!!

引言:

引言: SORRY!!上午一直再忙現在才回,你的信已收到,謝謝您.但是還是不行,就聯你給的 PROJECT1.EXE 都還是不行,將滑鼠移到 CHECKBOX 並 DBCLICK讓其打勾,在按 UP 鍵 FOCUS 跑到 EDIT2!! < face="Verdana, Arial, Helvetica"> QOO10: 你的意思是說 桉 UP 這個鍵 嗎? 如果只是 UP & DOWN 鍵 那就好辦了

真的!!就是 >

引言:

引言: 真的!!就是 > < face="Verdana, Arial, Helvetica"> QOO10: 那妳是要讓 up/ down/ page up /page down 這些鍵 按下時 FOCUS 不要跑到 EDIT2 是這樣嗎?

我的目的是當 user 將 focus 移到 checkbox 後若按上述件會 focus 到 " 指定的元件"!!

引言:

引言: 我的目的是當 user 將 focus 移到 checkbox 後若按上述件會 focus 到 " 指定的元件"!!

如果是要 設定 focus 你可以利用 ONExit 這個事件 procedure TForm1.CheckBox1Exit(Sender: TObject); begin showMessage('CHECKBOX 焦點離開'); // 在下面指定新的 focus 到 指定的元件"!! end;

procedure TForm1.CheckBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_UP, VK_PRIOR: Edit1.SetFocus; // 往下鍵 / PageUp 鍵
    VK_DOWN, VK_NEXT: Edit2.SetFocus; // 往上鍵 / PageDown 鍵
  end;
end;

引言:

引言: 大概像這樣吧:

procedure TForm1.CheckBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_UP, VK_PRIOR: Edit1.SetFocus; // 往下鍵 / PageUp 鍵
    VK_DOWN, VK_NEXT: Edit2.SetFocus; // 往上鍵 / PageDown 鍵
  end;
end;

-- Believe the unbelievable.

hagar兄: 在 CheckBox 內的 ONKeyDown 是無法 爪到 VK_UP & VK_DOWN 因為它 CheckBox 會 將 這兩個key 直接 傳給 Parent 然後 Parent 會切換 focus

cmf前輩: 我將程式改成如下: (還是不行) 若改在 onexit 則無法得知user 案的鍵 unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Label1: TLabel; CheckBox1: TCheckBox; procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key = VK_UP then if ActiveControl is TCheckBox then showmessage('1111'); end; end.

引言: hagar兄: 在 CheckBox 內的 ONKeyDown 是無法 爪到 VK_UP & VK_DOWN 因為它 CheckBox 會 將 這兩個key 直接 傳給 Parent 然後 Parent 會切換 focus

    procedure CMDialogKey(Var Msg: TWMKey); message CM_DIALOGKEY;    procedure TForm1.CMDialogKey(Var Msg: TWMKEY);
begin
  if (ActiveControl = CheckBox1) then begin
    case Msg.Charcode of
      VK_UP, VK_PRIOR: Edit1.SetFocus; // 往下鍵 / PageUp 鍵      
      VK_DOWN, VK_NEXT: Edit2.SetFocus; // 往上鍵 / PageDown 鍵 
    end;
  end;
  inherited;
end;

引言:

引言: hagar兄: 在 CheckBox 內的 ONKeyDown 是無法 爪到 VK_UP & VK_DOWN 因為它 CheckBox 會 將 這兩個key 直接 傳給 Parent 然後 Parent 會切換 focus

那改成如下的方式, 應該就可以抓得到 VK_UP 等鍵了

    procedure CMDialogKey(Var Msg: TWMKey); message CM_DIALOGKEY;    procedure TForm1.CMDialogKey(Var Msg: TWMKEY);
begin
  if (ActiveControl = CheckBox1) then begin
    case Msg.Charcode of
      VK_UP, VK_PRIOR: Edit1.SetFocus; // 往下鍵 / PageUp 鍵      
      VK_DOWN, VK_NEXT: Edit2.SetFocus; // 往上鍵 / PageDown 鍵 
    end;
  end;
  inherited;
end;

-- Believe the unbelievable.

引言:

引言:

引言:

引言: hagar兄: 在 CheckBox 內的 ONKeyDown 是無法 爪到 VK_UP & VK_DOWN 因為它 CheckBox 會 將 這兩個key 直接 傳給 Parent 然後 Parent 會切換 focus

那改成如下的方式, 應該就可以抓得到 VK_UP 等鍵了

    procedure CMDialogKey(Var Msg: TWMKey); message CM_DIALOGKEY;    procedure TForm1.CMDialogKey(Var Msg: TWMKEY);
begin
  if (ActiveControl = CheckBox1) then begin
    case Msg.Charcode of
      VK_UP, VK_PRIOR: Edit1.SetFocus; // 往下鍵 / PageUp 鍵      
      VK_DOWN, VK_NEXT: Edit2.SetFocus; // 往上鍵 / PageDown 鍵 
    end;
  end;
  inherited;
end;

-- Believe the unbelievable.

hagar兄: 你好 CMDialogKey 我要放在 form1.onkeyDowm call 他嗎?? 我試過,但 CMDialogKey 必須傳入 TWMKEY type 但我不知如何將 onkeydown 之 key (word) 如何轉成 TWMKEY ??還煩您教導.tks!!

type TForm1 = class(TForm) Edit1: TEdit; CheckBox1: TCheckBox; Edit2: TEdit; procedure CheckBox1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure CheckBox1KeyPress(Sender: TObject; var Key: Char); private { Private declarations } //放在這裡 procedure CMDialogKey(Var Msg: TWMKey); message CM_DIALOGKEY; public { Public declarations } end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Ord(key) ... 
end;

引言:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Ord(key) ... 
end;

-- Believe the unbelievable.

是這樣嗎??還是不行 procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin CMDialogKey(ord(key)); // 型態不對 end;

引言: 您在 TForm 的 KeyPress 事件中要做什麼事？ -- Believe the unbelievable.