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:

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:

Zitat von DeddyH

Wieso rekursiv?

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

[deplinux]

Zitat:

Zitat von Bernhard Geyer

Zitat:

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:

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 :mrgreen: