creare un componente timer da codice... altro problema!!!

[nomorelogic]

elimina la riga: SetLength(MyBytton, N_Pulsanti);

poi prova così:

Codice: [Seleziona]

  
   for i:=0 to N_Pulsanti-1 do
       begin
         MyBytton:=TButton.Create(Tabsheet2);
         TButton(MyBytton).Caption:=Ini.ReadString('Pulsanti','Button' + IntToStr(i+1) + '_Caption','');
         TButton(MyBytton).Top:=Ini.ReadInteger('Pulsanti','Button' + IntToStr(i+1) + '_Top',50);
         TButton(MyBytton).Left:=Ini.ReadInteger('Pulsanti','Button' + IntToStr(i+1) + '_Left',50);
         TButton(MyBytton).Width:=Ini.ReadInteger('Pulsanti','Button' + IntToStr(i+1) + '_Width',50);
         TButton(MyBytton).Height:=Ini.ReadInteger('Pulsanti','Button' + IntToStr(i+1) + '_Height',50);
         TButton(MyBytton).Visible:=true;
         TButton(MyBytton).Parent:=Tabsheet2;
         TButton(MyBytton).Owner:=Tabsheet2;
         TButton(MyBytton).OnClick:=@DoClick; //gli dico a quale procedura far riferimento all'evento onclick
       end;

[sekoto]

elimina la riga: SetLength(MyBytton, N_Pulsanti);

poi prova così:

Codice: [Seleziona]

  
   for i:=0 to N_Pulsanti-1 do
       begin
         MyBytton:=TButton.Create(Tabsheet2);
         TButton(MyBytton).Caption:=Ini.ReadString('Pulsanti','Button' + IntToStr(i+1) + '_Caption','');
         TButton(MyBytton).Top:=Ini.ReadInteger('Pulsanti','Button' + IntToStr(i+1) + '_Top',50);
         TButton(MyBytton).Left:=Ini.ReadInteger('Pulsanti','Button' + IntToStr(i+1) + '_Left',50);
         TButton(MyBytton).Width:=Ini.ReadInteger('Pulsanti','Button' + IntToStr(i+1) + '_Width',50);
         TButton(MyBytton).Height:=Ini.ReadInteger('Pulsanti','Button' + IntToStr(i+1) + '_Height',50);
         TButton(MyBytton).Visible:=true;
         TButton(MyBytton).Parent:=Tabsheet2;
         TButton(MyBytton).Owner:=Tabsheet2;
         TButton(MyBytton).OnClick:=@DoClick; //gli dico a quale procedura far riferimento all'evento onclick
       end;

Non funziona, mi dà il seguente errore all'istruzione TButton(MyBytton).Owner:=Tabsheet2;

unit2.pas(100,36) Error: No member is provided to access property

[nomorelogic]

commenta la riga e riprova a compilare, forse mi sono confuso con Parent

[sekoto]

commenta la riga e riprova a compilare, forse mi sono confuso con Parent

Non funziona mi dà il seguente errore:

unit2.pas(100,36) Error: No member is provided to access property

[nomorelogic]

ma è la stessa riga di errore del post precedente...
sei sicuro d'averla commentata?

[sekoto]

scusa, io non sono un esperto e quindi forse (anzi è sicuro!!!) sbaglio qualcosa...

Allora:
- mi hai detto di eliminare la famosa riga è l'ho fatto!!!
- mi hai detto di commentarla (che io ho intermpretato "commentarla = reinseriscila" e forse quì ho sbagliato), e l'ho fatto!!!

Allora dove è l'errore? Comunque grazie per il tuo aiuto!!!

[nomorelogic]

commenta la riga e riprova a compilare, forse mi sono confuso con Parent

mi riferivo al fatto che ho confuso Owner con Parent e quindi dovevi commentare la riga con l'errore:

Codice: [Seleziona]

TButton(MyBytton).Owner:=Tabsheet2;

prova cosi:

Codice: [Seleziona]

  
   for i:=0 to N_Pulsanti-1 do
       begin
         MyBytton:=TButton.Create(Tabsheet2);
         TButton(MyBytton).Caption:=Ini.ReadString('Pulsanti','Button' + IntToStr(i+1) + '_Caption','');
         TButton(MyBytton).Top:=Ini.ReadInteger('Pulsanti','Button' + IntToStr(i+1) + '_Top',50);
         TButton(MyBytton).Left:=Ini.ReadInteger('Pulsanti','Button' + IntToStr(i+1) + '_Left',50);
         TButton(MyBytton).Width:=Ini.ReadInteger('Pulsanti','Button' + IntToStr(i+1) + '_Width',50);
         TButton(MyBytton).Height:=Ini.ReadInteger('Pulsanti','Button' + IntToStr(i+1) + '_Height',50);
         TButton(MyBytton).Visible:=true;
         TButton(MyBytton).Parent:=Tabsheet2;
         // TButton(MyBytton).Owner:=Tabsheet2;
         TButton(MyBytton).OnClick:=@DoClick; //gli dico a quale procedura far riferimento all'evento onclick
       end;

[sekoto]

Funziona... Grazie infinite... 

[sekoto]

rispolvero questo vecchio 3d per spiegare il mio problema: allora ho creato i miei timer e i miei pulsanti solo che ho modificato quest'ultimi: invece di usare TButton ho usato degli TSpeedButton in quanto hanno delle opzioni in più di personalizzazione (tipo le glyph).
E quindi a  proposito delle glyph non ho capito come si salvano le immagini dei pulsanti nel file INI (e tanto meno come caricarli all'avvio del programma!!!)

Grazie mille e scusate ancora se disturbo con domande/richieste sciocche!!!

Cordiali saluti!

[nomorelogic]

la proprietà Glyph è di tipo TBitmap, quindi per caricare un file:

Codice: [Seleziona]

SpeedButton1.Glyph.LoadFromFile('c:\path\file.bmp');

Nel file .INI puoi salvare il fullpath di un'immagine (con SaveToFile) e poi ricaricaricarlo nell'evento OnCreate della form

[sekoto]

Non so come inserire il codice all'interno del ciclo for... non è che mi potresti fare il classico esempio?
Grazie infinite

[nomorelogic]

fare un programmino di esempio è difficile non sapendo dove e come sono messi questi bottoni:
1) i bottoni sono di un numero definito o possono aumentare e/o diminuire?
2) i bottoni sono tutti all'interno di uno stesso container (form/panel, ecc..) o no?
3) i bottoni sono creati automaticamente in quanto presenti a design-time o sono creati a runtime?

Un ciclo for lo farei solo se tutti i bottoni sono nello stesso container e se sono in numero fisso.
Ad esempio:

Codice: [Seleziona]

procedure TForm1.FormCreate(Sender: TObject);
var scan: integer;
begin
  for scan := 0 to Form1.ControlCount -1 do begin
    if Form1.Controls[scan] is TButton then begin
       ShowMessage(Form1.Controls[scan].Name);
    end;
  end;
end;

Se sono istanziati a runtime forse dovresti pensare ad una sottoclasse derivata che fa tutto il lavoro in modo trasparente.

[sekoto]

I bottoni sono creati a run-time (come specificato negli esempi sopra.
Si trovano in un tabsheet e possono aumentare o diminuire...

Quindi come dovrei procedere??
Grazie mille

[nomorelogic]

se sono tutti in un tabsheet puoi usare il pezzo di codice che vedi sopra
solo che invece di Form1.ControlCount cercherai in: TabSheet1.ControlCount

Puoi usare il nome del bottone per discriminare il nome del file con l'immagine:
xButton.Glyph.LoadFromFile(PercorsoImmagini + PathDelim + xButton.Name + '.bmp');

[sekoto]

Booo non sono in grado.... sono troppo scarso... :-(

allora io ho questo codice:

.....

  for i:=0 to N_Pulsanti-1 do
       begin
         MyBytton:=TButton.Create(Tabsheet2);
         TButton(MyBytton).Caption:=Ini.ReadString('Pulsanti','Button' + IntToStr(i+1) + '_Caption','');
         TButton(MyBytton).Top:=Ini.ReadInteger('Pulsanti','Button' + IntToStr(i+1) + '_Top',50);
         TButton(MyBytton).Left:=Ini.ReadInteger('Pulsanti','Button' + IntToStr(i+1) + '_Left',50);
         TButton(MyBytton).Width:=Ini.ReadInteger('Pulsanti','Button' + IntToStr(i+1) + '_Width',50);
         TButton(MyBytton).Height:=Ini.ReadInteger('Pulsanti','Button' + IntToStr(i+1) + '_Height',50);
         TButton(MyBytton).Visible:=true;
         TButton(MyBytton).Parent:=Tabsheet2;
         // TButton(MyBytton).Owner:=Tabsheet2;
         TButton(MyBytton).OnClick:=@DoClick; //gli dico a quale procedura far riferimento all'evento onclick
       end;
.....
come la devo inserire l'istruzione che mi vada a leggere la proprietà del Glyph legata al pulsante???

Perdona la mia immensa ignoranza e abbi un pò di compassione.
Per il momento non mi rimane che ringraziarti!!!