简单问题,在线等,解决完问题马上结贴

glfwyz 2004-12-19 09:09:39

如何让窗体一打开光标落在TComboBox1里的一个默认字符"光"后,我的窗体类型是fsMDIChild

...全文

140 26 打赏收藏转发到动态举报

写回复

用AI写文章

26 条回复

切换为时间正序

请发表友善的回复…

发表回复

Blakhawk 2004-12-20

打赏
举报

procedure TForm1.FormShow(Sender: TObject);
begin
ComboBox1.SetFocus;
ComboBox1.SelStart := pos('光',ComboBox1.text) ;//参数顺序不记得了
end;

glfwyz 2004-12-20

打赏
举报

没有能帮我吗?很急呀,55555555555555拜托各位了!分少可再加

glfwyz 2004-12-20

打赏
举报

还望anway(狂写代码！狂吃萝卜菜) 多多帮助!~
在下不胜感激~!!~

glfwyz 2004-12-20

打赏
举报

太棒了,非常感谢西门兄和保龄球!

XuDunYu 2004-12-20

打赏
举报

var
editform:Teditform;
a:boolean;
procedure TEditForm.FormShow(Sender: TObject);
begin
a:=true;
end;
procedure TEditForm.FormPaint(Sender: TObject);
begin
if a then
begin
COMBOBOX1.SetFocus;
cOMBOBOX1.SelStart := 2;
COMBOBOX1.SelLength :=0;
a := false;
end;
end;

dejiang 2004-12-20

打赏
举报

写在这里也可以
procedure TForm1.FormPaint(Sender: TObject);
var str:string;
begin
if combobox1.Focused then
begin
str:=combobox1.text;
combobox1.text:='';
combobox1.text:=str;
ComboBox1.SelStart := pos('光',ComboBox1.text)+2 ;
end;
end;

dejiang 2004-12-20

打赏
举报

小弟有个苯办法：将窗体的keypreview属性设为true;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
var str:string;
begin
if combobox1.Focused then
begin
str:=combobox1.text;
combobox1.text:='';
combobox1.text:=str;
ComboBox1.SelStart := pos('光',ComboBox1.text)+2 ;
end;

glfwyz 2004-12-20

打赏
举报

西门兄,还是不行呀,仍是反选状态

XuDunYu 2004-12-20

打赏
举报

procedure TForm1.FormShow(Sender: TObject);
begin
ComboBox1.SetFocus;
ComboBox1.SelStart := pos('光',ComboBox1.text) ;//参数顺序不记得了
Combobox1.SelLength := 0;
end;

glfwyz 2004-12-20