5,391
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
scater 2003-06-10
- 打赏
- 举报
真佩服 linzhisong(無聊) zswang(伴水清清)(专家门诊清洁工) ，小虾的问题解决了。
谢谢！！
谢谢！！
Linux2001 2003-06-10
- 打赏
- 举报
和我抢分的人真是多
HanJingJingHan 2003-06-10
- 打赏
- 举报
有星星的就是不一样，谢了
ksaiy 2003-06-10
- 打赏
- 举报
收藏~~~~
wooden954 2003-06-09
- 打赏
- 举报
学习ing
xxl820 2003-06-09
- 打赏
- 举报
别开生面呀,一位利用WINDOWS函数,一位利用控件特性.佩服!!!!!!
王集鹄 2003-06-09
- 打赏
- 举报
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
VK_RETURN: begin
{ ComboBox1.SetFocus; }
ComboBox1.DroppedDown := True;
end;
end;
end;
Shift: TShiftState);
begin
case Key of
VK_RETURN: begin
{ ComboBox1.SetFocus; }
ComboBox1.DroppedDown := True;
end;
end;
end;
linzhisong 2003-06-09
- 打赏
- 举报
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
SendMessage(combobox1.Handle,CB_SHOWDROPDOWN,1,1);
end;
begin
if key=#13 then
SendMessage(combobox1.Handle,CB_SHOWDROPDOWN,1,1);
end;
