procedure TForm1.memo1KeyPress(Sender: TObject; var Key: Char);
begin
statusbar1.Panels[2].text:='行:'+inttostr(memo1.CaretPos.y)+';列:'+inttostr(memo1.CaretPos.x);
end;
程序如上,功能是在有键按下是显示当前的光标位置。再执行时按方向键就没响应,但是其他键有响应!!大家看看为什么?
begin
statusbar1.Panels[2].text:='行:'+inttostr(memo1.CaretPos.y)+';列:'+inttostr(memo1.CaretPos.x);
end;
程序如上,功能是在有键按下是显示当前的光标位置。再执行时按方向键就没响应,但是其他键有响应!!大家看看为什么?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货