Закрытие формы

← →
r.o.o.t © (2007-10-09 13:01) [0]

Господа подскажите как сделать, чтобы при нажати правой верхней кнопки Х на главной форме приложения, приложение не закрывалось а
главная форма сворачивалась?
дайте код плиз:??

← →
Desdechado © (2007-10-09 13:03) [1]

FormClose
Action:=caHide;

← →
Маша Шрайбер (2007-10-09 13:03) [2]

Удалено модератором
Примечание: Offtopic

← →
clickmaker © (2007-10-09 13:04) [3]

OnClose - TCloseAction

← →
Leonid Troyanovsky © (2007-10-09 14:35) [4]

> Desdechado © (09.10.07 13:03) [1]
> FormClose

> clickmaker © (09.10.07 13:04) [3]
> OnClose - TCloseAction

& WM_QUERYENDSESSION processing

--
Regards, LVT.

← →
r.o.o.t © (2007-10-09 15:07) [5]

FormClose
Action:=caHide;

приложение закрывается как сделать
чтоб незакрывалось??

← →
Leonid Troyanovsky © (2007-10-09 15:19) [6]

> r.o.o.t © (09.10.07 15:07) [5]

> приложение закрывается как сделать

http://www.rsdn.ru/Forum/?mid=897503

Добавь в WndProc обработку WM_QUERYENDSESSION

--
Regards, LVT.

← →
TSNamir@mail.ru (2007-10-09 15:21) [7]

type
TForm1 = class(TForm)
private
{ Private declarations }
procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
case Message.CmdType of
SC_CLOSE:
Message.CmdType := SC_MINIMIZE ;
end;
inherited;
end;

end.

← →
Dib@zol © (2007-10-09 15:23) [8]

type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
protected
procedure SysCmd(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SysCmd(var Msg: TWMSysCommand);
begin
if Msg.CmdType=SC_CLOSE then begin
Application.Minimize;
Msg.Result:=1;
end;
end;

← →
Dib@zol © (2007-10-09 15:24) [9]

Плин, не успел :)

← →
TSNamir@mail.ru (2007-10-09 15:26) [10]

Гы :-) Я первый :-)

← →
r.o.o.t © (2007-10-09 15:40) [11]

ггы спасибо

← →
r.o.o.t © (2007-10-09 15:53) [12]

блин а неработает..........

← →
Dib@zol © (2007-10-09 15:54) [13]

Что именно?

приложение всеравно закрывается
а нужно чтоб сворачивалось

FormClose(Sender:TObject; Action:TCloseAction);
Begin
Form.WindowState:=wm_minimized;
Action:=caNone;
End;
Насчет Form.WindowState:=wm_minimized; я в правильности написания не уверен.

procedure OnWMSysCommand(var Msg: TMessage); message WM_SYSCOMMAND;
...
procedure TForm1.OnWMSysCommand(var Msg: TMessage);
begin
if (Msg.WParam = SC_CLOSE) then begin
Application.Minimize;
Msg.Result := 1;
end;
end;

← →
ASoft (2007-10-09 17:11) [17]

в FormCloseQuery():
// например, при нужном условии
begin
CanClose:=False;
self.WindowState:=wsMinimized //или Application.Minimize;
end;

← →
TSNamir@mail.ru (2007-10-10 08:45) [18]

Если не работает, значит руки не оттуда ростут

← →
LENIN_INC (2007-10-10 13:23) [19]

Удалено модератором

Закрытие формы Найти похожие ветки