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

Вниз

TTimer in RunTime   Найти похожие ветки 

 
Blondin   (2002-07-11 16:22) [0]

Мне в консольном приложении необходимо создать
Таймер.
Невыходит подставить свой обработчик события OnTime
Делаю :
...
procedure MyOnTimer(Sender:TObject);
...
MyTimer:=TTimer.Create(nil);
MyTimer.Interval:=60000;
MyTimer.OnTime:=MyOnTimer;// - ERROR
Ошибка несовместимости типов metod pointer и regular procedure

Попытки типа @MyOnTimer, pointer(MyOnTimer) не проходят


 
Skier   (2002-07-11 16:26) [1]

>Blondin

procedure MyOnTimer(Sender:TObject) - должна быть
методом класса !



 
Kaban   (2002-07-11 16:26) [2]

procedure TForm1.MyOnTimer(Sender:TObject);


 
Skier   (2002-07-11 16:28) [3]

>Kaban
Да ну !!!
Смотри сюда


> Мне в консольном приложении ...



 
Blondin   (2002-07-11 16:29) [4]

Да, но приложение-то консольное


 
Kaban   (2002-07-11 16:29) [5]

ну да.
но тогда в консольном приложении таймер нафиг не нужен


 
Skier   (2002-07-11 16:31) [6]

>Kaban
А это уже другой вопрос.
>Blondin
А sleep(...) не поможет ?


 
Blondin   (2002-07-11 16:39) [7]

Слип не катит
А с Таймером что никак невозможно работать в консольном ?


 
Странный Прохожий   (2002-07-11 16:42) [8]

SetTimer Win32API, вывести на callback :)


 
Skier   (2002-07-11 16:44) [9]

>Blondin


TStupidClass = class
private
FTimer : TTimer;
protected
procedure MyOnTimer(Sender:TObject);
public
constructor Create;
destructor Destroy; override;
end; //TStupidClass


{ TStupidClass }

constructor TStupidClass.Create;
begin
inherited Create;
FTimer := TTimer.Create(nil);
FTimer.OnTimer := MyOnTimer;
end;

destructor TStupidClass.Destroy;
begin
FTimer.Enabled := False;
FTimer.Free;
FTimer := nil;
inherited Destroy;
end;

procedure TStupidClass.MyOnTimer(Sender: TObject);
begin
// your code goes here...
end;



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

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

Наверх




Память: 0.45 MB
Время: 0.005 c
3-70580
Егор
2002-06-26 20:51
2002.07.22
Проблема с Lookup field, помогите...


1-70711
Александр
2002-07-11 12:08
2002.07.22
Глюк


1-70783
race1
2002-07-09 15:47
2002.07.22
незнаю


1-70685
Dmk
2002-07-09 03:42
2002.07.22
Пересчет координат


3-70623
Telly F
2002-06-27 11:12
2002.07.22
Как просмотреть план выполнения запроса





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский