| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Кнопки [D7, XP]

UlLucifer ©   (2009-02-19 13:15:00) 

Добрый день, проблема в создании конопок.
Как создать массив кнопок и вывести их на форму при нажатии на кнопку?
Есть код, выдаётся ошибка, что не так?

unit test1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;
const
 wid=81;
 hei=33;
 n=7;
 beet=8;

type
 TForm1 = class(TForm)
   Button2: TButton;
   procedure Button2Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;
 tmas_but = array [1..n, 1..n] of TButton;

var
 Form1: TForm1;
 mas_but: tmas_but;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
var
 i, j, l, k,nom: byte;
begin
 for i:=1 to n do
   for j:=1 to n do
     begin
     mas_but[i,j].Visible:=true;
     mas_but[i,j].height:=hei;
     mas_but[i,j].width:=wid;
     mas_but[i,j].left:=j*beet+(j-1)*wid;
     mas_but[i,j].top:=i*beet+(i-1)*hei;
     end;
end;

end.


---

Ega23   (2009-02-19 13:31:00) [1]

procedure TForm1.Button2Click(Sender: TObject);
var
i, j, l, k,nom: byte;
begin
for i:=1 to n do
  for j:=1 to n do
    begin
    mas_but[i,j] := TButton.Create(Не знаю, кто у тебя Owner);
    mas_but[i,j].Parent := Не знаю, кто у тебя Parent;
    mas_but[i,j].Visible:=true;
    mas_but[i,j].height:=hei;
    mas_but[i,j].width:=wid;
    mas_but[i,j].left:=j*beet+(j-1)*wid;
    mas_but[i,j].top:=i*beet+(i-1)*hei;
    end;
end;

---

UlLucifer   (2009-02-19 13:26:00) [2]

> Palladin ©   (19.02.09 13:16) [1]
>
> > Есть код, выдаётся ошибка, что не так?
>
> Как бы тебе по мягче сказать...
>
> http://www.delphikingdom.com/asp/viewitem.asp?catalogid=342

Спасибо, теперь всё ясно.

---

Palladin   (2009-02-19 13:16:00) [3]

> Есть код, выдаётся ошибка, что не так?

Как бы тебе по мягче сказать...

http://www.delphikingdom.com/asp/viewitem.asp?catalogid=342

---

clickmaker   (2009-02-19 13:16:00) [4]

а создавать кнопки кто-будет?

---

Наверх