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

[sekoto]

Salve a tutti, vorrei sapere la procedura corretta per creare un componente timer da codice; in poche parole ad un certo punto del programma devo creare un componente timer e attivare il suo evento ontimer.
Potrete scrivermi un programma di esempio in modo che io possa capire come fare...
Inoltre la stessa cosa devo farlo con un componente button e attivare il suo evento onclick.

Grazie mille

[nomorelogic]

ciao
puoi dare un'occhiata a questo thread
http://forum.lazarus.freepascal.org/index.php?topic=7046.0


e, mi raccomando, devi dichiarare il tuo evento OnTimer come metodo della classe TForm oppure con la dicitura "of object"

[xinyiman]

Guarda l'allegato e dimmi se era quello che ti serviva 

[sekoto]

Guarda l'allegato e dimmi se era quello che ti serviva 

ciao grazie mille era proprio quello che cercavo...

comunque una volta creati tutti i pulsanti e i timer che voglio c'è un modo per salvarli???
ad esempio se nell'applicazione creo 5 pulsanti con 5 timer u e poi chiudo l'applicazione, c'è un modo (tipo salvare i dati in fiule di testo e poi caricarlo quando avvio l'applicazione!!!) per avere i miei 5 pulsanti e 5 timer???

Grazie mille

[xinyiman]

Guarda l'allegato e dimmi se era quello che ti serviva 

ciao grazie mille era proprio quello che cercavo...

comunque una volta creati tutti i pulsanti e i timer che voglio c'è un modo per salvarli???
ad esempio se nell'applicazione creo 5 pulsanti con 5 timer u e poi chiudo l'applicazione, c'è un modo (tipo salvare i dati in fiule di testo e poi caricarlo quando avvio l'applicazione!!!) per avere i miei 5 pulsanti e 5 timer???

Grazie mille

Non capisco, spiegati meglio

[sekoto]

tu hai creato un solo timer ed un solo pulsante; ma se io ne creo 5 timer e 5 pulsanti, questi devono rimanere in memoria, cioè quando riapro l'applicazione il nella form devono comparire i 5 pulsanti che ho creato. Ritornando alla domanda iniziale, cè un modo per "salvare" questi 5 pulsanti? Spero di essere stato chiaro...
Comunque grazie mille per il tuo aiuto, è stato molto prezioso per capire alcune cose...

[xinyiman]

Domani ti posto una versione aggiornata dell'esempio con i timer e i pulsanti passati tramite file ini

[xinyiman]

Guarda se era quello che cercavi

[sekoto]

Grazie mille non è proprio quello che cercavo ma mi sa che forse lo posso adattare ai miei scopi...
Grazie ancora, siete preziosissimi...

[Stilgar]

Sekoto.
Sempre se interpreto correttamente la tua domanda.
I pulsantini e i timer, una volta che tiri giù l'applicazione, cessano di esistere, guai se così non fosse
Salvi in qualche modo (ini, xml, json, db, binario) lo stato dell'applicazione che vuoi persistere su disco.
La prima cosa che fai quando parte l'applicazione è caricare il vecchio stato.

Per i timer esistono vari modi per farli.
Per windows ci sono delle API apposite (per Linux non le conosco).
Se ti appoggi ai componenti di lazarus non diventi matto.

Se invece vuoi che i timer (alla scedenza) facciano qualche cosa anche ad applicazione chiusa, lo scenario di complica molto di più.

Stilgar

[sekoto]

Come faccio a creare i componenti all'interno di un tabsheet? (Mi riferisco ai pulsanti...)

Una volta mi ricordo di esserci riuscito ma non ora non so come fare...

[nomorelogic]

Devi valorizzare la proprietà Owner con il puntatore del controllo che fa da contenitore

[sekoto]

Devi valorizzare la proprietà Owner con il puntatore del controllo che fa da contenitore

Perdonami, ma potresti fare un esempio di codice (sai non sono molto esperto)...
Comunque grazie mille

[nomorelogic]

ad esempio:

Codice: [Seleziona]

procedure AddButtons...
var xBtn: TButton;
begin
   xBtn := TButton.Create(xTabSheet);
   xBtn.Owner := xTabSheet;
   xBtn.Top := 10;
   xBtn.Left := 10;
   xBtn.Width := 150;
   xBtn.Height := 80;
   xBtn.Caption := 'hello world';
   ...
end

[sekoto]

Allora, io ho questo pezzo di codice:

procedure TForm2.FormActivate(Sender: TObject);
var i: integer;
begin
   Ini:=TINIFile.Create(Application.Location + 'Config/Config.ini');
   N_Timer:=Ini.ReadInteger('Impostazioni','N_Timer',0);
   N_Pulsanti:=Ini.ReadInteger('Impostazioni','N_Pulsanti',0);
   SetLength(mytimer, N_Timer);
   for i:=0 to N_Timer-1 do
     begin
       TTimer(mytimer):=TTimer.Create(nil);
       TTimer(mytimer).Enabled :=true;
       TTimer(mytimer).Interval := Ini.ReadInteger('Timer','Timer' + IntToStr(i+1) + '_Interval',1000);
       TTimer(mytimer).OnTimer := @DoTimer; //gli dico a quale procedura far riferimento all'evento ontimer
     end;
     SetLength(MyBytton, N_Pulsanti);
     for i:=0 to N_Pulsanti-1 do
       begin
         MyBytton:=TButton.Create(nil);
         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:=Self;
         TButton(MyBytton).OnClick:=@DoClick; //gli dico a quale procedura far riferimento all'evento onclick
       end;
end;

In pratica ho una form con 2 panel e un PageControl che al suo interno contiene 3 Tabsheet. Io dovrei far comparire i bottoni all'interno del secondo Tabsheet, come dovrei modificare il codice??
La procedura postata sopra non funziona oppure io non la so applicare...

Comunque grazie a tutti e perdonatemi l'ignoranza!!!