如何设置可以delphi中按回车键就相当于按button键来执行button中的程序

如何设置可以delphi中按回车键就相当于按button键来执行button中的程序,比如我在label1中输入用户。label2中输入密码,现在焦点仍然在label2上,我如何只要按回车就可以执行button1中的命令,而不需要将鼠标移至button1来单击button1实现这一过程,需要怎样编程,希望各位高手指点。

第1个回答  推荐于2018-03-29
将Button属性里Default设置为True;
这样按回车直接就按下了Button键本回答被网友采纳
第2个回答  2010-12-20
在Label2的KeyDown事件中判断按键是回车,执行button1.Click本回答被提问者采纳
第3个回答  2010-12-20
一、可以把button的Default的属性设置为True;
二、可以在窗体的Keypress事件里写判断。当然在keydown里面作判断也是一样的。
第4个回答  2010-12-20
再label2的KeyPress事件里写
if key=#13 then
begin
Button1Click(nil);
end;

delphi 如何使用回车键模仿Tab键
回答:先将窗体的KeyPreview属性设为True。然后在FormKeyPress事件中加入以下代码:procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);beginif Key = #13 then { 如果按下了回车键 }beginKey := #0{ 吃掉回车键 }Perform(WM_NEXTDLGCTL, 0, 0); { 移动到下一个控制 }endend这个...

Delphi6 如何给button按钮添加快捷键(回车)
按钮不能添加快捷键。但是你可以在button的caption字母前面加个 & 号,比如 确定(&S) ,这样,按下ALT+S键时,就会触发这个button的click事件。如果你想让回车时触发这个button的click事件的话,就得自己写代码了。比如在edit1的keydown里写上 if key = #13 then button1.click 等等,这样,当你...

如何在Delphi的Form中将Enter的键入自动换为TAB及附带问题?
1.在窗口上点右键,有个tab order可以改变窗口上的tab顺序 2.button上其实也可以实现的,我觉得你可以这样试试。你的主要目的是按回车后直接tab到下一个控件,可以在当前控件比如说你有一个Edit1,在edit1的onkeypress事件下写:if Key=13(或者按你上面的写)then button1.setfocus(); (button1是...

delphi中enter键代替tab键
把FORM1的Keypreview 属性改为TRUE 在KeyPress加上事件 procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);begin if Key = #13 then perform(WM_NEXTDLGCTL,0,0);end;

delphi 密码框写完后按enter直接登录,要怎么写,过后给加分。
当在文本框中输入完毕后,敲回车就相当于按确定键! 二种方法:1、在OnKeyPress事件中判断回车键;2、响应文本框中的OnValidate事件。在文本框的onKeyPress事件中写:if key=#13 then Btn_OkClick(Sender); \/\/Btn_Ok即确定按钮。 form的KeyPreview设置为true; edit1的OnKeyPress中写:if key=#13 ...

delphi中enter键代替tab键用了很多种代码都不行
if Key = #13 then ...postmessage(self.handle,wm_keydown,vk_tab,0);keybd_event(VK_TAB,2,0,0);perform(WM_NEXTDLGCTL,0,0);SelectNext(ActiveControl, True, True);...但是显然用回车代码TAB显然不适合于BUTTON,你在它上面按回车的时候它会执行OnClick,所以不会TAB,你可以用别的键...

delphi新手,写了一个小程序,我想按下F12的时候 ,实现点击button1的功能...
private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.fghfg1Click(Sender: TObject); {快捷键F12 对应的菜单项}begin Form1.Button1Click(Sender);end;procedure TForm1.Button1Click(Sender: TObject)...

delphi如何设置按钮为默认焦点【运行后上面有虚线,按空白键就是点击此...
如果窗体上没有其他的容器(如Panel、GroupBox等)设置按钮的TabOrder为 0 即可 如果有,那可以使用 SetFocus (不能在窗体创建时使用,可用在 OnShow)Button1.SetFocus;或者指定窗体的 ActiveControl 为你的按钮 ActiveControl := Button1;

delphi 怎么表示按下tab键 然后按下button
窗体的keypreview = true 后;还要看是那个控件处理这个keypress;因为很多控件得到windows消息(在本题中是按键消息)后并不把消息放回消息环 你或者每个控件处理一下,或者用WinAPI消息函数来处理,我会选择后者

delphi button如何实现按键按下暂停 再按下启动
GroupIndex:=1;AllowAllup:=true;这样按钮第一次点击时,处于按下状态,第二次点击处于弹击状态,相关代码:with Speedbutton do begin if Down then showmessage('Down')else Showmessage('Up');end;2.如果就是点一下设置一下状态,那就用按键本身的tag属性来Case一下即可 with button do begin ...

相似回答