两个小问题（200分）(200分)

J

jackyy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #1

问题1：请问如何使回车键（#13）和“确定”按钮相关联。（例如在edit1中输入完
密码后，按回车键就相当于 触发 button.onclick事件）?
问题2：application.messagebox具体的用法？
都是两个基本的小问题，小弟实在是有些愚笨，望大家帮忙帮忙。不甚感谢！！！

 

草

草央包包

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #2

1.将button的default设为true
2.看帮助

 

来

来如风

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #3

就是呀，帮助里面写的很清楚了 ，

 

Y

ysai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #4

//Form的KeyPreview设为真后
procedure TLogInForm.FormKeyPress(Sender: TObject; var Key: Char);
//Esc退出,Enter确认
begin
inherited;
if key=#13 then
begin
key:=#0;
if ActiveControl=bCancel then
bCancelClick(bCancel)
else
bOkClick(bOk);
end;
if key=#27 then
begin
key:=#0;
bCancelClick(bCancel);
end;
end;
//========
function MsgBox(Msg:Variant;Title:string='';Flag:longint=0):integer;
//简化MessageBox函数
begin
if length(title)=0 then title:=SAppName;
if flag=0 then flag:=MB_OK + MB_ICONINFORMATION;
Result:=application.MessageBox(pchar(vartostr(Msg)),pchar(Title),flag);
end;

 

Z

zhiwuyang602

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #5

bang zhu you a
kan yi xia ba !

 

I

iseek

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #6

问题1——
如果只针对EDIT1将回车与BUTTON关联，可以这样：
1：在BUTTON的ONCLICK事件中写响应代码；
2：在EDIT1的ONKEYDONW事件中写下面一行即可：
if integer(key)=13 then ButtonClick(sender);
ysai说的“Form的KeyPreview设为真后”是指整个Form而言。

问题2——
Application.MessageBox('在这里写信息', '提示', MB_OK);
注意，第一项里如果有变量，需要加PChar(...)

呵呵，有半年多没有回答过问题了。

 

M

micro73

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-08

• #7

1......
2.Application.MessageBox(0,'在这里写信息', '提示', MB_OK);

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-08

• #8

1。procedure TForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
Button.Click;
end;
2。Application.MessageBox('你好 ！ ','问候信息',MB_OK+MB_ICONINFORMATION);

[]

 

Z

zjting

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-08

• #9

同意楼上的，

 

W

wxkabc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-09

• #10

1、在Edit和OnKeyPress事件中写如下代码：
if Key = PChar(VK_RETURN) then
Button1.Click;
2、也可以这样用
MessageBox(Handle,'提示信息','提示框标题',MB_OK or MB_ICONINFORMATION);
如：
if MessageBox(Handle,'是否关闭？','提示',MB_YESNO or MB_ICONINFORMATION) = ID_YES then
Form1.Close;

 

K

komaz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-09

• #11

使回车键（#13）和“确定”按钮相关联
最简单的，有个EnterTab控件可以实现

 

F

fshrq1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-09

• #12

if key=#13 then
button1click(sender);

 

K

KingLongSoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-09

• #13

在edit1的KeyPress事件中写如下代码：
if Key=#13 then
Button1.Click;

 

荷

荷塘新月

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-09

• #14

application.messagebox共有三个参数，前两个是PCHAR类型，分别是提示信息和标题，
第三个是表示是否显示图标以及显示何种图标。根据我的经验，
application.messagebox('','',4+16)：显示红色的叉号；
application.messagebox('','',4+32)：显示问号；
application.messagebox('','',4+48)：显示黄色的感叹号
application.messagebox('','',4+64)：显示i这种图标。