Entwickler-Ecke
Grafische Benutzeroberflächen (VCL & FireMonkey) - Simpler Programm Login
chickenfigt1989 - Do 31.03.11 14:06
Titel: Simpler Programm Login
Hallo
Will ein simplen Programm Login.
Habe nun folgendes:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
| procedure TForm2.Button1Click(Sender: TObject);
begin
if Edit1.Text='master' then
begin
Form1.show;
Form2.close;
end
else
Showmessage('Du hast keinen Zutritt');
end; |
Wollte nun noch was einbauen dass wenn das Passwort admin ist, das auf Form1 ein button sichtbar ist den man als normal benutzer nicht hat
wie macht man das?
lg
HenryHux - Do 31.03.11 14:09
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
| procedure TForm2.Button1Click(Sender: TObject);
begin
button1.visible := false;
if Edit1.Text='master' then
begin
Form1.show;
Form2.close;
button1.visible := true;
end
else
Showmessage('Du hast keinen Zutritt');
end; |
Thom - Do 31.03.11 14:12
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| procedure TForm2.Button1Click(Sender: TObject);
begin
if (Edit1.Text='master') or (Edit1.Text='admin') then
begin
Form1.Show;
Form1.Button1.Visible:=Edit1.Text='admin';
Form2.Close;
end else ShowMessage('Du hast keinen Zutritt');
end; |
@
HenryHux:
 chickenfigt1989 hat folgendes geschrieben  : |
| Wollte nun noch was einbauen dass wenn das Passwort admin ist, das auf Form1 ein button sichtbar ist den man als normal benutzer nicht hat |
chickenfigt1989 - Do 31.03.11 16:18
Vielen Dank hat mir weitergeholfen
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!