Форум: "Основная";
Текущий архив: 2003.12.30;
Скачать: [xml.tar.bz2];
Вниз
Как обрабатывать события невизуальных компонентов? Найти похожие ветки
← →
smu (2003-12-16 11:23) [0]Доброго времени суток. Все в теме.
← →
Skier (2003-12-16 11:24) [1]
> Как обрабатывать события невизуальных компонентов?
Какие события ? Какого компонента ?
← →
Тимохов (2003-12-16 11:26) [2]Программно. И этим все сказано. :))
Подробнее можно? Какие события, каких компонентов, ну и т.д.:))
← →
smu (2003-12-16 11:31) [3]ну к примеру тот же TTimer. Если не кидать его на форму, а просто описать Timer:TTimer, то как поймать событие OnTimer?
← →
Anatoly Podgoretsky (2003-12-16 11:33) [4]Точно также как и визуальных
← →
Skier (2003-12-16 11:33) [5]
> то как поймать событие OnTimer?
Читать книги, статьи на этом сайте и FAQ
← →
smu (2003-12-16 11:35) [6]
> Skier ©
Спасибо, вы очень мне помогли...
← →
Тимохов (2003-12-16 11:35) [7]Ну, брат, это никак - в дельфи только визуальное программирование. Говорят еще как-то можно, см. Skier © (16.12.03 11:33) [5], но я не уверен.
← →
smu (2003-12-16 11:38) [8]
> Точно также как и визуальных
Это как же?
Procedure TTimer.ДелайЭтоКогдаOnTimer;
begin
end;
← →
Тимохов (2003-12-16 11:42) [9]Ну типа делаешь так
procedure TForm1.Timer1Timer(Sender: TObject);
begin
что-то делаешь
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.ontimer := Timer1Timer;
end;
все!
← →
Anatoly Podgoretsky (2003-12-16 11:42) [10]Различие между бросанием на форму и созданием динамически небольшое, в первом случае владельцем автоматически становится форма, а во втором ты должен сам назначить его.
← →
Anatoly Podgoretsky (2003-12-16 11:43) [11]Тимохов © (16.12.03 11:35) [7]
Это точно, без мышки никак.
← →
smu (2003-12-16 11:46) [12]Значит обработать такие события никак нельзя?
← →
Тимохов (2003-12-16 11:48) [13]Гражданин(ка)!
Прочтите Тимохов © (16.12.03 11:42) [9].
← →
smu (2003-12-16 11:57) [14]Т.е. нужно Timer:=TTimer.create(fmMain);
.....
procedure TfmMain.TimerTimer(Sender: TObject);
begin
что-то делаешь
end
timer1.ontimer := TimerTimer;
А без формы родителя что нить можно сделать?
Timer:=TTimer.create(fmMain)=Timer:=TTimer.create(Self)?
← →
TUser (2003-12-16 12:04) [15]var ne:TNotifyEvent;
Timer1:=TTimer.Create;
Timer1.Enabled:=true; // и все другие св-ва
ne:=TNotEvent.Create;
@ne:=@OnTimeProc; // OnTimeProc - твоя процедура
Timer1.OnTimer:=ne;
← →
smu (2003-12-16 12:08) [16]
> TUser ©
Вот это я и искал. Счас попробую...
← →
smu (2003-12-16 12:18) [17]
> ne:=TNotEvent.Create;
Ето не принимает, но и без этого работает ...
Спасибо.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.12.30;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.008 c
