Как динамически создать TStatusBar?

← →
Express (2007-01-29 11:48) [0]

Здравствуйте!

Будьте добры подскажите??

Пробывал вот так:

var
SB: TStatusBar;
begin
SB :=TStatusBar.Create(Form1);
SB.ParentWindow :=Form1.Handle;
SB.Show;
end;

← →
Джо © (2007-01-29 11:51) [1]

> SB.ParentWindow :=Form1.Handle;

SB :=Form1;

> SB.Show;

Лишнее.

← →
Джо © (2007-01-29 11:52) [2]

И, если приведенный код выполняется в одном из методов твоей формы, то From1 везде заменить на Self.

← →
Джо © (2007-01-29 11:55) [3]

> SB :=Form1;

День не удался, начался с опечаток :(
То есть:
Sb.Parent := Form1;

← →
Express (2007-01-29 11:57) [4]

Джо © не работает, можешь написать как должно быть?

← →
Express (2007-01-29 11:58) [5]

Sb.Parent нет такого свойства!!!! ((((

← →
Express (2007-01-29 11:59) [6]

Все спасибо, работает!

← →
Сергей М. © (2007-01-29 12:00) [7]

> нет такого свойства

Есть.

> [4] Express (29.01.07 11:57)
> Джо © не работает, можешь написать как должно быть?

Исправляю свои опечатки.

Должно быть так:
var SB: TStatusBar; begin SB :=TStatusBar.Create(Form1); SB.Parent := Form1; end;

Или так, если код выполняется в методе формы (что более предпочтительно):

var SB: TStatusBar; begin SB :=TStatusBar.Create(Self); SB.Parent := Self; end;

Или даже так, но лично мне не нравится:
begin with TStatusBar.Create(Self) do Parent := Self; end;

> [3] Джо © (29.01.07 11:55)
> День не удался, начался с опечаток :(

Видимо, есть повод :)
http://delphimaster.net/view/15-1170042777/

Конкретные пацаны пишут еще круче:
TStatusBar.Create(Self).Parent := Self;

Как динамически создать TStatusBar? Найти похожие ветки