In mijn Projectfile heb ik onderstaande code staan die eerst een globale ADOConnection opent. Het inlogdialog komt keurig op de voorgrond te staan, echter bij een verkeerde aanmelding, en na een messagebox, verdwijnt het inlogdialog van de ADOConnection naar de achtergrond en heeft ook geen focus meer.Iemand enig idee?Code:function TryOpenDatabaseConnection: Boolean; const HC_WRONGUSERNAME = 5003029; //Ongeldige accountnaam of wachtwoord HC_WRONGPASSWORD = 5003029; HC_CANCELEDBYUSER = 1240661; //Bewerking is geannuleerd door de gebruiker var TryLoginAgain: Boolean; begin Result := False; ... repeat TryLoginAgain := False; try GlobalADOConnection.Open; Result := True; except on E: Exception do begin case E.HelpContext of HC_WRONGUSERNAME or HC_WRONGPASSWORD: begin TryLoginAgain := True; MsgBox(E.Message + #13#10#10 + 'Probeer het nogmaals, ' + 'of sluit af met "Cancel".', Mb_Ok + Mb_IconError); end; HC_CANCELEDBYUSER: begin MsgBox(E.Message, Mb_Ok + Mb_IconInformation); Application.Terminate; end; else begin MsgBox('Er is een onbekende fout opgetreden:'#13#10#10 + E.Message + #13#10#10'Breng uw systeembeheerder ' + 'hiervan op de hoogte.', Mb_Ok + Mb_IconError); Application.Terminate; end; end; end else begin Application.HandleException(GlobalADOConnection); Application.Terminate; end; end; until not TryLoginAgain; end; begin HWindow := FindWindow('TApplication', 'Planning'); if HWindow <> 0 then begin if IsIconic(HWindow) then ShowWindow(HWindow, SW_Restore) else SetForeGroundWindow(HWindow) end else begin Application.Title := 'Planning'; Application.Initialize; if TryOpenDatabaseConnection then begin Application.CreateForm(TMainForm, MainForm); Application.CreateForm(TPlanItemDialog, PlanItemDialog); Application.CreateForm(TAboutBox, AboutBox); end; Application.Run; end; end.
Bookmarks