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