請問如果我'動態'產生物件要將Enter鍵模擬Tab鍵功能亦即User按Enter到下一物件 因為我若在Design時就產生物件沒問題,但是動態產生物件有進入該事件(Form1.Keypress)但是卻沒有移到下一物件請問是何原因 動態產生物件之parent為動態產生之pageControl之TabSheet

Just out of curiosity, how do you simulate the 'Tab'?

程式如下: If key = #13 then begin key := #0; perform(WM_NEXTDLGCTL, 0, 0); end; 為何其移動不會按照Taborder順序 但若按Tab鍵會照順序移動請問其原因??

I have created a simple test program using Delphi 7 and found no problem, i.e. can change focus to the next control. Could you please give more details on your application?

引言: I have created a simple test program using Delphi 7 and found no problem, i.e. can change focus to the next control. Could you please give more details on your application?

我的Form是直接讀*.dfm其為對應*.pas因為其dfm有其Taborder之屬性 合理應可執行才對,因為按Tab鍵可以,為何用 Enter不行

Here is my test program. I have tried changing TabOrder of Edit7 and Edit8 and found no problem  < class="code">unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; procedure Edit1KeyPress(Sender: TObject; var Key: Char); procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private { Private declarations } Edit7: TEdit; Edit8: TEdit; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if Key=#13 then begin key := #0; perform(WM_NEXTDLGCTL, 0, 0); end; end; procedure TForm1.FormCreate(Sender: TObject); begin Edit7:= TEdit.Create(self); Edit8:= TEdit.Create(self); with Edit7 do begin Parent := TabSheet2; Left := Edit4.Left; Top := Edit4.Top 20; OnKeyPress := Edit1KeyPress; end; with Edit8 do begin Parent := TabSheet2; Left := Edit4.Left; Top := Edit4.Top 40; OnKeyPress := Edit1KeyPress; end; end; procedure TForm1.FormDestroy(Sender: TObject); begin Edit7.Free; Edit8.Free; end; end.