[Lazarus] Setting ModalResult

[Richard Mace]

Hi All,
I have my main form, performing the following code:

if frmLogIn.ShowModal = mrOk then
begin
  ShowMessage('OK was clicked');
end

Now, if at design time on my frmLogIn I have a btnOK.ModalReult := mrOk,
when btnOK is clicked, the form closes and the above result is true.
However, if at design time, on my frmLogIn I have btnOK.ModalResult :=
mrNone, and then on the btnOK.OnclickEvent I set the ModalResult := True,
the frmLogIn does not close, but it does set the ModalResult to mrOK,
however, I have to click the btnOK button for a second time for the form to
close. The same code is Delphi 7 set's the ModalResult to OK AND closes the
form.

Is this a bug, or am I missing something?

Thanks in advance

Richard

Lazarus 0.9.30 fpc 2.4 Windows XP
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20120312/a9e2a7d0/attachment-0002.html>