Компонент и TApplication

← →
SergeyVP © (2002-03-12 05:28) [0]

Делаю компонент (потомок TLabel), у которого Caption, при помещении его на форму, присваивается значени иcполнимого файла программы (exe). Делаю так:

constructor TMyLabel.Create(AOwner: TComponent); begin inherited; Caption:= Application.ExeName; end;

При Install component компилятор ругается на Application и это естественно.
Можно ли сделать то что я хочу и как?

← →
Виктор Щербаков © (2002-03-12 09:40) [1]

Как ругается? Всё должно работать, но в дизайне в Label будет отображаться delphi32.exe c путем.

← →
Sasha9 © (2002-03-12 11:09) [2]

может ты забыл включить Forms в Uses

← →
SergeyVP © (2002-03-13 03:14) [3]

Точно!
Не поставил Forms в Uses.
Теперь все работает, НО при запуске программы (даже без Delphi) отображается путь к delphi32.exe!
Почему?

← →
EugeneT © (2002-03-13 07:54) [4]

Потому, что ехе-файл строится с уже полученным при создании в designe-time значением Caption компонента, т.е. "...\delphi32.exe". Я думаю, желаемый результат будет при создании этого компонента в run-time.

попробуй использовать
if not (csDesigning in ComponentState) then

Всем спасибо за помощь :)

Компонент и TApplication Найти похожие ветки