Создание компонента в 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

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

> 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 чем не устраивает?

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

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