送分来了，仅有的40分全部送上-DELPHI主窗口退出时的选择问题（十万火急）(40分)

S

sunny_ok

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-14

• #1

我用DELPHI开发了一个界面，我想在退出时做一下选择，
类似于“您是否真的要退出”，选择‘确定’退出，
选择‘放弃’DO NOTHING，我用MESSAGEBOX时发现有些问题
哪为大虾能为小弟解决燃眉之急，40分全部送上

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-14

• #2

你用MESSAGEBOX时发现有些问题？具体什么问题啊？

 

N

netwind

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-14

• #3

function yesno(sttitle,stinfo:string):boolean;
var
r:integer;
begin
r:=messageboxa(0,pchar(stinfo),pchar(sttitle),MB_YESNO+MB_ICONQUESTION);
result:=(r=6);
end;


procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if not yesno('现在关闭?','确认') then
CanClose := False
else
begin
...
end;

end;
有问题吗？

 

C

CathyEagle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-14

• #4

有什么问题麻烦你说清楚。

 

P

pxlei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-14

• #5

认真看看messagebox的帮助，应该是不会有问题的。

 

S

sunny_ok

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-14

• #6

netwind
你好，我试了试不行
提示说YESNO 后参数太多，WHY
劳烦您了

 

N

netwind

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-14

• #7

应该可以啊，
是不是你也有一个YESNO的函数，和上面的YESNO申明的不同

 

S

sunny_ok

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-14

• #8

netwind
你的我几乎没有动，你看我是这样加上去的
private
function yesno:boolean;
{ Private declarations }
public
{ Public declarations }
end;

var
Frm_TransactMain: TFrm_TransactMain;

implementation

uses Uit_ModifyPass, Uit_Close, Uit_Identify;

{$R *.DFM}

procedure TFrm_TransactMain.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
begin
if not yesno('放弃','确认') then
CanClose := False
else
begin

end;

end;

end;
function yesno(sttitle,stinfo:string):boolean;
var
r:integer;
begin
r:=messagebox(0,pchar(stinfo),pchar(sttitle),MB_YESNO+MB_ICONQUESTION);
result:=(r=6);
end;
再帮我看看，多谢！

 

N

netwind

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-14

• #9

private
function yesno:boolean;//这里不要，去掉就行
{ Private declarations }
public
{ Public declarations }
end;

 

N

netwind

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-14

• #10

该成这样应该就可以了
private
...
{ Private declarations }
public
...
{ Public declarations }
end;

var
Frm_TransactMain: TFrm_TransactMain;

implementation

uses Uit_ModifyPass, Uit_Close, Uit_Identify;

{$R *.DFM}
function yesno(sttitle,stinfo:string):boolean;
var
r:integer;
begin
r:=messagebox(0,pchar(stinfo),pchar(sttitle),MB_YESNO+MB_ICONQUESTION);
result:=(r=6);
end;
procedure TFrm_TransactMain.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
begin
if not yesno('放弃','确认') then
CanClose := False
else
begin

end;

end;

end;

 

S

sunny_ok

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-15

• #11

netwind
一切OK了，多谢！