Hi t0mmy,
hier mal ne kleine Anmelderoutine...
vll kannst du damit bisschen was anfangen.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
if (edBenutzer.Text <> 'Benutzername') OR (edPasswort.Text <> 'Passwort') then
begin
Inc(Versuche);
if Versuche = 3 then
begin
ShowMessage('Ihre Eingaben waren dreimal falsch! Das Programm wird geschlossen!');
ModalResult := mrCancel;
end
else
begin
ShowMessage('Benutzername oder Passwort wurden falsch eingegeben.' + #13 +
'Bitte beachten Sie die Groß- und Kleinschreibung!'#13#13 +
'(' + IntToStr(Versuche) + '. Versuch)');
edPasswort.Text := '';
FocusControl(edBenutzer);
end;
end
else
begin
ModalResult := mrOk
end;
end;
wie du dich dann aber bei facebook, etc anmelden kannst, kann ich dir leider nicht sagen..
Habe aber eben was interessanten hier im Forum gefunden, das hilft dir bestimmt weiter.
http://www.delphipraxis.net/55604-an...it-idhttp.html