diff options
-rw-r--r-- | src/gui/promptuserdialog.inc | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/gui/promptuserdialog.inc b/src/gui/promptuserdialog.inc index a2f14685..45f48000 100644 --- a/src/gui/promptuserdialog.inc +++ b/src/gui/promptuserdialog.inc @@ -11,6 +11,8 @@ edPassword: TfpgEdit; function GetUserID: TfpgString; function GetUserPassword: TfpgString; + protected + procedure btnOKClick(Sender: TObject); override; public constructor Create(AOwner: TComponent); override; // Gof defines this Authenticate method a Hook operation in Template methods pattern. @@ -54,6 +56,12 @@ begin Result := edPassword.Text; end; +procedure TfpgPromptUserDialog.btnOKClick(Sender: TObject); +begin + if Authenticate then + inherited btnOKClick(Sender); +end; + constructor TfpgPromptUserDialog.Create(AOwner: TComponent); begin inherited Create(AOwner); |