Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 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.052 c
15-1146948296
@BraIN
2006-05-07 00:44
2006.06.04
Умер Константин Иванович Бесков


15-1147281259
x.pro
2006-05-10 21:14
2006.06.04
Срочно! Помогите пожалуйста!


6-1135231175
Asail
2005-12-22 08:59
2006.06.04
Вопрос по авторизации в IIS под CGI (delphi)...


6-1138956468
Black Krok
2006-02-03 11:47
2006.06.04
Как БЫСТРО проверить доступность http: IP-адреса в И-нете?


1-1146310830
DARKir
2006-04-29 15:40
2006.06.04
Картинка на SpeedButton





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский