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]

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

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