[delphi] aprire la stessa form + volte

[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.