Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как динамически создать TStatusBar? [D6, D7, Win2k, WinXP]

Express © (2007-01-29 11:48:00)
Здравствуйте!

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

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

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

Юрий Зотов (2007-01-30 09:44:00) [1]
Конкретные пацаны пишут еще круче:
TStatusBar.Create(Self).Parent := Self;

evvcom (2007-01-29 12:07:00) [2]
> [3] Джо © (29.01.07 11:55)
> День не удался, начался с опечаток :(

Видимо, есть повод :)
http://www.delphimaster.ru/cgi-bin/forum.pl?n=3&id=1170042777

Сергей М. (2007-01-29 12:00:00) [3]

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

Есть.

Джо (2007-01-29 12:00:00) [4]

> [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;

Express (2007-01-29 11:59:00) [5]
Все спасибо, работает!

Express (2007-01-29 11:58:00) [6]
Sb.Parent нет такого свойства!!!! ((((

Express (2007-01-29 11:57:00) [7]
Джо © не работает, можешь написать как должно быть?

Джо (2007-01-29 11:55:00) [8]

> SB :=Form1;

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

Джо (2007-01-29 11:52:00) [9]
И, если приведенный код выполняется в одном из методов твоей формы, то From1 везде заменить на Self.

Джо (2007-01-29 11:51:00) [10]

> SB.ParentWindow :=Form1.Handle;

SB :=Form1;

> SB.Show;

Лишнее.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »