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

Panel   Найти похожие ветки 

← →
col-isaev   (2003-10-20 17:09) [0]

Народ, как грамотно создать панель run time? Выручайте!!!

---

← →
HolACost! ©   (2003-10-20 17:13) [1]


var
T:TPanel;
begin
T := TPanel.Create(...);
T.Parent := Form1; //for example
T. // other params
end;


---

← →
col-isaev   (2003-10-20 17:26) [2]

Ни фига не выходит. Делаю вот так:

var PropPanel: TPanel;

begin
PropPanel:= TPanel.Create(MainForm);
PropPanel.Parent:= MainForm;
PropPanel.Align:= alRight;
PropPanel.Left:= MainList.Width div 3*2+3;
PropPanel.Show;
end;

а компилятор говорит:
[Error] main.pas(96): Incompatible types: "TWidgetControl" and "TMainForm"

---

← →
Юрий Федоров ©   (2003-10-20 17:28) [3]

Конфликт имен? Где-то еще объявлен класс TPanel ???

---

← →
Плохиш_   (2003-10-20 17:30) [4]

>col-isaev (20.10.03 17:26) [2]

А не надо смешивать clx- и vcl-компоненты.

---

← →
col-isaev   (2003-10-20 18:07) [5]

Елы-палы - ларчик просто открылся. А вставлять в панельку другие штуки - лейбы, едиты и прочее также? Типа вот так:

var PropPanel: TPanel;
PropText: TEdit;
begin
MainList.Align:= alLeft;
MainList.Width:= MainList.Width div 3*2;
PropPanel:= TPanel.Create(MainForm);
PropPanel.Parent:= MainForm;
PropPanel.Align:= alClient;
PropPanel.Show;
PropText:= TEdit.Create(PropPanel);
PropText.Parent:= PropPanel;
PropText.Left:= PropPanel.Left + 20;
PropText.Top:= PropPanel.Top + 20;
PropText.Show;

end;

---

← →
col-isaev   (2003-10-21 11:08) [6]

Забыл вот спасибо сказать всем. Спасибо всем!

---

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

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



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