超简：通过onclose事件能使form无法关闭么？(50分)

我

我爱大富翁

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-24

• #1

if can ,how?if can't ,how can?(delphi6).thank you.

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-24

• #2

Action:=CaNoNe;

 

橡

橡皮巴

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-24

• #3

sure
onclose event
action:=canone
then
ok

 

B

bobotea

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-24

• #4

Abort;

 

W

wcwcw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-24

• #5

//OnCloseQuery
procedure TForm1.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
if MessageDlg('Close the form?', mtConfirmation,
[mbOk, mbCancel], 0) = mrCancel then
CanClose := False;
end;
//OnClose
procedure TForm1.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
if MessageDlg('Close application ?', mtConfirmation,
[mbYes, mbNo], 0) = mrYes then
Action := caFree
else
Action := caNone;
end;

 

W

westboy2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-24

• #6

procedure TForm1.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
if ... then

abort;
end;

 

W

wlmmlw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-24

• #7

Action:=CaNone;

 

花

花 儿

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-24

• #8

你要干什么？用closerequest不就可以了？

 

J

jsongy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-24

• #9

action:=canone是无法关闭
action:=cafree是关闭

 

蛤

蛤蟆跳井，不懂不懂

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-24

• #10

声明一个全局变量 cc:boolean;
在自己的关闭按钮的Onclick事件中加入：
begin
cc:=true;
close;
end;

在OnCloseQuery中加入：
begin
if cc=false then
canclose:=false;
end;

这样除了你自己的按钮，就再没其它方法关闭啦。
我还没用过Delphi 6 呢，应该也可以的吧。

 

H

hamsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-24

• #11

基本同意以上几位的说法

 

F

falling_star

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-25

• #12

大家的回答已经够多了，都可以。wcwcw的回答比较详细。

 

晓

晓风月

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-25

• #13

if ... then
Action := caFree
else
Action := caNone;

 

我

我爱大富翁

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-28

• #14

使用了不懂兄的办法，另外每人有参与奖1分

 

Y

yuzhizhi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-28

• #15

难道想做一个监视程序吗？

 

请

请多指教

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-07

• #16

在 CLOSEQUERY 事件中
begin
canclose:=false;
end

 

M

minkerui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-09

• #17

action:=canone

 

阳

阳光游子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-09

• #18

Action:=CaNone;

 

L

ljj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-09

• #19

procedure TForm1.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
if MessageDlg('Close application ?', mtConfirmation,
[mbYes, mbNo], 0) = mrYes then
Action := caFree
else
Action := caNone;
end;

 

W

wlmmlw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-09

• #20

caFree在MDIChild窗口中不能使用！！！！
要使窗口不关闭用caNone
要关闭 aForm.Free;
aForm := nil;