[Лунтик-Некрофил]

Код:

var
  Button: TButton;
begin
adotable1.first; 
for i:=1 to adotable1.RecordCount do begin
  Button:=TButton.Create(Self);
  Button.Parent := Self;
  Button.Left := 50;
  Button.Top := 50;
  Button.Width := 50;
  Button.Height := 50;
  Button.Caption:=adotable1.Fields[2].AsString ;
adotable1.next; 
end;
end;

Не могу сформулировать циклы для добавления по координатам кнопок . Например, чтобы следущая кнопка была на 30 пикселей ниже предыдущей. Как я понимаю, нужно добавить еще 4 цикла, для положения, ширины и высоты... Можете написать код или хотя бы намекнуть куда копать?

И еще - как сделать, чтоб при нажатии на выше созданные кнопки открывалась, например, другая форма?

Заранее спасибо, с ув. Лунтик.

[Страдалецъ]

Код:

var
  Button: TButton;
  Y: Integer;
begin
adotable1.first; 
Y := 50; 
for i:=1 to adotable1.RecordCount do begin
  Button:=TButton.Create(Self);
  Button.Parent := Self;
  Button.Left := 50;
  Button.Top := Y;
  Button.Width := 50;
  Button.Height := 50;
  Button.Caption:=adotable1.Fields[2].AsString ;
  adotable1.next; 
  Inc(Y,30);
end;
end;

[Лунтик-Некрофил]

Спасибо, я думал код будет больше)
И если не сложно - как сделать, чтоб при нажатии на выше созданные кнопки открывалась, например, другая форма?
Пытался через onclick - не выходит, click тоже...

[Лунтик-Некрофил]

И еще проблема -

Код:

var
  Button: TButton;
  i,y:integer;
begin
form2.adotable1.First ;
y:=50;
for i:=1 to form2.adotable1.RecordCount do begin
  form2.Button:=TButton.Create(Self);
  form2.Button.Parent := Self;
  form2.Button.Left := 50;
  form2.Button.Top := y;
  form2.Button.Width := 100;
  form2.Button.Height := 30;
  form2.Button.Caption:=form2.adotable1.Fields[2].AsString ;
   form2.adotable1.Next;
   Inc(Y,35);
end;
end;

Получаю ошибку типа Неизвестный Button во всех случаях. В чем ошибка?

[Asinkrit]

form2. - лишнее, ты же объявил Button:TButton, вот и юзай Button, а не form2.Button.

За уничтожением кнопок, ты скорее всего не следишь)

[Лунтик-Некрофил]

Хех, ошибку понял) Сделал на form2create. Спасибо)