Array di controlli

[Frankq]

Ciao a  tutti
In VB6 avevo creato un'applicazione con un array di Button uguali
differivano nella caption e nell'evento onClick testavo la proprietà index per saper quale era stato premuto.
In lazarus se copio un controllo gli cambia il nome.
E' possibile fare un array di Button?
Franco

[nomorelogic]

hai (almeno) 2 modi:

(1) se copi/incolli un bottone (e giustamente come dici tu gli cambia nome) non hai un array ma un secondo puntatore ad un secondo bottone. Puoi assegnare tramite object inspector lo stesso evento a tutti e due i bottoni.
All'interno dell'evento OnClick devi controllare Sender che è il puntatore al bottone che ha scatenato l'evento.
(2) puoi creare a runtime tutti i bottoni che vuoi ed abbinare all'evento OnClick di ogni bottone un metodo della tua form (che deve essere dichiarata esattamente come l'evento OnClick dei bottoni). All'interno dell'evento il solito parametro Sender ti aiuterà a capire quale bottone ha sollevato l'evento

[Stilgar]

Si, li puoi fare.
A sentimento sarebbe una cosa del genere

Codice: [Seleziona]

var
  buttons : array of TButton;

procedure TForm1.PopolaMenuDinamiciAllaVisualBasic;
Var
  index : integer;
begin
   setLength(buttons, 10);
   for index :=low(buttons) to high(buttons) do
begin
  Buttons[index] :=  TButton.create(self);
  Buttons[index].onclick := buttonClick;
end;


procedure TForm1.ButtonsClick(Sender : TObject);
var
idx : integer;
begin
    for index :=low(buttons) to high(buttons) do
    begin
        if (sender = buttons[idx]) then
        begin
        case idx of
        0: fai qualche cosa 
        ....
        9 : siamo alla frutta
        end;
        end;
    end;
end;
end;

Stilgar

[Frankq]

Ciao
Ho provato il primo esempio; funziona ma è brutale!
Il secondo esempio mi piace di piu ma non sono riuscito ad implementarlo nel progetto di prova
Alla riga 16 del codice che ti posto si inchioda sulla dichiarazione dell procedura con il seguente errore:
unit1.pas(16,20) Fatal: Syntax error, ";" expected but "." found
L'unico '.' è quello tra TForm1 e Popolamenu

Codice: [Seleziona]

unit Unit1;

{$mode objfpc}{$H+}

interface

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

type

  { TForm1 }

  TForm1 = class(TForm)
    Label1: TLabel;
   procedure Tform1.PopolaMenuDinamiciAllaVisualBasic;
   procedure TForm1.ButtonsClick(Sender : TObject);

  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;
  buttons : array of TButton;

implementation

{$R *.lfm}
procedure TForm1.PopolaMenuDinamiciAllaVisualBasic;

Var
  index : integer;
begin
   setLength(buttons, 10);
   for index :=low(buttons) to high(buttons) do
begin
Buttons[index] :=  TButton.create(self);

  Buttons[index].onclick := buttonsClick;
end;


procedure TForm1.ButtonsClick(Sender : TObject);

var
idx : integer;
begin
    for index :=low(buttons) to high(buttons) do
    begin
        if (sender = buttons[idx]) then
        begin
          label1.caption :=str(idx);
        {case idx of
        0: fai qualche cosa
        ....
        9 : siamo alla frutta

        end; }
        end;
    end;
end;

end.
      

Sno agli inizi con il Pascal e Lazarus
 ciao
Franco

[Stilgar]

emm .. il case non è scritto correttamente ...
L'ho buttato ad pene segugiorum ...

Codice: [Seleziona]

case idx of
0: Begin end;
1: Begin End;
2: Begin end;
// così via fino al
9: Begin End;
End;

Stilgar

[Frankq]

Ciao
Il case io l'avevo commentato perchè in un caso di prova non mi serviva
Mi da errore  in compilazione sulla dichiarazione della procedura
procedure TForm1.Popola...
vedi la mia risposta precedente
Franco

[Stilgar]

Vero. Ho letto di corsa e capito male.

Vedendo la unit mi viene un sospetto:
{$mode objfpc}{$H+}
traspormalo in
{$mode delphi}{$H+}

Poi fammi sapere.

Stilgar

[Frankq]

Ciao
Ho corretto le opzioni ma non cambia niente
Franco

[nomorelogic]

prova con le modifiche sotto


la dichiarazione della classe della form:

Codice: [Seleziona]

{$mode delphi}{$H+}      
...
  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
    buttons : array of TButton; 
    procedure ButtonsClick(Sender : TObject);
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation    

button1->onclick

Codice: [Seleziona]

procedure TForm1.Button1Click(Sender: TObject);
Var
  index : integer;
begin
   setLength(buttons, 10);
   for index :=low(buttons) to high(buttons) do
      begin
         Buttons[index] :=  TButton.create(self);
         Buttons[index].onclick := TForm1.buttonsClick;
      end;
end;

buttons click

Codice: [Seleziona]

procedure TForm1.ButtonsClick(Sender : TObject);

var
idx : integer;
begin
    for idx :=low(buttons) to high(buttons) do
    begin
        if (sender = buttons[idx]) then
        begin
          label1.caption := inttostr(idx);
        {case idx of
        0: fai qualche cosa
        ....
        9 : siamo alla frutta

        end; }
        end;
    end;
end;

[Frankq]

Ciao.
Adesso compila senza errori e va in esecuzione ma non visualizza i buttons. Si vede solo il form vuoto con Label1
Ho modificato la procedure di creazione dei button per impostare le proprietà. accludo il code

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;
  // procedure Tform1.PopolaMenuDinamiciAllaVisualBasic;
   procedure Button1Click(Sender : TObject);

  private
    { private declarations }
       buttons : array of TButton;
       procedure ButtonsClick(Sender : TObject);
  public
    { public declarations }
  end;

var
  Form1: TForm1;


implementation

{$R *.lfm}
procedure TForm1.Button1Click(Sender: TObject);
Var
  index : integer;
begin
   setLength(buttons, 10);
   for index :=low(buttons) to high(buttons) do
      begin
         Buttons[index] :=  TButton.create(self);
         Buttons[index].onclick := TForm1.buttonsClick;
         Buttons[index].Left:= 20 + 50*index;
         Buttons[index].Top:=20;
         Buttons[index].Height:=18;
         Buttons[index].Width:=40;
         Buttons[index].Visible:=true;
      end;
end;


procedure TForm1.ButtonsClick(Sender : TObject);

var
idx : integer;
begin
    for idx :=low(buttons) to high(buttons) do
    begin
        if (sender = buttons[idx]) then
        begin
          label1.caption :=inttostr(idx);
        {case idx of
        0: fai qualche cosa
        ....
        9 : siamo alla frutta

        end; }
        end;
    end;
end;

end.
                  

NB. Se sostituisco delphi con objfpc  segnala errore in compilazione
Franco

[Stilgar]

Ciao,
 allora per delphi->objfpc e gli errori che ottieni, la motivazione è semplice. "Index" è già una parola riservata dal compilatore per indicizzare le propetties.
 Vado sempre a memoria, non ho il compilatore a portata di mano, aggiungi anche un buttons[index].parent := self;
 

Stilgar

[Frankq]

Ho cambiato Index con ind e ho inserito il
buttons[ind].parent := self;
Non Mostra niente
Allore ho messo un break all'instruzione setLength(buttons, 10);
e l'applicazione non si è interrotta
Franco

[Frankq]

Ciao
I Buttons non apparivano perchè nessuno lanciava la procedura
procedure TForm1.Button1Click(Sender: TObject);
Ho aggiunto Button1 al form e cliccando appaiono i  10 button

Il problema è nella procedura
procedure TForm1.ButtonsClick(Sender : TObject);
che in un ciclo For dovrebbe identificare il button premuto e visualizzare in label1
il test
if (sender = buttons[idx]) then
provoca l'uscita immediata dal ciclo for

Ora Sender è un oggetto e anche Buttons[idx] è un oggetto
ma c'è qualcosa che non và.
Accludo il codice della procedura
Franco

Codice: [Seleziona]

procedure TForm1.ButtonsClick(Sender : TObject);

var
idx : integer;
begin
    for idx :=low(buttons) to high(buttons) do
    begin
        if (sender = buttons[idx]) then
        begin
          label1.caption :=inttostr(idx);
        end;
    end;
end; 

[nomorelogic]

secondo me l'indice non ti dovrebbe servire, puoi confrontare direttamente il puntatore
ad esempio:

Codice: [Seleziona]

if Sender = Button1 then
   begin
   end;

se non puoi fare a meno dell'indice, quando crei il bottone, memorizza l'indice nella proprietà Tag (del bottone stesso) e prova un approccio tipo:

Codice: [Seleziona]

procedure TForm1.ButtonsClick(Sender : TObject);
begin
    label1.caption := IntToStr(TButton(Sender).Tag);
end; 

in tutti e 2 i casi eviti il ciclo for

[Frankq]

Ciao,
Ho aggiunto l'indice nel .Tag e poi ho impostato la Label1.Caption
Mi và in errore per eccezione di classe External: SIGSEGV
Franco