[Delphi] BorderIcons in un Refresh

[progra]

Ciao a tutti,

il mio problema è questo: ho realizzato una form che si ricarica (richiamando il metodo Activate della Form) dopo tot secondi (regolati da un TTImer) ed interroga un dataset ADO ad ogni ricaricamento. Durante questo refresh devo abilitare o disabilitare i pulsanti di minimizzazione, massimizzazione e chiusura della form MA la Commit sul dataset non va a buon fine quando invece ci va se non abilito/disabilito tali pulsanti, perchè?
Per abilitare/disabilitare utilizzo:

FMain.BorderIcons := BorderIcons - [biSystemMenu, biMinimize, biMaximize];

e ovviamente:
FMain.BorderIcons := BorderIcons + [biSystemMenu, biMinimize, biMaximize];

Qualcuno può aiutarmi? La form non dev'essere ridemensionabile o chiudibile tramite questi pulsanti.

Ciao

[MMarzia]

il linguaggio va specificato anche nel titolo (vedi regolamento )

[progra]

Me ne ero dimenticato.


Scusami.

[alka]

Originariamente inviato da progra
Durante questo refresh devo abilitare o disabilitare i pulsanti di minimizzazione, massimizzazione e chiusura della form MA la Commit sul dataset non va a buon fine quando invece ci va se non abilito/disabilito tali pulsanti, perchè?
[...]
Qualcuno può aiutarmi? La form non dev'essere ridemensionabile o chiudibile tramite questi pulsanti.

Non vedo alcun nesso tra le icone del bordo del form e la possibilità di eseguire Commit sul DataSet ADO...sicuramente il problema va ricercato altrove analizzando il codice sorgente.

Tuttavia, credo che se lo scopo da raggiungere è evitare la chiusura del form, tra l'altro non possibile quando l'applicazione è impegnata nell'operazione di Commit, è più opportuno intercettare l'evento OnCloseQuery e impedire qualsiasi operazione di chiusura attraverso tale evento.

Per istruzioni su come sfruttare l'evento OnCloseQuery, consulta la Guida in linea di Delphi.

Per altri problemi, posta anche un po' codice, almeno le parti significative, altrimenti è (quasi) impossibile risalire all'origine dei difetti che riscontri nel tuo programma.

Ciao!

[progra]

Ok,

ho seguito il tuo consiglio ed ho gestito la chiusura tramite OnCloseQuery .
Ma saresti così gentile (ancora) da spiegarmi il perchè non posso eseguire l'operazione (commentata nel codice che ti mando)?

di seguito il codice (scusa l'indentazione ma non so come viene fuori perchè è la prima volta che uso i tag CODE):

try
    DataModuleAssenze.ADOConnection.BeginTrans;
    with QTest do begin
      Close;
      with SQL do begin
        Clear;
        Add('SELECT * FROM orari WHERE Assenza<>0 AND Interno='+QuotedStr(DBLookupInterni.Text)); //+' AND Giorno='+QuotedStr(IntToStr(giorno))
      end;
      Open;
      First;
      while not Eof do begin
        BitBtnOk.Glyph.LoadFromFile('check.bmp');
        BitBtnOk.Caption := 'Annulla ';
        //FMain.BorderIcons := BorderIcons - [biMinimize, biMaximize];
        ass_temp := True; // imposto il fatto che sono in assenza temporanea
        DBLookupInterni.Enabled := False;
        RTemporanea.Checked := True;
        RTemporanea.Enabled := False;
        RProlungata.Enabled := False;
        DTPInizio.Enabled := False;
        DTPOraInizio.Enabled := False;
        DTPFine.Enabled := False;
        DTPOraFine.Enabled := False;
        BitBtnEsci.Enabled := False;
        BitBtn2.Enabled := False;
        vedi := False;
        Next;
      end;
      Close;
DataModuleAssenze.ADOConnection.CommitTrans;
  except
    DataModuleAssenze.ADOConnection.RollbackTrans;
    if MessageDlg('ERRORE REFRESH.', mtError, [mbOk], 0) = mrOk then
        Close;
  end;

Grazie mille.

[alka]

Sinceramente, non ho il tuo progetto quindi non so il significato e le funzionalità che hai attribuito ad ogni controllo, ma direi che il cambiamento del loro stato è totalmente inefficace all'interno di un simile ciclo poichè tale stato viene reso effettivo solo quando la routine è terminata.