Скачать: CL | DM;

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

← →
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]

Что именно?

---

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

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

---

← →
Sairex ©   (2007-10-09 16:18) [15]

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

---

← →
clickmaker ©   (2007-10-09 16:24) [16]

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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.012 c