Форум: "Начинающим";
Текущий архив: 2006.06.04;
Скачать: [xml.tar.bz2];

Вниз

свернуть окно   Найти похожие ветки 

← →
Graf ©   (2006-05-18 17:01) [0]

Доброго времени суток всем. Подскажите пожалуйста как сделать так чтобы нажав на кнопку закрыть в заголовке окна форма не закрывалась а сворачивалась

---

← →
dimodim   (2006-05-18 17:09) [1]

по єкспериментируй с closequery , там ставиш action:=minimize
Неуверен что правильно, но где-то так

---

← →
DevilDevil ©   (2006-05-18 17:18) [2]

//Form1.OnCloseQuery
CanClose := false;
//Form1.Minimize;
// или
Application.Minimize;

Чтобы закрыть приложение (по другой кнопке), пиши:
Application.Terminate;

---

← →
easy ©   (2006-05-18 17:31) [3]

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;

type
 TForm1 = class(TForm)
   Button1: TButton;
   procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
   gEndSession:boolean;
   procedure WMQueryEndSession(var message: TWMQueryEndSession); message WM_QUERYENDSESSION;
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.WMQueryEndSession(var message: TWMQueryEndSession);
begin
 message.Result := 1;
 gEndSession := True;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 if not gEndSession then begin
   CanClose := false;
   Application.Minimize;
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 gEndSession := True;
 close;
end;

end.

---

← →
Плохиш ©   (2006-05-18 17:35) [4]

> Graf ©   (18.05.06 17:01)  


procedure TForm1.FormCreate(Sender: TObject);
begin
 bProgExit := false;
 ...
end;

procedure TForm1.btnExitClick(Sender: TObject);
begin
 bProgExit := true;
 Close;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 if bProgExit then CanClose := true
 else
 begin
   CanClose := false;
   if WindowState <> wsMinimized then WindowState := wsMinimized;
 end;
end;


---

← →
Marser ©   (2006-05-18 19:35) [5]

> Graf ©   (18.05.06 17:01)
> Доброго времени суток всем. Подскажите пожалуйста как сделать
> так чтобы нажав на кнопку закрыть в заголовке окна форма
> не закрывалась а сворачивалась

Событие OnCloseQuery позволяет обрабаывать команду на закрытие формы по-своему.

---

← →
graf ©   (2006-05-19 12:42) [6]

Всем огромное спасибо. Полегчало :-)

---

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

Форум: "Начинающим";
Текущий архив: 2006.06.04;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.039 c