Hallo Zusammen,
Ich arbeite momentan an einem Programm das ich in einem SystTayIcon verschwinden lasse und es dann gesperrt ist und der Benutzer dann ein Passwort und einen Benutzernamen eingaben muss um das Programm wieder frei zu geben.
Mein Problem:
wenn ich die Eingabemaske für Passwort und Benutzernamen anzeige hat sie keinen Focus
Verstecken und wiederherstellen der forms:
Delphi-Quellcode:
procedure TForm1.TrayIcon1Click(Sender: TObject);
var
I: Integer; //Counter
begin
if seh then //Seh ist eine Variable zur überprüfung ob sie versteckt sind oder nicht
begin
application.Minimize;
for I := 0 to screen.formcount - 1 do
begin
screen.forms[i].hide;
end;
seh := false;
end
else
begin
if sperr then //überprüfen ob das Programm gesperrt werden soll
begin
if not s8 then //Überprüfen ob loginmaske erstellt wurde
begin
s8 := true;
Application.CreateForm(TForm8, Form8);
form8.show; //anzeigen der Loginmaske
end;
end
else
begin
for I := screen.formcount -1 downto 0 do
begin
screen.forms[i].show
end;
application.Restore;
application.BringToFront;
seh := true;
end;
end;
end;
om den Focus zu setzen habe ich einiges versucht
Delphi-Quellcode:
self.activate; // auf der loginmaske OnShow;
self.setfocus;
selbiges habe ich auch mit den Editfeldern versucht aber nichts hilft!
folgendes ist bei der Loginmaske "OnShow"
Delphi-Quellcode:
procedure TForm8.FormShow(Sender: TObject);
begin
if form1.Edit1.Text <> '' then
begin
self.edit1.Text := form1.edit1.text;
//Wenn möglich focus auf edit2.text legen
end;
//wenn möglich Focus auf edit1.text legen
end;
ich hoffe ihr könnt mir weiter helfen ich weis nichtmer weiter und mir fällt auch nichts mehr ein
schonmal vielen vielen dank
gruß Manu