Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

r.o.o.t © (2007-10-09 13:01:00)
Господа подскажите как сделать, чтобы при нажати правой верхней кнопки Х на главной форме приложения, приложение не закрывалось а
главная форма сворачивалась?
дайте код плиз:??

LENIN_INC (2007-10-10 13:23:00) [1]
Удалено модератором

TSNamir@mail.ru (2007-10-10 08:45:00) [2]
Если не работает, значит руки не оттуда ростут

ASoft (2007-10-09 17:11:00) [3]
в FormCloseQuery():
// например, при нужном условии
begin
CanClose:=False;
self.WindowState:=wsMinimized //или Application.Minimize;
end;

clickmaker (2007-10-09 16:24:00) [4]
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;

Sairex (2007-10-09 16:18:00) [5]
FormClose(Sender:TObject; Action:TCloseAction);
Begin
Form.WindowState:=wm_minimized;
Action:=caNone;
End;
Насчет Form.WindowState:=wm_minimized; я в правильности написания не уверен.

r.o.o.t (2007-10-09 16:07:00) [6]
приложение всеравно закрывается
а нужно чтоб сворачивалось

Dib@zol (2007-10-09 15:54:00) [7]
Что именно?

r.o.o.t (2007-10-09 15:53:00) [8]
блин а неработает..........

r.o.o.t (2007-10-09 15:40:00) [9]
ггы спасибо

TSNamir@mail.ru (2007-10-09 15:26:00) [10]
Гы :-) Я первый :-)

Dib@zol (2007-10-09 15:24:00) [11]
Плин, не успел :)

Dib@zol (2007-10-09 15:23:00) [12]
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;

TSNamir@mail.ru (2007-10-09 15:21:00) [13]
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.

Leonid Troyanovsky (2007-10-09 15:19:00) [14]

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

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

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

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

--
Regards, LVT.

r.o.o.t (2007-10-09 15:07:00) [15]
FormClose
Action:=caHide;

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

Leonid Troyanovsky (2007-10-09 14:35:00) [16]

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

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

& WM_QUERYENDSESSION processing

--
Regards, LVT.

clickmaker (2007-10-09 13:04:00) [17]
OnClose - TCloseAction

Desdechado (2007-10-09 13:03:00) [18]
FormClose
Action:=caHide;

Маша Шрайбер (2007-10-09 13:03:00) [19]
Удалено модератором
Примечание: Offtopic

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »