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

Создание компонента в Delphi 6   Найти похожие ветки 

← →
Bulgar ©   (2004-04-12 13:27) [0]

Надо чтобы при создании кнопки, в run-time создавался TLabel и TImage (изврат, но выглядит неплохо). Если поместить код создания этих элементов в constructor Create(AOwner: TComponent); override;
, то они создаются в Design-time (а надо только в run-time), к тому  же при запуске программы, выдаётся exception, что элемент с таким именем уже существует. Как решить эту проблему ?

Может ещё кто подскажет: как в программе узнать какой сейчас режим: design-time или run-time.

Или кто подскажет халявные живые кнопки с картинками при наведении, нажатии, дисабленные, под фокусом и inactive.

(SpeedButton не подходит, так как её никак не скроешь, а нужно чтобы было видно только картинки)

---

← →
Rouse_ ©   (2004-04-12 14:01) [1]

> Может ещё кто подскажет: как в программе узнать какой сейчас
> режим: design-time или run-time.
if (csDesigning in ComponentState) then

по поводу остальново - покажи что наваял...

---

← →
clickmaker ©   (2004-04-12 14:03) [2]

> (SpeedButton не подходит, так как её никак не скроешь, а
> нужно чтобы было видно только картинки)

Еще как скроешь. Свойство Flat

---

← →
ZDDR ©   (2004-04-12 16:20) [3]

Скажите как замутить эдакий speedButton что бы подним еще и label стоял

---

← →
clickmaker ©   (2004-04-12 16:33) [4]

> ZDDR ©   (12.04.04 16:20) [3]

Свойство Caption

---

← →
ZDDR ©   (2004-04-12 16:45) [5]

___
  |   |  - SpeddButton
  |___|
___LABEL____  -Label

вот так как сделать?

---

← →
clickmaker ©   (2004-04-12 18:45) [6]

> ZDDR ©   (12.04.04 16:45) [5]

TLabeledButton = class(TWinControl)
private
 FButton: TSpeedButton;
 FLabel: TLabel;
...

constructor TLabeledButton.Create;
begin
 inherited;

 FButton := TButton.Create(Self);
 FButton.Parent := Self;
 FButton.Left := 0;
 FButton.Top := 0;
 
 FLabel := TLabel.Create(Self);
 FLabel.Parent := Self;
 FLabel.Left := 0;
 FLabel.Top := FButton.Height;

ну и так далее

PS. А SpeedButton c Layout = blGlyphTop и Caption чем не устраивает?

---

← →
ZDDR ©   (2004-04-13 10:24) [7]

так label длиннее speedbutton
и если использовать speddbutton то получается слишком большая кнопка а мне надо кнопку 32 X 32 кнопку с свойством flat
и надпись под ней

---

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

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



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