[delphi] risalire a proprieta FormStyle di una Form

[123delphi321]

si, sull FrmMovimenti ho inserito Ibtable1 (collegato alla tabella Movimenti), e Datasource1 collegato alla Ibtable1, e anke i vari campi Dbedit per l'inserimento dei valori di IBtable1 (tabella Movimenti).

la tecnica che utilizzo e':

1) inserire un valore corrispondente a ID_MOVIMENTI in Edit1.text

2) cercare tale valore nella tabella Movimenti, se esiste leggo i valori dalla tabella e li modifico, se non esiste eseguo Ibtable1.Append e inserisco nuovi valori.
Il progressivo ID_MOVIMENTO viene elaborato (come tu mi hai suggerito) al momento della conferma dei dati (evento BtnOkClick) dove eseguo SELECT * from view_idmovimenti e viene generato il progressivo.

procedure TFrmMovimenti.BtnCercaClick(Sender: TObject);
begin
 if Edit1.Text = '' then Edit1.SetFocus
 else
 begin
   IBTable1.Open ;
   if not IBTable1.Locate('ID_MOVIMENTI',edit1.Text,[loCaseInsensitive]) then
    begin
     IBTable1.Append ;
    end;
    Setta_Bottoni_Cerca ;
 end;

end;

....
procedure TFrmMovimenti.Setta_Bottoni_Cerca;
begin
 Edit1.Enabled       := False ;
 BtnCerca.Enabled    := False ;
 BtnCerca.Enabled    := False ;
 BtnHelp.Enabled     := False ;
 BtnOK.Enabled       := True ;
 BtnAnnulla.Enabled  := True ;
 BtnCancella.Enabled := not IBTable1.Eof ;
 BtnFine.Enabled     := True ;
 BtnHelpFornitori.Enabled    := True ;
 DBEdit2.SetFocus ;
end;
....

grazie

[alka]

La quantità di codice è troppo vasta da interpretare, senza considerare che sono del tutto fuori dalla soluzione che cerchi di implementare, nonostante cerchi giustamente di spiegarla al meglio.

L'unico consiglio che ti dò è quello di mettere un breakpoint sul pulsante di chiusura delle form modale di livello più alto (quella aperta per ultima) e di eseguire passo passo tutte le operazioni successive alla chiusura vedendo quale percorso segue il tuo codice e in quale punto, evidentemente, viene effettuata la chiusura della form sottostante, mentre tu vorresti che questa rimanesse aperta.

[123delphi321]

sto provando,...e non so piu cosa controllare.

in effettti una volta chiusa la form superiore (la 2 in showmodal) la precedente passa subito al comando successivo a quello di visualizzazione della form 1...come se avesse ricevuto un ulteriore comando di chiusura.

purtroppo non ci riesco...... non so piu cosa fare.

adesso provo a scrivere la stessa applicazione in modalita non MDI,...vedro cosa succede, spero di riuscire a risolvere il problema.


grazie
fulvio

[alka]

Originariamente inviato da 123delphi321
in effettti una volta chiusa la form superiore (la 2 in showmodal) la precedente passa subito al comando successivo a quello di visualizzazione della form 1...come se avesse ricevuto un ulteriore comando di chiusura.

Questo passaggio è immediato, oppure ci sono istruzioni che vengono eseguite da Delphi e che portano alla chiusura del secondo form?

Ricordati di usare il tasto F7 per eseguire passo passo il programma entrando nelle singole routine (procedure, funzioni o metodi che siano).

Ciao!