-
Как при создании компонента указать Property таким образом, чтобы оно при компиляции не попало в код программы. Мм.. что хочу: у компонента сделать что-то типа подсказки, чтобы была видна, когда на форму кладешь, просто текст. Или типа как у Lmd\Jedy - жмакаешь на свойство - а там окошко About вылазит. Как это сделать? Если например присвоить Property MyHint:string='подсказка'; то ругается, а если присваивать текст при создании, то он тоже в компиляции проги будет участвовать я так понимаю...
-
и так тоже ошибка
unit CoTy; interface uses System.SysUtils, System.Classes; type TCoTy = class(TComponent) private { Private declarations } Const MyHint_='Hint'; protected { Protected declarations } public { Public declarations } published { Published declarations } Property MyHint:string Read MyHint_; //** end; procedure Register; implementation procedure Register; begin RegisterComponents(V-System', [TCoTy]); end; end.
** вот как тут вставить свойство, чтобы его можно было видеть только когда компонент на форме лежит, а в прогу этот текст не компилился бы (или тут кнопку внедрить, чтобы при нажатии на компонент или его свойство messagebox вылзил с подсказкой)
-
Уберите это свойство совсем и напишите редактор компонента. Получите как раз то, что хотите:
> в прогу этот текст не скомпилится > при нажатии на компонент вылезет messagebox с подсказкой
-
получилось залезть в конт.меню компонента и в 2а клика на компоненте, спасибо. ради интереса - а как сделать в свойствах свойство About с кнопкой, где при клике на свойстве окно вылазит? >> Lmd\Jedy - жмакаешь на свойство - а там окошко About вылазит
-
property About:string Read fAbout write SetAbout;
procedure SetAbout;
begin
end;
TAboutPropertyEditor = class(TStringProperty)
procedure Edit;override;
end;
procedure Edit;
begin
MyAboutForm.ShowModal
end;
RegisterPropertyEditor(TypeInfo(string), TCoTy, 'About',TAboutPropertyEdito);
|