Variable Übergeben

[deplinux]

Hallo,

ich habe 2 Forms:

- Login
- Hauptprogramm

Wie kann ich es machen dass der Benutzername der im Login Form eingegeben wurde im Hauptprogramm verwendet werden kann?

[DeddyH]

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

[Bernhard Geyer]

Zitat von DeddyH:

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

und damit rekursive abhängigkeiten verursachen

Definiere eine Funktion die du vom Hauptformular aufrufst

Delphi-Quellcode:

function DoLogin(var UserName, Password: String): Boolean;
var
  dlg: TMyLoginDlg;
begin
  result := False;
  dlg := TMyLoginDlg.Create(nil);
  try
    if dlg.ShowModal = mrOk then
    begin
      result := True;
      UserName := dlg.EditUser.Text;
      Password := dlg.EditPassword.Text;
    end
  finally
    dlg.Free;
  end;
end;

[DeddyH]

Wieso rekursiv?

[Bernhard Geyer]

Zitat von DeddyH:

Wieso rekursiv?

Die Mainform muß was vom Loginform wissen (Anzeige mit ShowModal) und as Loginform vom Hauptformular (Property setzen).

[deplinux]

Zitat von Bernhard Geyer:

Zitat von DeddyH:

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

und damit rekursive abhängigkeiten verursachen

Definiere eine Funktion die du vom Hauptformular aufrufst

Delphi-Quellcode:

function DoLogin(var UserName, Password: String): Boolean;
var
  dlg: TMyLoginDlg;
begin
  result := False;
  dlg := TMyLoginDlg.Create(nil);
  try
    if dlg.ShowModal = mrOk then
    begin
      result := True;
      UserName := dlg.EditUser.Text;
      Password := dlg.EditPassword.Text;
    end
  finally
    dlg.Free;
  end;
end;

Danke schoneinmal dafür.

Ich habe jetzt den Button im Loginformular.

Nur wie mache ich das jetzt mit deiner Funktion?

Muss die ins Login Formular oder ins 2.?

[DeddyH]

@Bernhard: unter Rekursion versteh ich aber etwas anderes
@deplinux: in dem Code wird das LoginForm erst erzeugt, wo muss der Code also hin?

[Sherlock]

Was Bernard wohl meinen dürfte ist eine zyklische Referenzierung.

Sherlock

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

[DeddyH]

Damit könnte ich leben