请问两个RICHEDIT中如何保持相同状态？

[johnsonrao]

今天碰到的问题，总结一下：

一个Form中有两个RichEdit;在按下Ins键时只有其中一个响应，（有焦点的那个）
请问要如何控制才能达到按一次Ins两个同时切换状态（插入/改写）

我的想法是在其中之一按INS时，将焦点转到第二个，并调用keybd_event()来模拟INS按键，但没有成功，现在一片混乱，请各位帮忙！

其中以下代码可以模拟INS按键
keybd_event(VK_Insert,MapVirtualKey(VK_INSERT,0),0,0);

[surfguy]

以前有人提到一个相同的问题，我觉得可能要设个变量，比如对richedit1做了key方面的操作，倒致了insert键状态的改变，就用那个变量存起来，到richedit2.onenter时，就可以模拟按键了。

[robinhunter]

procedure TForm1.RichEdit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_insert then sendmessage(richedit1.handle,wm_keydown,vk_insert,0);
end;

procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_insert then sendmessage(richedit2.handle,wm_keydown,vk_insert,0);
end;

[robinhunter]

procedure TForm1.RichEdit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_insert then sendmessage(richedit1.handle,wm_keydown,vk_insert,0);
end;

procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_insert then sendmessage(richedit2.handle,wm_keydown,vk_insert,0);
end;

[johnsonrao]

我试成功了!

var b1:boolean;

b1:=false;

procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_insert then
begin
if not b1 then
begin
b1:=True;
sendmessage(richedit2.handle,wm_keydown,vk_insert,0);
end;
end;
b1:=False;
end;

procedure TForm1.RichEdit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_insert then
begin
if not b1 then
begin
b1:=True;
sendmessage(richedit1.handle,wm_keydown,vk_insert,0);
end;
end;
b1:=False;
end;

[codingfans]

不明白，帮你提！

[greencoding]

我也学了一招!

[johnsonrao]

keybd_event(VK_Insert,MapVirtualKey(VK_INSERT,0),0,0);　也行！
来的都有分，结贴！

[surfguy]

我也学了一招