Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.015 c