[delphi] aprire la stessa form + volte

[123delphi321]

Ciao a tutti,

ho un problema e non riesco a capire come risolvere.

da un menu, apro un form dove gestisco tramite IBDataset la tabella fornitori.

sull'evento OnShow di questa form eseguo:

procedure TFrmFornitori.FormShow(Sender: TObject);
begin
 Setta_Bottoni_Start ;
end;

procedure Setta_Bottoni_Start ;
begin
 FrmFornitori.Edit1.Enabled       := True ;
 FrmFornitori.BtnCerca.Enabled    := True ;
 FrmFornitori.BtnOK.Enabled       := False ;
 FrmFornitori.BtnAnnulla.Enabled  := False ;
 FrmFornitori.BtnCancella.Enabled := False ;
 FrmFornitori.BtnFine.Enabled     := True ;
 FrmFornitori.Edit1.SetFocus ;
end;

settando i bottoni per gestire gli eventi.

prmendo sul bottone 'BtnCerca' eseguo la query ed ottengo IBdataset1, e poi attivo gli opportuni pulsanti:

procedure TFrmFornitori.BtnCercaClick(Sender: TObject);
begin
 IBDataSet1.Close;
 IBdataset1.SelectSQL.Text := 'SELECT * FROM Fornitori WHERE upper(CODICE) = :ParParola';
 IBdataset1.ParamByName('ParParola').AsString := FrmFornitori.Edit1.Text;
 IBdataset1.Open;
 Setta_Bottoni_Cerca ;
end;

procedure Setta_Bottoni_Cerca ;
begin
 FrmFornitori.Edit1.Enabled       := False ;
 FrmFornitori.BtnCerca.Enabled    := False ;
 FrmFornitori.BtnOK.Enabled       := True ;
 FrmFornitori.BtnAnnulla.Enabled  := True ;
 FrmFornitori.BtnCancella.Enabled := not FrmFornitori.IBDataSet1.IsEmpty ;
 FrmFornitori.BtnFine.Enabled     := True ;
 FrmFornitori.DBEditNome.SetFocus ;
end;

fin qui tutto ok.
e funziona tutto bene se apro unicamente una sola form.

se apro due volte la stessa form...

  Application.CreateForm(TFrmFornitori , FrmFornitori )

succede che quando premo un pulsante della fom1..si sposta sulla form2.
sto continando a vedere ma non riesco a capire dove sta il problema.

xfavore, qualcuno mi sa aiutare?

grazie

[matsoftware]

Per creare la form puoi provare con

with TfrmFornitori.Create(Self) do
try
ShowModal;
finally
Free;
end;

[alka]

Si tratta di un problema puramente di principio, ed è dovuto al fatto che all'interno del codice della tua form fai riferimento ad una form specifica, cioè quella che ha il riferimento all'interno della variabile FrmFornitori.

Ciascuna classe che discende da TForm definisce le caratteristiche comportamentali di un form personalizzata.
Tale comportamento viene rispettato da tutte le istanze di quella classe TForm che vado a creare, siano esse 10, 100, 1000.

Nel tuo codice, non puoi scrivere istruzioni che fanno riferimento ad una variabile specifica, poichè altrimenti la tua classe lavorerà solamente sull'istanza rappresentata da quella variabile, che per giunta viene inserita in automatico da Delphi ma potrebbe non esistere nemmeno (ad esempio, se voglio creare 10 copie dello stesso form e memorizzarmi i riferimenti in una lista).

In definitiva, devi sostituire alle istruzioni del tipo

FrmFornitori.Edit1.SetFocus;

la forma

Edit1.SetFocus;

o al massimo

Self.Edit1.SetFocus;

L'identificatore Self viene passato a tutti i metodi della classe e rappresenta l'istanza di tale classe che si sta utilizzando per accedere al metodo ("metodo" = "procedura o funzione di una classe).

[123delphi321]

ho provato a fare come mi indichi...

In definitiva, devi sostituire alle istruzioni del tipo

FrmFornitori.Edit1.SetFocus;

la forma

Edit1.SetFocus;

il comando FrmFornitori.Edit1.SetFocus; viene richiamato dalla procedura Setta_Bottoni_Start e se tolgo FrmFornitori. ottengo errore in compilazione

[Error] Unt_fornitori.pas(56): Undeclared identifier: 'Edit1'
[Error] Unt_fornitori.pas(62): Missing operator or semicolon
[Fatal Error] Prj_fatture.dpr(8): Could not compile used unit 'Unt_fornitori.pas'

forse non puo essere richiamato da una procedura?

grazie

[alka]

Il problema è che la procedura Setta_Bottoni_Start è statica, è una procedura completamente slegata dalla classe del form con la quale ha in comune solo il fatto che si trova nella stessa unit.

Devi tramutare la procedura in un metodo della classe TFrmFornitori:

procedure TFrmFornitori.Setta_Bottoni_Start ;
begin
 Edit1.Enabled       := True ;
 BtnCerca.Enabled    := True ;
 BtnOK.Enabled       := False ;
 BtnAnnulla.Enabled  := False ;
 BtnCancella.Enabled := False ;
 BtnFine.Enabled     := True ;
 Edit1.SetFocus ;
end;

L'evento OnShow non viene modificato:

procedure TFrmFornitori.FormShow(Sender: TObject);
begin
 Setta_Bottoni_Start;
end;

Quando l'evento viene generato, il metodo Setta_Bottoni_Start dell'istanza viene eseguito. Ciascun form condividerà lo stesso metodo che agirà, in fase di visualizzazione, sull'istanza corrente del form rappresentata dall'identificatore implicito Self.