Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by tom_po,
7. Jul 2006
hatte es vor euren letzten Postings so gemacht und geht jetzt:
procedure TPasswordDlg.OKBtnClick(Sender: TObject);
begin
if passworddlg.Password.Text = 'moritex2006' then
showdbview('select Order as "N.P.",Client as "Cliente",Article as "Artigo",finaldate as "Data Entrega",realdate as "Data Embalado",materialin as "Entrada Material",cuttingin as "Entrada Corte",cuttingout as "Saída...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by tom_po,
7. Jul 2006
ich hab's mal so probiert, von meinem Hauptmenu auf (passowort nur auf ein bestimmtes Untermenu angwendet=editarencomendas1.click).
die form passworddlg öffne ich mit der procedure showpass, die form geht auf, wenn ich jedoch das passwort mo eingebe, passiert nichts...
procedure showpass;
begin
passworddlg:=Tpassworddlg.create(mainform);
passworddlg.Show;
end;
procedure...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by tom_po,
7. Jul 2006
ich hab's mal so probiert, klappt aber nicht, meine "geschützte Form" geht sofort auf, ohne dass ein Paswort eingegeben werden kann:
procedure TMainForm.Editarencomendas1Click(Sender: TObject);
begin
showpass;
if passunit.passworddlg.Password.Text = 'mo' then
passworddlg.Close
else begin
showdbview('select Order as "N.P.",Client as "Cliente",Article as "Artigo",finaldate as "Data...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by tom_po,
6. Jul 2006
vor dem Aufrufen einer Form durch mein Untermenu, soll ein Passwort verlangt werden, gibt es für diese Passwortabfrage schon eine fertige Form?