Re: [Lazarus] I can't exit this component

2024-04-01 Thread Arí Ricardo Ody via lazarus
Nice explanation. Thank you very much. On Sat, Mar 30, 2024 at 4:20 PM Marc Weustink via lazarus < lazarus@lists.lazarus-ide.org> wrote: > The onenter is indeed fired when the control gets focus. However if you > show a dialog in that event, the control loses focus and gets it again when > the d

Re: [Lazarus] I can't exit this component

2024-03-30 Thread Marc Weustink via lazarus
The onenter is indeed fired when the control gets focus. However if you show a dialog in that event, the control loses focus and gets it again when the dialog is closed, resulting in a loop. In general it is bad coding to have much logic in onenter/onleave events I once was confronted with an

Re: [Lazarus] I can't exit this component

2024-03-30 Thread Arí Ricardo Ody via lazarus
I was thinking that OnEnter would refer to receiving focus. If it responds to mouse movement then it is explained. I changed the logic to use the OnClick event in the component. Then it worked. I see now that it was a lack of knowledge on my part. Thank you very much. On Fri, Mar 29, 2024 at 9:

Re: [Lazarus] I can't exit this component

2024-03-30 Thread Arí Ricardo Ody via lazarus
I gave up using "OnEnter". Apparently this doesn't work right. I switched to using the "OnClick" event. Thank you for your help. Greetings from São Paulo - Brazil On Fri, Mar 29, 2024 at 8:52 AM Alexey T. via lazarus < lazarus@lists.lazarus-ide.org> wrote: > When something like this happens, do

Re: [Lazarus] I can't exit this component

2024-03-29 Thread Martin Frb via lazarus
On 29/03/2024 13:25, Martin Frb via lazarus wrote: FIn_tedtNomArqMicEnter then exit;   FIn_tedtNomArqMicEnter := true; Field in TFrmGeraString. TFrmGeraString = class(TForm) private   FIn_tedtNomArqMicEnter : Boolean; -- ___ lazarus mailing list laz

Re: [Lazarus] I can't exit this component

2024-03-29 Thread Martin Frb via lazarus
On 29/03/2024 13:03, Werner Pamler via lazarus wrote: Am 29.03.2024 um 12:09 schrieb Arí Ricardo Ody via lazarus: procedure TfrmGeraString.tedtNomArqMicEnter(Sender: TObject); The "Enter" in this method name indicates that you assigned the event handler to the OnEnter event of something (a butt

Re: [Lazarus] I can't exit this component

2024-03-29 Thread Werner Pamler via lazarus
Am 29.03.2024 um 12:09 schrieb Arí Ricardo Ody via lazarus: procedure TfrmGeraString.tedtNomArqMicEnter(Sender: TObject); The "Enter" in this method name indicates that you assigned the event handler to the OnEnter event of something (a button maybe). This means that whenever the mouse is moved

Re: [Lazarus] I can't exit this component

2024-03-29 Thread Alexey T. via lazarus
When something like this happens, do this - put a breakpoint inside TSaveDialog.Execute - get the undesired appearing of SaveDialog. see the breakpoint in IDE activated. - call 'View / Debug windows / Call Stack' IDE window and see it - it shows where code came from Alex -- __

[Lazarus] I can't exit this component

2024-03-29 Thread Arí Ricardo Ody via lazarus
In the method below, after running TSaveDialog I cannot proceed. Anywhere I click always reopens TSaveDialog. The OnClose event is executed. I know because I placed a ShowMessage on this event. procedure TfrmGeraString.tedtNomArqMicEnter(Sender: