急急急 ( 积分: 100 )

Q

qilusoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-01

• #1

急急急
如何用sendmessage点击按钮让combox获得焦点，并且自动执行回车事件？
procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if Key =#13 then
Self.Caption :='ok';
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ComboBox1.Text :='4';
ComboBox1.SetFocus ;
end;

procedure TForm1.ComboBox1Enter(Sender: TObject);
begin
//sendmessage 此处如何实现 ，或者sendmessage代码应该放在哪里？
end;

 

Q

qilusoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-01

• #2

急急急
如何用sendmessage点击按钮让combox获得焦点，并且自动执行回车事件？
procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if Key =#13 then
Self.Caption :='ok';
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ComboBox1.Text :='4';
ComboBox1.SetFocus ;
end;

procedure TForm1.ComboBox1Enter(Sender: TObject);
begin
//sendmessage 此处如何实现 ，或者sendmessage代码应该放在哪里？
end;

 

来

来如风

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-01

• #3

SendMessage(ComboBox1.Handle,WM_SETFOCUS,0,0);//让你的combobox获得焦点

SendMessage(ComboBox1.Handle,WM_KEYDOWN,VK_RETURN,0);//发送keydown事件，

SendMessage(BitBtn1.Handle,BM_CLICK,0,0);//给你的bitbtn发送点击事件，
你自己看着用吧，

 

R

royal1442

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-01

• #4

procedure TForm1.Button1Click(Sender: TObject);
var
Key: Char;
begin
Key := #13;
ComboBox1.SetFocus;
ComboBox1.OnKeyPress(ComboBox1, Key);
end;

 

Q

qilusoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-01

• #5

to 来如风:有qq吗，我的58116689，请教一下。

 

Q

qilusoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-01

• #6

royal1442你在的话也加我一下

 

Q

qilusoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-01

• #7

SendMessage(ComboBox1.Handle,WM_KEYDOWN,VK_RETURN,0);//发送keydown事件
怎么实现在combox1获得焦点时执行回车键呢。这样还是没有执行 Self.Caption :='ok';

 

R

royal1442

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-01

• #8

如果只是实现“点击按钮让combox获得焦点，并且自动执行回车事件”的功能，则没有必要那么麻烦！（个人观点！）

 

Q

qilusoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-02

• #9

问题解决了，单纯实现上面的功能来说，两位说的都有可以实现，我也不是为了单纯实现上面的功能，否则真没必要这么麻烦。
我在实际应用中要用点击按钮代替combox，不得不这么做，没办法
谢谢。