[Lazarus] Setting ModalResult

[Mattias Gaertner]

On Mon, 12 Mar 2012 23:40:31 +0000
Richard Mace <richard.mace at gmail.com> wrote:

> 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.

It works here.

 
> Is this a bug, or am I missing something?
> 
> Thanks in advance
> 
> Richard
> 
> Lazarus 0.9.30 fpc 2.4 Windows XP

2.4?
Please check these versions. They look pretty old.


Mattias