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

Как динамически создать 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]

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


Есть.

---

← →
Джо ©   (2007-01-29 12:00) [8]

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

---

← →
evvcom ©   (2007-01-29 12:07) [9]

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

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

---

← →
Юрий Зотов ©   (2007-01-30 09:44) [10]

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

---

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

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



Память: 0.47 MB
Время: 0.029 c