| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как создать компонент, который ;бы имел все свойства Ttimer.....
Петр Мельников © (2002-07-10 23:32:00)Только к уже имеющимся свойствам добавить еще штук 8. При этом это свойства типа: Gox,Goy,Positionx,Positiony.... и все они должны быть типа integer и никакой нагрузки не нести. Т.е в принципе нужно размножить такую вещь как tag. Все эти 8 свойств нужны для того, чтобы хранить в них циферки. А в мечтах я надеюсь, что может кто такую компоненту сам создаст и мне чайнику бросить а там я уж как нибудь разобрался....
Петр Мельников (2002-07-11 17:25:00) [1]Большое спасибо Юрий Зотов!
Юрий Зотов (2002-07-11 00:43:00) [2]
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.
| |
