Also ich habe jetzt bisschen rumprobiert und habe eine Möglichkeit gefunden. Habe aber noch ein Problem
Es wird immer die MainForm gestartet und in dem CreateForm Ereignis prüfe ich ob der User sich einloggen muss und wenn ja öffne ich so die LoginForm:
Delphi-Quellcode:
var
LoginForm: TForm1;
begin
DB:=TDB.Create(FDConnection1);
try
if not DB.isLogged
then
begin
LoginForm := TForm1.Create(
nil);
LoginForm.ShowModal(
procedure(ModalResult : TModalResult)
begin
if ModalResult = mrOK
then
// do something here
end);
end;
finally
//nothing todo
end;
ABER, wenn ich jetzt in eine Edit Komponente reinklicke ... taucht die Tastatur nicht mehr auf
Ich kann den Benutzernamen und Passwort nicht eingeben.
Wenn ich jetzt aber den Code oben in ein Button onClick Ereignis reintune, wird die LoginForm geöffnet und ich kann problemlos Benutzername und Passwort eingeben.
Wieso ist das so? Liegt es daran das der Focus nicht an der LoginForm liegt? Was für eine Möglichkeit habe ich?
Habe eine Lösung gefunden, die Form einfach im Thread starten und schon funktioniert es super:
http://stackoverflow.com/questions/3...monkey-project