Форум: "Начинающим";
Текущий архив: 2009.04.05;
Скачать: [xml.tar.bz2];

Вниз

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

← →
UlLucifer   (2009-02-19 13:15) [0]

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

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.


---

← →
Palladin ©   (2009-02-19 13:16) [1]

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

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

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

---

← →
clickmaker ©   (2009-02-19 13:16) [2]

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

---

← →
UlLucifer   (2009-02-19 13:26) [3]

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

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

---

← →
Ega23 ©   (2009-02-19 13:31) [4]

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;

---

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

Форум: "Начинающим";
Текущий архив: 2009.04.05;
Скачать: [xml.tar.bz2];

Наверх

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