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

Создание объектов в runtime.   Найти похожие ветки 

← →
mmx1   (2006-11-06 17:45) [0]

Есть один элемент TPanel, на котором требуется создать несколько других, -- на этой панели сформировать некую матрицу из других панелей.
Ну что-то вроде вот этого:

____________
|__|__|__|__|
|__|__|__|__|
|__|__|__|__|



Мой вопрос не про само создание множества внутренних панелей; я не понимаю, как мне контроллировать положения этих элементов, как выстраивать ровную матрицу. Учитывая, что ширина и длина главного TPanel - константа, -- т.е. он может вмещать определенное кол-во внутренних TPanel. Может что подскажете?

---

← →
Ketmar ©   (2006-11-06 17:46) [1]

а что, использовать всякие grid"ы религия запрещает?

---

← →
Desdechado ©   (2006-11-06 17:47) [2]

> я не понимаю, как мне контроллировать положения этих элементов
Panel1.Top
Panel1.Left
Panel1.Width
Panel1.Height
делить нацело свою константу думаю сумеешь

---

← →
RASkov   (2006-11-06 20:52) [3]

procedure TForm1.Button1Click(Sender: TObject);
var Pn: TPanel; W, H, N: Integer;
begin
 W:=(Panel1.Width div 4);
 H:=(Panel1.Height div 3);
 for N:=0 to 11 do begin
  Pn:=TPanel.Create(Panel1);
  Pn.Parent:=Panel1;
  Pn.Width:=W; Pn.Height:=H;
  Pn.Left:=((N div 3)*W);
  Pn.Top:=(N mod 3)*H;
  Pn.Caption:="Iaiaeu ?"+IntToStr(N+1);
  Pn.Show;
 end;
end;

---

← →
Anatoly Podgoretsky ©   (2006-11-06 23:26) [4]

> mmx1  (06.11.2006 17:45:00)  [0]

> Учитывая, что ширина и длина главного TPanel константа

Раз константа, то задаче не имеет решения, если M mod N <> 0

---

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

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



Память: 0.45 MB
Время: 0.046 c