Printable View
من برخي از برنامه هام رمز ورود مي خوان و فرم اصلي برنامه را فرم دريافت رمز ورود قرار مي دم پس با بستن اون پنجره برنامه Terminate ميشه پس نميشه اون رو بست و كار را ادامه داد وقتي كاربر رمز رو درست وارد كرد پنجره رمز را Hide و فرم بعدي رو نمايش مي دم آيا اينكار درست هست؟ يا اينكه بايد يك بلاي ديگه سر پنجره دريافت رمز بيارم به غير از Hide كردن؟
با تشكر
لزومی نداره فرم دریافت رمز را فرم اصلی قرار بدید.
1- فرم که بصورت دایالوگ باکس نمایش داده بشه، طراحی کنید، مثلا:
interface
type
TLoginForm = class(TForm)
edtUserName : TEdit;
edtPassword : TEdit;
btnOK : TButton;
btnCancel : TButton;
procedure btnOKClick(Sender: TObject);
protected
function ValidatePassword: Boolean; virtual;
public
class function Execute: Boolean;
end;
implementation
class function TLoginForm.Execute: Boolean;
begin
with TLoginForm.Create(nil)
try
Result := ShowModal = mrOK;
finally
Free;
end;
end;
procedure TLoginForm.btnOKClick(Sender: TObject);
begin
if ValidatePassword then
Self.ModalResult := mrOK
else
begin
ShowMessage('Invalid password!');
Self.ModalResult := mrNone;
end;
end;
function TLoginForm.ValidatePassword: Boolean;
begin
Result := edtPassword.Text = '123';
end;
2- به صورت زیر در فایل DPR پروژه آن را استفاده کنید:
if TLoginForm.Execute then
begin
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end;
نقل قول:
نوشته شده توسط علی کشاورز
کد نويسي زيبايي بود من که لذت بردم:تشویق: