如何做到 按 enter 鍵讓 form 上的 Tedit ,TmaskEdit 焦點可以移動 在edit的keypress里写if key=#13 then postmessage(edit1.handle,wm_keydown,vk_tab,0); 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Button1: TButton; procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if key=13 then postmessage(handle,wm_keydown,vk_tab,0);end;end. 还应该加上设置form1.Keypreview:=true; 无聊中看到一个HOOK函数,遇到一小问题,请指教 各位大侠,谁知道过滤黄色网站或其他不良网站的原理是什么啊? 100分赠送,Internet网服务器连接问题,希望大家一起解决!(来者有分) 原创。通过窗体的类名(字符串)的情况下,创建一个该窗体实列 求高手,关于网络状态 我下载的了fastreport但是好像是其他文字的,全是乱码 DELPHI多窗口问题 串口通讯 请帮帮我!特急! 还是ActiveForm的问题 delphi里的例子程序csdemos 为什么用不了?? 关于MScomm的注册问题,急等.再请说明一下加分的方法.准加
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Button1: TButton;
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then postmessage(handle,wm_keydown,vk_tab,0);end;end.
设置form1.Keypreview:=true;