Как обрабатывать события невизуальных компонентов?

← →
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]

← →
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]

← →
smu (2003-12-16 12:18) [17]

> ne:=TNotEvent.Create;

Ето не принимает, но и без этого работает ...
Спасибо.

Как обрабатывать события невизуальных компонентов? Найти похожие ветки