Variable Übergeben

[shmia]

Zitat von DeddyH:

Ich würde mir eine Property Username im Hauptform deklarieren und bei erfolgreichem Login vom Loginform befüllen lassen.

Anderstrum.
Das modale Login-Formular hat zwei Properties:

Delphi-Quellcode:

property UserName:string;
property Password:string;

Diese Properties werden über Get- und Setmethoden an die beiden Edits auf dem Formular angebunden.
Ein direkter Zugiff auf die Edits vom Hauptformular aus findet nicht statt.

Delphi-Quellcode:

function DoLogin(var UserName, Password: String): Boolean; 
var 
  dlg: TMyLoginDlg; 
begin 
  dlg := TMyLoginDlg.Create(nil); 
  try 
    dlg.Username := 'default'; // optional: default user vorschlagen
    result := (dlg.ShowModal = mrOk);  // Login Dialog anzeigen
    if result then 
    begin 
      // Ergebnis abgreifen
      UserName := dlg.Username; 
      Password := dlg.Password; 
    end 
  finally 
    dlg.Free; 
  end; 
end;