Форум: "Начинающим";
Текущий архив: 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
