Array di controlli

[Stilgar]

Proteggi il codice scrivento "attorno"

Codice: [Seleziona]

try
except
on e: exception do
begin
end;
end;

poi una domanda, ma il callback ai bottoni l'hai impostato con @ o senza?
Se hai tolto delphi e messo objfpc le cose bambiano un pochino.


Stilgar

[nomorelogic]

ho fatto delle prove, posto il mio codice
l'errore era nella riga con il commento

Codice: [Seleziona]

procedure TForm1.Button1Click(Sender: TObject);
Var
  idx : integer;
begin
   setLength(buttons, 10);
   for idx :=low(buttons) to high(buttons) do
      begin
         Buttons[idx] := TButton.create(self);
         Buttons[idx].OnClick := ButtonsClick;    //  := Tform1.ButtonsClick è errato
         Buttons[idx].Top  := 50 + (idx * 25);
         Buttons[idx].Left := 220;
         Buttons[idx].Caption := Format('Bottone nr. %d', [idx]);
         Buttons[idx].Parent := self;
         Buttons[idx].Tag    := idx;
      end;
end;


procedure TForm1.ButtonsClick(Sender : TObject);
begin
   Label1.Caption := TButton(Sender).Caption + ' - Tag = ' + IntToStr(TButton(Sender).Tag);
end;

[Frankq]

E' perfetto, grazie a tutti per l'aiuto. Ho modificato il programma inserendo la creazione dei button nell'vento FormCreate come suggeritomi da xinyiman

Ultima cosa. Le opzioni di compilazione delphi e objfpc
la quale provoca errori in compilazione. Potete spiegarmi il motivo e quale usare?
Franco

Accludo il programma modificato, per chi interessasse

Codice: [Seleziona]

unit Unit1;

{$mode delphi}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BtnClick(Sender: TObject);
  private
     Btn : Array of TButton;
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

 //btn : Tbutton;
implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var
  ind : integer;
begin
   setlength(Btn, 5);
   for ind :=low(Btn) to high(Btn) do
   begin
        Btn[ind]:=TButton.Create (Self);
        Btn[ind].Parent := Self;
        btn[ind].Left:= 20 + 60*ind;
        btn[ind].Top:=20;
        btn[ind].caption:= 'btn' + IntToStr(ind);
        btn[ind].Tag:=ind;
        btn[ind].Name:='Btn' + IntToStr(ind);
        btn[ind].onclick:=BtnClick;
   end;

end;



procedure TForm1.Button1Click(Sender: TObject);
begin
   
 close;
end;

procedure TForm1.BtnClick(Sender: TObject);
var
  buff : String;
begin
     buff := Tbutton(sender).name;
  label1.caption:=Tbutton(sender).caption;
   label2.caption:= buff;
end;

end.  

[nomorelogic]

Ultima cosa. Le opzioni di compilazione delphi e objfpc
la quale provoca errori in compilazione. Potete spiegarmi il motivo e quale usare?

leggi qua per una panoramica (non sono le uniche modalità)
http://www.freepascal.org/docs-html/user/userse33.html

ed anche qua per sapere in dettaglio cosa cambia tra un modo e l'altro
http://www.freepascal.org/docs-html/prog/progap4.html#progse62.html