Form zur Laufzeit neu erstellen

[Chemiker]

Hallo,

@Peinhard: Es ist doch ohne weiteres möglich mit dem out – Parameter noch nachträglich eine Auswertung vorzunehmen.

Delphi-Quellcode:

class function TFormSPSDAPPassWort.PassWortFreigabe (out Rueckgabe : Boolean): Boolean;
begin
  with TFormSPSDAPPassWort.Create(nil) do
    try
      Result := ShowModal=mrok;  // ModalResult auf mrOk
      if Result then
        Rueckgabe := TRUE            // Rückgabe-Wert
       else
        Rueckgabe := FALSE;
     finally
       free;                    // Speicherfreigabe
   end;
end;

procedure TFormSPSDAPPassWort.Edit1Change(Sender: TObject);
begin
  if Edit1.Text = 'P' then   // Das Paßwort muss noch geändert werden.
    BitBtn3.Enabled := TRUE; // Der Button wird freigegeben
end;

Im Hautprogramm wird dann der out – Parameter ausgewertet. Im meinem Beispiel wird das Programm nur beendet, wenn das richtige Passwort eingegeben worden ist.

Delphi-Quellcode:

procedure TSPSDAPHauptForm.Beenden1Click(Sender: TObject);
begin
  TFormSPSDAPPassWort.PassWortFreigabe (PRG_Ende);
  if Prg_Ende then
  begin
    close;
  end;
end;

Bis bald Chemiker