一个小问题:如何让控件获得焦点???(10分)

  • 主题发起人 风月剑客
  • 开始时间

风月剑客

Unregistered / Unconfirmed
GUEST, unregistred user!
例如我有一个窗体,在窗体上可能有文本框还有其它几个控件,
我想让光标在第一个文本框内,不是在其它文本框,更不是其它控件上。
如何做???
 
edit1.SetFocus;
 
正如楼上兄弟说的,在窗体的create事件中添加edit1.SetFocus;
 
EDIT1.TabOrder:=0
 
edit1.SetFocus;
以下按回车时焦点转移:
procedure Tszlr.DateTimePicker1KeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin
if key=13 then
FocusControl(FindNextControl((sender as TWinControl),True,False,False));
end;
 
procedure Tfrmfindcar.FormCreate(Sender: TObject);
begin
self.ActiveControl:=edit1;
end;
给分吧!
 
在窗体的create事件中写上控件名.SetFocus就可以了,用:sqgszxy的方法可以改变获得焦点的控件。
 
edit.setfocus;
 
edit.setfocus;
 
顶部