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

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;

在formshow中试试或者先加一个判断 if edit1.canfocus then edit1.SetFocus

把edit1的TabOrder属性设成0即可。

在窗体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);来完成焦点的给与

多人接受答案了。