VPF::Сворачивание вместо закрытия - Форум программистов

Uragan

Дата 11.8.2009, 01:34 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 139
Регистрация: 29.10.2005

Репутация: нет
Всего: 0

Вообщем как запретить закрытие я знаю.
CanClose :=false;
Application.Minimize;

а как сделать все таки чтобы при нажатии кнопки Button1 форма все таки закрывалась.
Делал флаг и в CloseQuery проверял флаг но приходится еще раз жать на крестик, а мне нужно чтобы кнопка Button1 закрывала а крестик сворачивал. Форма главная.

Frees

Дата 11.8.2009, 06:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54

Application.Terminate;

--------------------

Кольцов Виктор Владимирович

former

Дата 11.8.2009, 09:12 (ссылка)

(нет голосов)

Загрузка ...

MEMS Expert

Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 4
Всего: 17

Цитата(Uragan @ 11.8.2009, 01:34

)

Делал флаг и в CloseQuery проверял флаг но приходится еще раз жать на крестик

Значит что-то не так делал.

Цитата(Frees @ 11.8.2009, 06:52

)

Application.Terminate;

Frees, зачем так жестко?

Можно же вот так:

Код


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 }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  ccc:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ccc:=1;
  Close;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if ccc=1 then
    CanClose:=true
  else
  begin
    CanClose:=false;
    Application.Minimize;
  end;
end;

end.

Это сообщение отредактировал(а) former - 11.8.2009, 09:16

--------------------

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

Данкинг

Дата 11.8.2009, 09:28 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

former, только обычно "типа крутые программеры" используют в подобных случаях не переменную, а Button1.Tag. smile

--------------------

There's nothing left but silent epitaphs.

former

Дата 11.8.2009, 09:43 (ссылка)

(нет голосов)

Загрузка ...

MEMS Expert

Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 4
Всего: 17

Данкинг, это для наглядности. smile

--------------------

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

Uragan

Дата 11.8.2009, 11:11 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 139
Регистрация: 29.10.2005

Репутация: нет
Всего: 0

СпасибО! Так же делал, но у меня трей икон не на главнйо форме, поэтому просто Close, не работал...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »