динамичното създаване на таймера преди zapuskm за кандидатстване
В .dpr не получавате файлове
(Издаден от грешка компилатор)
създадете TTimer
Как да се направи правилното нещо?
употреби
# XA0; Форми,
# XA0; Windows,
# XA0; extctrls,
# XA0; класове,
# XA0; unit55 в "D: \ Program Files \ Borland \ Delphi5 \ Bin \ unit55.pas";
процедура # XA0; # XA0; on_Timer (Sender: TObject);
започвам
# XA0; # XA0; # XA0; // манипулатор код
# XA0; # XA0; # XA0; ет: = фалшива;
приключи;
Var
ч: HWND;
TM: TTimer;
ет: булева;
започвам
# XA0; Application.Initialize;
# XA0; ет: = вярно;
# XA0; TM: = TTimer.Create (заявка);
# XA0; tm.Interval: = 100;
# XA0; tm.OnTimer: = on_Timer; //<== [Error] Project1.dpr(24):
# XA0; # XA0; # XA0; # XA0; # XA0; # XA0; # XA0; # XA0; # XA0; # XA0; # XA0; # XA0; // Несъвместимите вида:
# XA0; # XA0; # XA0; # XA0; # XA0; # XA0; # XA0; # XA0; # XA0; # XA0; # XA0; # XA0; // метод показалка и редовна процедура
# XA0; tm.Enabled: = вярно;
# XA0; Application.Initialize;
# XA0; Application.CreateForm (TForm1, Form1);
# XA0; докато (ет) направи application.ProcessMessages;
# XA0; tm.free;
# XA0; Application.Run;
край.
1 Защо се Application.Initialize два пъти
2 TTimer могат да бъдат създадени без Application
3 OnTimer dolzhent бъде (както вероятно четат и пропити) чрез анализ на процесите, а не редовна процедура
4 И в крайна сметка всичко, което beleberden, която сте записали се намалява до
Събитие манипулатор на обекта трябва да метод на обект, вместо просто процедура.
Най-общо казано, това не е ясно от кода, защо не съм сложил таймер на основната форма и да получите едно и също нещо, без никакви проблеми. Но ако наистина наистина искате, след това въведете вашето потомък на TTimer, добавете към него и нека OnTimer манипулатор се справя.
PS:
1 unit55 - :) ужас
2 и със сигурност е това, което з: HWND
3 Application.ProcessMessages да Application.Run хладно идея!
Можете да пуснете малко приложение, вместо таймера,
но аз не искам да се
Същността на следното: след Application.CreateForm (TForm1, Form1);
докато формите, се изкачва върху прозореца на екрана, която
манипулатор таймер трябва да бъде убит.
Хм. Може би по-лесно, а не да я създадете?
з: HWND - разбира се, че искате да премахнете в процеса
> Application.ProcessMessages до Application.Run е готино
> Идея!
по-добре безопасни, отколкото съжалявам, както каза монахинята.
> След Application.CreateForm (TForm1, Form1);
> До формата на екрана пълзи прозорец, който
> Таймер Хендлър трябва да бъде убит.
Какво прозорец? Откъде идва от? Защо го уби? И защо трябва таймера?
> По-горе цитираната обединят създаването на таймера преминава
> ОК, но какво да кажем тук?
Извадете модула таймер. Тя може да бъде един и същ, където Form1.
Послепис
Преди да се обадите Application.Run таймер все още не работи.
# XA0; Да, идеята е проста Vascha вярно.
Остава само да външно приложение.
Да ви Нее таймер? zasun FindWindow в а? към един и същ сън и ProcessMessages - т.е. програмата ще изчака, докато тя се появява, и тогава аз ще се самоубия.
Памет: 0.75 MB
Време: 0.089 гр
Свързани статии