Програмно создаваемые кнопки

[Аватар]

Как вариант просто на панели вместо колонки грида

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure ButtonClick(Sender: TObject);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
    xButton: TButton;
begin
  for i:=1 to 10 do begin
    xButton:=TButton.Create(Self);
    xButton.Parent:=Panel1;
    xButton.Tag:=i;
    xButton.Height:=32;
    xButton.Caption:=Format('Кнопка%d',[i]);
    xButton.Align:=alTop;
    xButton.OnClick:=ButtonClick;
  end;
end;

procedure TForm1.ButtonClick(Sender: TObject);
begin
  ShowMessage(Format('Нажата %s',[TButton(Sender).Caption]));
end;

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
  for i:=0 to Panel1.ControlCount-1 do
    if (Panel1.Controls[i] is TButton) and (Panel1.Controls[i].Tag=6) then begin
      TButton(Panel1.Controls[i]).Visible:=not TButton(Panel1.Controls[i]).Visible;
      Break;
    end;
end;

end.

[Serge_Bliznykov]

Аватар, отличный пример!

Сообщение от Аватар

xButton.Align:=alTop;

да, точно! Тогда, при удалении кнопки, оставшиеся кнопки сами будут перестраиваться (подтягиваясь к верху формы).