Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.02.03;
Скачать: CL | DM;

Вниз

Не смотрите сюда....   Найти похожие ветки 

 
vidiv ©   (2003-01-23 12:59) [0]

program anc;
uses
Windows,
Messages,
forms,
SysUtils,
WorkModUnit in "WorkModUnit.pas" {WorkMod: TDataModule};

begin
........
Application.Initialize;
Application.CreateForm(TWorkMod,WorkMod);
Application.Run; {После выполнения это строки программа сразу завершается, а как сделать, что бы программа продолжала работать до тех пор пока не будет выполнено Application.Terminate}
end.


 
Игорь Шевченко ©   (2003-01-23 13:03) [1]

procedure TApplication.Run;
begin
FRunning := True;
try
AddExitProc(DoneApplication);
if FMainForm <> nil then
begin
case CmdShow of
SW_SHOWMINNOACTIVE: FMainForm.FWindowState := wsMinimized;
SW_SHOWMAXIMIZED: MainForm.WindowState := wsMaximized;
end;
if FShowMainForm then
if FMainForm.FWindowState = wsMinimized then
Minimize else
FMainForm.Visible := True;
repeat
HandleMessage
until Terminated;
end;
finally
FRunning := False;
end;
end;

Далее внимательно думаем головой



Страницы: 1 вся ветка

Текущий архив: 2003.02.03;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.012 c
14-5183
Scream
2003-01-14 23:25
2003.02.03
Всем!Всем!Всем!Всем!Всем!Всем!


14-5179
Supreme
2003-01-15 22:21
2003.02.03
Очень важные вопросы!


14-5143
Yury
2003-01-17 16:12
2003.02.03
RxLib


14-5164
Lapuh
2003-01-14 21:10
2003.02.03
Что за директива class of ?


3-4764
AALLEEXX
2003-01-15 07:27
2003.02.03
ПОМОГИТЕ !!!!!!! (Надо 12 П.10,158-1*2 --> 12П1015812)