Главная страница
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.015 c
1-70783
race1
2002-07-09 15:47
2002.07.22
незнаю


3-70603
Zeidlitz
2002-06-24 03:43
2002.07.22
Импорт данных из *.dbf в Interbase


1-70767
avr555
2002-07-08 18:11
2002.07.22
Как определили, что щелкнули мышкой не по моему компоненту?


3-70602
RUMATA_LEE
2002-06-29 21:23
2002.07.22
SQL на ACCESS базе


14-70863
Proton
2002-06-23 19:39
2002.07.22
контролы как в corel draw