Форум: "Основная";
Текущий архив: 2004.09.12;
Скачать: [xml.tar.bz2];
Вниз
бесконечный цикл Найти похожие ветки
← →
барбос (2004-08-24 18:26) [0]Подскажите пожалуйста где в программе писать бесконечный цикл. Если пробую в OnActivate- что то не то получается.
← →
Суслик © (2004-08-24 18:28) [1]на фига?
← →
Ega23 © (2004-08-24 18:31) [2]А вот тут:
program Personnel;
uses
Forms,
Sysutils,
WinProcs,
windows,
StrUtils,
UDMpas in "UDMpas.pas" {DMpas: TDataModule},
UMain in "UMain.pas" {FMain},
.... ну тут дальше неважно....
var hnd:THandle;
ss:string;
begin
ss:=ExtractFileName(paramstr(0) );
hnd:=CreateMutex(nil, false, PChar(ss) );
if GetLastError = ERROR_ALREADY_EXISTS then
begin
Beep(100,200); //MessageBeep ->in WinProcs
bo:=ReleaseMutex(hnd);
Exit;
end;
Application.Initialize;
И вот тут его и вставляем:
While (0=0) do
begin
end;
Application.HelpFile:="Personnel.chm";
Application.CreateForm(TDMpas, DMpas);
if not DMpas.LoginOK then
begin
DMpas.Free;
DMpas:=nil;
bo:=ReleaseMutex(hnd);
Exit;
end;
Application.ProcessMessages;
Application.CreateForm(TFMain, FMain);
Application.Run;
end.
Верняк средство!
← →
Anatoly Podgoretsky © (2004-08-24 19:24) [3]Писать можно где угодно, в том числе и в OnActivate - while true do;
← →
y-soft © (2004-08-24 21:32) [4]Если уж и применять бесконечные циклы (тем более в обработчиках событий), то только с гарантированным выходом из тела цикла
← →
Алхимик © (2004-08-24 21:38) [5]
> [4] y-soft © (24.08.04 21:32)
> Если уж и применять бесконечные циклы (тем более в обработчиках
> событий), то только с гарантированным выходом из тела цикла
Вертится на БРТК (бортовом ретрансляционном комплексе) бесконечный цикл опроса телеметрии и передачи её на Землю. На кой ляд там гарантированный выход?
← →
GuAV © (2004-08-24 21:39) [6]
> что то не то получается.
А что должно получится? Неужели [5] ? ;-)
← →
барбос (2004-08-24 23:26) [7]>А что должно получится? Неужели [5] ? ;-)
Форма не отрисовывается!
← →
Cobalt © (2004-08-24 23:28) [8]2 Алхимик © (24.08.04 21:38) [5]
А что же вы, прогу/поток киляете, когда надо остановить прогу по перибытию на землю?
← →
Алхимик © (2004-08-24 23:31) [9]
> [8] Cobalt © (24.08.04 23:28)
Вспомни как станция Мир на землю прибыла. :)
← →
y-soft © (2004-08-25 01:28) [10]>Алхимик © (24.08.04 21:38) [5]
Вертится на БРТК (бортовом ретрансляционном комплексе) бесконечный цикл опроса телеметрии и передачи её на Землю. На кой ляд там гарантированный выход?
На Delphi, что ли, писАли? :))
← →
Алхимик © (2004-08-25 01:36) [11]
> [10] y-soft © (25.08.04 01:28)
> >Алхимик © (24.08.04 21:38) [5]
>
> Вертится на БРТК (бортовом ретрансляционном комплексе) бесконечный
> цикл опроса телеметрии и передачи её на Землю. На кой ляд
> там гарантированный выход?
>
> На Delphi, что ли, писАли? :))
Ага. Вчера только дописАл, оттестить не успел. Кому что на голову
упадёт - звиняйте. :)
← →
GuAV © (2004-08-25 01:57) [12]
> Форма не отрисовывается!
Понятное дело:
When a form is being created and its Visible property is true, the following events occur in the order listed:
1. OnCreate
2. OnShow
3. OnActivate
4. OnPaint
Сделай вход в вечный цикл через PostMessge...
← →
YurikGL © (2004-08-25 06:33) [13]
> Алхимик © (24.08.04 21:38) [5]
Я бы все таки в этом случае сделал выход, хотя бы по нажатию клавишы какой-нибудь :)
← →
Алхимик © (2004-08-25 08:36) [14]
> [13] YurikGL © (25.08.04 06:33)
Таких не берут в космонавты.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.09.12;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.029 c
