发信人: bird_lee()
整理人: teleme(2000-12-06 19:47:45), 站内信件
|
【 在 zhangzgweida (zzg) 的大作中提到: 】
: 我想在memo中控制光标的移动,如按一下 [right] 将光标向右移动两格,
: 请众高手指点一下.
procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=VK_RIGHT then SendMessage(Memo1.handle,WM_KEYDOWN,VK_RIGH T,1);
end;
-- Delphi Fans
http://delfan.yeah.net
Delphi Fans,技巧集(太多了),控件,源码
※ 来源:.月光软件站 http://www.moon-soft.com.[FROM: 202.101.113.205]
|
|