Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Завершение работы приложения

Автор: Dimannn 26.12.2005, 17:59

Если написать хальт, напишет Cannot change visibvle on OnShow.
Неужели всё так плохо, нельзя захальтиться тута.

Автор: Snowy 26.12.2005, 18:02

Нет, тут нельзя. (Для главной формы).

Автор: Демо 26.12.2005, 21:06

Код


type
   TForm1 = class(TForm)
      procedure FormShow(Sender: TObject);
   private
      procedure WMQuit(var Msg: TMessage); message WM_QUIT;
   public
      { Public declarations }
   end;

procedure TForm1.FormShow(Sender: TObject);
begin
   PostMessage(Handle,WM_QUIT,0,0);
end;

procedure TForm1.WMQuit(var Msg: TMessage);
begin
   Close; //или  Halt;
end;

Автор: Guedda 27.12.2005, 16:07

А что, так не пойдет?

Код


procedure TForm1.FormShow(Sender : TObject);
begin
  Form1.Close;
end;

У меня все получается.

Автор: Демо 27.12.2005, 17:22

Цитата(Guedda @ 27.12.2005, 17:07)

У меня все получается.

Действительно, чего огород городить smile