A jelszó beviteli mezőhöz hasonlóan a beviteli jelszó csillagokkal jelenik meg

Hogyan írhatjuk be a jelszót a jelszó beviteli mezőbe csillagokkal?

Szükséges, hogy a jelszó megadása közben a jelszó csillagokkal jelenjen meg - hogyan kell ezt csinálni?

ha az InputQuery ("Jelszó beviteli mező", "Adja meg a jelszavát:", P) majd
ha P = "555", akkor // A jelszó megadása után a jelszó látható
kezdődik
# xA0; MainForm.Show;
vége más
kezdődik
ShowMessage ("Helytelen jelszót adott meg!");
végén;

> Volf_555 # xA0; (10/02/05 15:28)

Írja be InputQuery-jét.

Hogyan? Hozd a kódot

és hogyan használja ezt a PasswordChar?

Ez a kód nem működik

> Volf_555 # xA0; (02.10.05 15:43) [2]
> Hogyan? Hozd a kódot

aki megakadályozza a Dialogs.pas modul megnyitását, megtalálja az InputQuery funkciót, # xA0; és látod a kódot magad?
És írja be az InputPwdQuery-t?
Sőt, ebben # xA0; egy adott esetben az összes "írás" csökkenthető, ha egy pár funkciót másol a TDialogokból # xA0; a modulban egy pár string konstans leírása és egy sor a PasswordChar: = "*" funkciókódban; (azon a helyen, ahol a TEdit létrejön).
Ugyanakkor megtudhatja, hogyan lehet létrehozni egy űrlapot futásidőben.

Egyszerű példa (senki sem fog írni neked - így minden egyszerűsített)
program Project1;

felhasználások
# xA0; Formák,
# xA0; Unit1 az "Unit1.pas" -ban,
# xA0; Unit2 a "Unit2.pas" -ban;

kezdődik
ha nem az InputPwdQuery ("Jelszó beviteli mező", "Jelszó megadása:", P), akkor lépjen ki;
# xA0; Application.Initialize;
# xA0; Application.CreateForm (TForm1, Form1);
# xA0; Application.Run;
végén.

felület
Windows, Üzenetek, SysUtils, CommDlg, Classes, Graphics, Controls,
# xA0; Űrlapok, StdCtrls;

InputPwdQuery függvény (const ACaption, APrompt: string;
# xA0; var Érték: karakterlánc): Boolean;

funkció GetAveCharSize (vászon: TCanvas): TPoint;
. Másolva a Dialogs.pas-ból

InputPwdQuery függvény (const ACaption, APrompt: string;
# xA0; var Érték: karakterlánc): Boolean;
. Másolva a Dialogs.pas-ból
és szükség szerint ki kell javítani

Fájl -> Új -> Egyéb. -> Dialógusok -> Jelszó párbeszédpanel

Srácok, amiket felszágtál. Van elegánsabb kiút:

Ha a jelszót megadta a Szerkesztés mezőbe, módosítsa a PasswordChar tulajdonságot * -ra. és a jelszó beírásakor mindegyik megjelenik csillagok.

De ez csak akkor működik, ha a jelszó párbeszédablak külön formában van tervezve a Szerkesztés mezővel, és nem a programkódon keresztül. ha az InputQuery ("Jelszó beviteli mező", "Adja meg a jelszavát:", P) majd.

GUYS, másképp eszik, de megköveteli, hogy a jelszó párbeszédablakot a program új formájaként alakítsuk ki, ahol van egy Szerkesztés mező és két gomb - ok és törlés.

És mint ez a forma megakadályozza.

Számunkra a projektben létrehozott formák mennyisége nem korlátozott. Igen, és szigorúan megfelel az igényeknek.

Nincs semmi ellenem. Csak a fizikai törvények tudatlansága semmiképpen nem mentesíti őket szigorú betartásától. Az idő tetenek, az elmúlt x-hetes számítógépes tanfolyamok, ha nem telt el, közel van a naplementéhez. Egy személy (úgy értem, Volf_555) valamilyen okból le akarja zárni a bemeneti jelszót. A PasswordChar használatával potenciális kockázatot jelent (ezt már említettük), mert egy másik személynek nem is kell megnéznie a programkódot, nem beszélve más cselekvésekről. Ezért vágytam volt arra, hogy az első személyt (ahogy ő teremt) egyfajta szalmának helyre állítja. Valójában ez csak egy szalma. Ezért azt tanácsolom neki, hogy legalább felületesen tanulmányozza a titkosítás témáját. De ez egy másik téma.

Memória: 0,76 MB
Hossz: 0,05 másodperc