| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
бесконечный цикл
барбос © (2004-08-24 18:26:00)Подскажите пожалуйста где в программе писать бесконечный цикл. Если пробую в OnActivate- что то не то получается.
Алхимик (2004-08-25 08:36:00) [1]
> [13] YurikGL © (25.08.04 06:33)
Таких не берут в космонавты.
YurikGL (2004-08-25 06:33:00) [2]
> Алхимик © (24.08.04 21:38) [5]
Я бы все таки в этом случае сделал выход, хотя бы по нажатию клавишы какой-нибудь :)
GuAV (2004-08-25 01:57:00) [3]
> Форма не отрисовывается!
Понятное дело:
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...
Алхимик (2004-08-25 01:36:00) [4]
> [10] y-soft © (25.08.04 01:28)
> >Алхимик © (24.08.04 21:38) [5]
>
> Вертится на БРТК (бортовом ретрансляционном комплексе) бесконечный
> цикл опроса телеметрии и передачи её на Землю. На кой ляд
> там гарантированный выход?
>
> На Delphi, что ли, писАли? :))
Ага. Вчера только дописАл, оттестить не успел. Кому что на голову
упадёт - звиняйте. :)
y-soft (2004-08-25 01:28:00) [5]>Алхимик © (24.08.04 21:38) [5]
Вертится на БРТК (бортовом ретрансляционном комплексе) бесконечный цикл опроса телеметрии и передачи её на Землю. На кой ляд там гарантированный выход?
На Delphi, что ли, писАли? :))
Алхимик (2004-08-24 23:31:00) [6]
> [8] Cobalt © (24.08.04 23:28)
Вспомни как станция Мир на землю прибыла. :)
Cobalt (2004-08-24 23:28:00) [7]2 Алхимик © (24.08.04 21:38) [5]
А что же вы, прогу/поток киляете, когда надо остановить прогу по перибытию на землю?
барбос (2004-08-24 23:26:00) [8]>А что должно получится? Неужели [5] ? ;-)
Форма не отрисовывается!
GuAV (2004-08-24 21:39:00) [9]
> что то не то получается.
А что должно получится? Неужели [5] ? ;-)
Алхимик (2004-08-24 21:38:00) [10]
> [4] y-soft © (24.08.04 21:32)
> Если уж и применять бесконечные циклы (тем более в обработчиках
> событий), то только с гарантированным выходом из тела цикла
Вертится на БРТК (бортовом ретрансляционном комплексе) бесконечный цикл опроса телеметрии и передачи её на Землю. На кой ляд там гарантированный выход?
y-soft (2004-08-24 21:32:00) [11]Если уж и применять бесконечные циклы (тем более в обработчиках событий), то только с гарантированнымвыходом из тела цикла
Anatoly Podgoretsky (2004-08-24 19:24:00) [12]Писать можно где угодно, в том числе и в OnActivate - while true do;
Ega23 (2004-08-24 18:31:00) [13]А вот тут:
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.
Верняк средство!
Суслик (2004-08-24 18:28:00) [14]на фига?
| |
