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

Как создать компонент, который бы имел все свойства 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]

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

---

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

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



Память: 0.45 MB
Время: 0.008 c