hata kodu

[mrmarman]

Şu şekilde bir dene istersen

Button1 : CONST ifadede verilen sayıda Button oluşturur. Mevcut ise oluşturmaz.
Her button basıldığında kendini gizler.
Button2 : Aynı sayıda döngü ile butonların Visible özelliğini TRUE yapar.

    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
 private
   { Private declarations }
   procedure ButonBasildi(Sender: TObject);
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.fmx}
{$R *.Windows.fmx MSWINDOWS}

Const
 iButtonCount = 100;

procedure TForm1.Button1Click(Sender: TObject);
var
 l, t, s, w, h, i : Integer;
 strName : String;
begin
 l :=   4;
 t :=   4;
 w := 100;
 h :=  22;
 s :=   4;
 for i := 0 to iButtonCount-1 do
 begin
   strName := Format('Button_%.2d', [i]);
   if Self.FindComponent( strName ) = nil then
   begin
     with TButton.Create( self ) do
     begin
       Name    := strName;
       Tag     := i;
       Parent  := ScrollBox1;
       Visible := True;
       Width   := w;
       Height  := h;
       Position.X := l;
       Position.Y := t;
       OnClick := ButonBasildi;
     end;
     Inc(l, w+s );
     if l + w+s  > ScrollBox1.Width then
     begin
       l := 4;
       Inc(t, h+s );
     end;
   end;
 end;
end;

procedure TForm1.ButonBasildi(Sender: TObject);
begin
 TButton(Sender).Visible := False;
end;

procedure TForm1.Button2Click(Sender: TObject);
Var
 i : Integer;
begin
 for i := 0 to iButtonCount-1 do
 begin
   if Self.FindComponent( Format('Button_%.2d', [i]) ) <> nil
     then TButton( Self.FindComponent( Format('Button_%.2d', [i]) ) ).Visible := True;
 end;
end;