我想把edit1 lisbox1 memo1,中edit1设置成焦点....报错...(30)

楚辞

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject); var s:string;begin OpenDialog1.Filter := '文本文件 '; OpenDialog1.FileName := '*.txt ';if Opendialog1.Execute then begin edit1.Text :=opendialog1.FileName; s:=Opendialog1.FileName; // memo1.Lines.Add(s); listbox1.Items.Add(ExtractFileName(s)); // memo1.Lines.Add(extractfilepath(s)); Memo1.lines.loadfromfile(OpenDialog1 .filename);end; end;procedure TForm1.FormCreate(Sender: TObject);begin edit1.SetFocus;//这好象不能设.....end;
 
H

huanyi

Unregistered / Unconfirmed
GUEST, unregistred user!
在formshow中试试或者先加一个判断 if edit1.canfocus then edit1.SetFocus
 
S

szhcracker

Unregistered / Unconfirmed
GUEST, unregistred user!
把edit1的TabOrder属性设成0即可。
 
7

75557032

Unregistered / Unconfirmed
GUEST, unregistred user!
在窗体FormCreate事件中,不能用Edit1.SetFocus,Edit1.SetFocus只能用在FormShow事件里,在FormCreate事件中可以Windows.SetFocus(Edit1.Handle);或者SendMessage(Edit1.Handle,WM_LBUTTONDOWN,0,0);SendMessage(Edit1.Handle,WM_LBUTTONUP,0,0);来完成焦点的给与
 

楚辞

Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。
 

Similar threads

顶部