Включение 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]

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

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]

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

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