Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.22;
Скачать: 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 вся ветка

Текущий архив: 2002.07.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.016 c
3-70580
Егор
2002-06-26 20:51
2002.07.22
Проблема с Lookup field, помогите...


3-70623
Telly F
2002-06-27 11:12
2002.07.22
Как просмотреть план выполнения запроса


3-70617
ADO
2002-06-30 19:48
2002.07.22
Можно ли в DBGrid запретить вставку новых строк, и при этом....


7-70941
Snake2000
2002-05-01 21:33
2002.07.22
Геймпад Sega Genesis и PC


1-70732
Explorer
2002-07-09 12:50
2002.07.22
Картинки