Hi,各位先進大家好:
請教比較適合的寫法:
假設Form上有10個TEdit輸入欄位,
其中有一個欄位(Edit5)在使用者按下Tab鍵時先檢查是否要跳下一個欄位,
故加了 CMDialogKey
procedure TForm1.CMDialogKey(var msg: TCMDialogKey);
begin
if Msg.CharCode <> VK_TAB then
inherited;
end;

procedure TForm1.Edit5KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = 9 then
:
:
end;

可是當加了 CMDialogKey, 其他的TEdit在按下Tab時就不會自動跳下一個欄位,
請教除了在每一個TEdit中的KeyDown事件處理跳下一個欄位之外,有沒有比較簡漯的辦法?
謝謝!

Hi blue,

試試下面這段程式, 或許是你想要的?
procedure TForm1.CMDialogKey(var AMessage: TCMDialogKey);
begin
if AMessage.CharCode <> VK_TAB then
inherited
else
begin
if Self.ActiveControl=Edit2 then
begin
showmessage('先做一些事');
end;
SelectNext(self.ActiveControl, True, True);
AMessage.Result := 1;
end;
end;
===================引 用 blue 文 章===================
假設Form上有10個TEdit輸入欄位,
其中有一個欄位(Edit5)在使用者按下Tab鍵時先檢查是否要跳下一個欄位,