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

Включение TTimer   Найти похожие ветки 

← →
Student2   (2004-11-29 15:53) [0]

Написал компонент - вращение фигуры, подключил таймер, с помощью которого производится  вращение;
Пишу:
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; тогда в какой процедуре его опять включить???

---

← →
Юрий Зотов ©   (2004-11-29 16:00) [1]

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

---

← →
Юрий Зотов ©   (2004-11-29 16:00) [2]

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

---

← →
Юрий Зотов ©   (2004-11-29 16:01) [3]

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

---

← →
Student2   (2004-11-29 17:53) [4]

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

---

← →
Юрий Зотов ©   (2004-11-29 19:35) [5]

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-30 10:39) [6]

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

---

Страницы: 1 вся ветка

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



Память: 0.46 MB
Время: 0.026 c