[Lazarus] Modifying Form Event

Hans-Peter Diettrich DrDiettrich1 at aol.com
Thu Mar 13 14:00:19 CET 2014


Mattias Gaertner schrieb:
> On Thu, 13 Mar 2014 22:45:44 +1030
> Steve Gatenby <steveg at nevets.com.au> wrote:
> 
>> Hoping somebody may be able to explain why the following doesn't stop 
>> the Form closing.
>>
>> Button1 sets the method pointer correctly (I believe), as when closing 
>> the form the showmessage occurs as expected (and shows the correct form 
>> name).
>> But the form closes anyway.
>>
>> procedure MyFormCloseQuery(Sender: TObject; var CanClose: boolean);
> 
> Methods have a hidden Self parameter:
> 
> procedure MyFormCloseQuery(Self: TObject; Sender: TObject; var
> CanClose: boolean);

Ah, I missed *that* essential detail in my answer :-(

Thanks
DoDi





More information about the Lazarus mailing list