[Alegun]

Сообщение от Taddy23

...по нажатии кнопки вывести 2 сетки с заданными координатами, 1 под другой на какое то количество пикселей...

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
 with TStringGrid.Create(self) do
  begin
   Parent:= Form1;
   Name:= 'sg1';
   Height:= 150;
   Width:= 200;
   Left:= 8;
   Top:= 8;
  end;

 with TStringGrid.Create(self) do
  begin
   Parent:= Form1;
   Name:= 'sg2';
   Height:= 150;
   Width:= 200;
   Left:= 8;
   Top:= 164;
  end;
end;