MEMO中的光标 能不能在MEMO中控制光标?如UP DOWN LEFT RIGHT等操作 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 SendMessage(richedit1.Handle,WM_VSCROLL,SB_PAGEDOWN,0);这个是滚动的操作,楼主的那个上下左右的举一反三就可以了。祝:身体健康,结贴长信誉!:) 严禁罐水!!!!!!!!!!!!!!如果是向上是不是SendMessage(richedit1.Handle,WM_VSCROLL,SB_PAGEUP,0);?? 不会讲话可以写代码!!procedure TForm1.Button1Click(Sender: TObject);beginSendMessage(memo1.Handle,WM_KEYDOWN,vk_DOWN,1);memo1.SetFocus;end;procedure TForm1.Button2Click(Sender: TObject);beginSendMessage(memo1.Handle,WM_KEYDOWN,vk_up,1);memo1.SetFocus;end;procedure TForm1.Button3Click(Sender: TObject);beginSendMessage(memo1.Handle,WM_KEYDOWN,vk_left,1);memo1.SetFocus;end;procedure TForm1.Button4Click(Sender: TObject);beginSendMessage(memo1.Handle,WM_KEYDOWN,vk_right,1);memo1.SetFocus;end;祝:身体健康,分数和答案一样重要:) 调用DLL后如何让窗体左上角图标随主程序 好书啊 请指错!!! 单元初始化代码什么时候被执行的?(initialization) 女生真的不适合搞软件吗~? 为何LogonUser+xp可以正常运行,而LogonUser+WIN2000就不能正常 请问:使用ClientSocket能否指定端口? 在delphi中如何实现综合查询? 关于delphi和C#互相调用dll的问题? 关于Delphi安装程序的设置 做软件的升级补丁是不是只能把以前的整个"main.exe"覆盖掉?能不能只是修改其中的一部分东西? 几个小问题,谁先答出谁先得分!
begin
SendMessage(memo1.Handle,WM_KEYDOWN,vk_DOWN,1);
memo1.SetFocus;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
SendMessage(memo1.Handle,WM_KEYDOWN,vk_up,1);
memo1.SetFocus;
end;procedure TForm1.Button3Click(Sender: TObject);
begin
SendMessage(memo1.Handle,WM_KEYDOWN,vk_left,1);
memo1.SetFocus;
end;procedure TForm1.Button4Click(Sender: TObject);
begin
SendMessage(memo1.Handle,WM_KEYDOWN,vk_right,1);
memo1.SetFocus;
end;祝:身体健康,分数和答案一样重要:)