StringGrid中如何实现:用回车键(Key = #13)实现(↓ VK_DOWN)的功能?
也就是说:回车后光标移到下一行,最好详细代码.
也就是说:回车后光标移到下一行,最好详细代码.
解决方案 »
- 如何构造一个类????????
- 急急急 delphi的asm怎么对串口操作没有反映?delphi高手请进.
- FasReport 输出文件时,转换成Excel时,不能一列对一列的导出成Excel 的列数
- 日期类型问题
- 我想做一个用户可以自定义的报表,大家有什么好方法。推荐者有分!
- 我初学delphi,请问我如何在窗体中加入不在表中的控件呢,请详细说明,谢谢
- 请问,如何可以实现永远在windows的最前边,
- 请问高手如何在DELPHI中去掉自己加入的第三方OCX控件?80分给你
- 关于dblookupcombobox?
- delphi怎么实现这张图?用Dbgrid或DbgridEh能实现吗?
- XML读取问题
- 求可逆字符加密算法,密文只能由0..9组成 ?
Shift: TShiftState);
begin
if Key = VK_RETURN then
Key := VK_DOWN;
end;
procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_RETURN then
PostMessage(StringGrid1.Handle, WM_KEYDOWN, VK_DOWN, 0);
end;
Shift: TShiftState);
begin
if Key = VK_RETURN then
Key := VK_DOWN;
end; procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_RETURN then
PostMessage(StringGrid1.Handle, WM_KEYDOWN, VK_DOWN, 0);
end;这两种方法都可以的。