Как создать компонент, который бы имел все свойства Ttimer.....

← →
Петр Мельников (2002-07-10 23:32) [0]

Только к уже имеющимся свойствам добавить еще штук 8. При этом это свойства типа: Gox,Goy,Positionx,Positiony.... и все они должны быть типа integer и никакой нагрузки не нести. Т.е в принципе нужно размножить такую вещь как tag. Все эти 8 свойств нужны для того, чтобы хранить в них циферки. А в мечтах я надеюсь, что может кто такую компоненту сам создаст и мне чайнику бросить а там я уж как нибудь разобрался....

← →
Юрий Зотов (2002-07-11 00:43) [1]

unit MyTimer; interface uses Classes, ExtCtrls; type TMyTimer = class(TTimer) private FGox: integer; FGoy: integer; // и т.д. published property Gox: integer read FGox write FGox default 0; property Goy: integer read FGoy write FGoy default 0; // и т.д. end; procedure Register; implementation procedure Register; begin RegisterComponents["Samples", [TMyTimer]) end; end.

Это все, что требуется. Включите этот юнит в любой уже имеющийся пакет (или создайте новый), затем перекомпилируйте (или проинсталлируйте) этот пакет - и см. на страницу Samples.

← →
Петр Мельников (2002-07-11 17:25) [2]

Большое спасибо Юрий Зотов!

Как создать компонент, который бы имел все свойства Ttimer..... Найти похожие ветки