Скачать: CL | DM;

Компонент и 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.

---

← →
iva ©   (2002-03-13 07:57) [5]

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

---

← →
SergeyVP ©   (2002-03-13 10:37) [6]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.006 c