Форум: "Начинающим";
Текущий архив: 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.042 c