psa1974
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
program Project1;
uses
Windows, Forms, SysUtils,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
procedure DoneApplication;
begin
with Application do
begin
if (Handle <> 0) then
ShowOwnedPopups(Handle, False);
ShowHint:= False;
Destroying;
DestroyComponents;
end;
end;
begin
Application.Initialize;
Form1:= TForm1.Create(Application);
{при таком способе создания формы не запускается механизм создания главной формы, а поскольку главной формы нет, в методе Application.Run не запускается цикл приема и выборки сообщений из очереди сообщений, поэтому петлю сообщений придется реализовать самому}
ShowWindow(Application.Handle, SW_HIDE);
AddExitProc(DoneApplication);
// петля сообщений:
repeat
Application.HandleMessage;
until Application.Terminated;
end.
|
Всего записей: 438 | Зарегистр. 08-11-2005 | Отправлено: 10:52 02-02-2010 | Исправлено: psa1974, 11:53 02-02-2010 |
|
