Главная страница
    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.04 c
1-41171
Mishenka
2003-11-02 17:51
2003.11.13
Как при создании исключения передать код ошибки?


1-41567
Vivk
2003-11-04 08:23
2003.11.13
Qreport , FreeReport & толщина линий


4-42237
LOX
2003-09-13 13:24
2003.11.13
список запущенных приложений


1-41322
kex86
2003-10-31 08:23
2003.11.13
Как сообщить всем приложениям об изменении списка запущенных проц


1-41164
tor
2003-11-03 10:12
2003.11.13
Не подскажите как создать не квадратные окна?





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