Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];

Вниз

Обработка событий от объекта -свойства   Найти похожие ветки 

 
ildar   (2003-11-01 17:37) [0]

У меня в программе ситуация,аналогичная следующей
TForm1 = class(TForm)
Timer1: TTimer;
procedure OnTimer(Sender: TObject);
end;
При помощи Object inspectora можно сделать так ,что OnTimer будет обрабатывать событие от таймера.
В моей ситуации объект создается динамически, к нему
нельзя получить доступ через обжект инспектор,и нужно,чтобы данная процедура в классе обрабатывала
событие от таймера в том же классе.Как это сделать?


 
olookin   (2003-11-01 17:40) [1]

написать процедуру того же типа, что и OnTimer и присвоить ее значению OnTimer таймера, например:

procedure OnNewTimer(Sender: TObject);

procedure TForm1.OnButton1Click();
begin
t:=TTimer.Create(form1);
t.OnTimer:=OnNewTimer;
end;

procedure OnNewTimer(Sender: TObject);
begin
showmessage("ready");
end;


 
ildar   (2003-11-01 17:49) [2]

t:=TTimer.Create(form1);-таймер нужно привязывать к окну?


 
olookin   (2003-11-01 17:50) [3]

нет не обязательно. Можно и так - t:=TTimer.Create(nil); Но все таки я обычно к какому нибудь контролу привязываюсь.


 
ildar   (2003-11-01 17:55) [4]

Таймер ,говорят,очень грешит с задержками.(?)


 
default   (2003-11-01 17:56) [5]

ildar (01.11.03 17:55) [4]
угу(не так чтобы очень)


 
ildar   (2003-11-01 18:06) [6]

Если у меня в классе есть два метода с названием OnNewTimer,то что?


 
default   (2003-11-01 18:14) [7]

ildar (01.11.03 18:06) [6]
перегружаемые что ли?


 
ildar   (2003-11-01 18:23) [8]

да,если перегружаемые



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

Форум: "Основная";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.037 c
14-41987
VEG
2003-10-19 20:50
2003.11.13
---|Ветка была без названия|---


14-42007
Паша
2003-10-16 19:18
2003.11.13
про котика. я плакалъ


3-40861
Ab_Prob
2003-10-21 12:55
2003.11.13
Поля с пустыми значениями как с ними подружиться?


3-40970
Коля
2003-10-16 08:20
2003.11.13
Странности сетевого пути к GDB-файлу


9-40759
G a m e r
2003-05-05 19:02
2003.11.13
Исходники Warcraft 2000! :)





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский