| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Включение TTimer [D7, WinXP]

Student2 ©   (2004-11-29 15:53:00) 

Написал компонент - вращение фигуры, подключил таймер, с помощью которого производится  вращение;
Пишу:
type
FTime: TTimer;
procedure OnTime (Sender: TObject);
............
constructor TMmGrCmp_Timer.Create(AOwer:TComponent);
begin
 Inherited Create(AOwer);
 Width := 250;
 Height := 150;
 FTime:= TTimer.Create(nil);
 Ftime.OnTimer := OnTime;
 FTime.Interval := 10;
end;

В событии OnTime производится пересчёт,  координат, по которым строится фигура;

Проблема вот в чём: При помещении компонента на форму сразу происходит вращение (без запуска проги), т.е. мне в constructor'e нужно написать FTime.Enabled := False;тогда в какой процедуре его опять включить???

---

Student2   (2004-11-30 10:39:00) [1]

Спасибо мастера!!!!

---

Юрий Зотов   (2004-11-29 19:35:00) [2]

private
 function GetActive: boolean;
 procedure SetActive(const Value: boolean);
 ...
public
 constructor Create(AOwner: TComponent); override;
 ...
published
 property Active: boolean read GetActive write SetActive default False;

constructor ...Create(AOwner: TComponent);
begin
 ...
 FTimer.Enabled := False
end;

function GetActive: boolean;
begin
 Result := FTimer.Enabled
end;

procedure SetActive(const Value: boolean);
begin
 FTimer.Enabled := Value
end;

---

Student2   (2004-11-29 17:53:00) [3]

У меня возникают затруднения: запишите пожалуйста, если вам не составит труда, как это будет выглядеть в модуле.

---

Юрий Зотов   (2004-11-29 16:01:00) [4]

Ведите в компонент булевское свойство Active, а в его методе Set включайте и выключайте вращение.

---

Юрий Зотов   (2004-11-29 16:00:00) [5]

Ведите в компонент булевское свойство Active, а в его методе Set включайте и выключайте вращение.

---

Юрий Зотов   (2004-11-29 16:00:00) [6]

Ведите в компонент булевское свойство Active, а в его методе Set включайте и выключайте вращение.

---

Наверх