tfloatspinedit always executes "oneditingdone" event for all other buttons

[jkorten]

So I am not yet comfortable with Lazarus. But here's a simple app. Put in a tfloatspinedit and a tspeedbutton: for the tfloatspinedit object double click on the event "oneditingdone" and put in showmessage('spin'), and double click on the event "onclick" for the speed button and put showmessage('button');

run

change the value in the floatspinedit box to something (a number) and hit return. Now any other button you press will execute the tfloatspineditoneditingdone event.

Why is this? Is there some type of acknowledgement I'm supposed to execute to get the tfloatspinedit guy to stop triggering?

The regular tspinedit does not exhibit this behavior by the way.

Thanks in advance for the help.

[jkorten]

my mistake - tspinedit does this too

[jkorten]

OK let me be more plain. I do not understand why the program mentioned above will always enter the spinedit "editingdone" event even if I press the speedbutton.

The relevant events are listed below and only the spinedit1 event is triggered even if you press the speedbutton. There must be an "event edit done" property that I have to set but I can't find it in the documentation.


procedure TForm1.SpinEdit1EditingDone(Sender: TObject);
begin
  showmessage('spin');
  form1.setfocus;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  showmessage('button');
end;

[wp]

Use a regular TButton or TBitBtn instead of the TSpeedbutton which is not a TWinControl and cannot receive the focus.

[jkorten]

Thanks for the suggestion WP but when I put the following code in (with a regular button) still the spinedit1 event fires twice (even when disabled?) before I can get focus onto the regular button.

Clearly there must be a crossed wire in the way this object triggers events, no?

Is there anything I am missing about acknowledging the event within the event handler?

example code below:


procedure TForm1.SpinEdit1EditingDone(Sender: TObject);
begin
  spinedit1.Enabled:= false;
  showmessage('spin');
  button1.SetFocus;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage('button2');
  spinedit1.enabled := true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  showmessage('form');
end;

[wp]

I'm not quite sure, but I think to see in the source code of the component that the OnEditingDone event really fires twice: first, when ENTER is pressed (that's hard-coded into TCustomEdit), and second when the Edit loses focus (inherited from TControl). Since your OnEditingDone shows a messagebox the edit automatically loses focus. If you want to check the behavior of the event add a silent watch, for example a counter that you increment in the OnEditingDone and display in a label.

If you really need the message dialog, you could try the following work-around: add a status variable to the form and keep track of the EditingDone's:

Code: [Select]

var
  EditDoneCounter: integer;

In the Edit's OnChange event handler you reset the counter, and in the OnEditDoneEvent you increment it. The main code of the OnEditDone event should be executed only while EditDoneCounter=0.

Something like this (of course, untested...)

Code: [Select]

procedure TForm1.SpinEditChange(Sender:TObject);
begin
  EditDoneCounter := 0;
end;

procedure TForm1.SpinEditEditingDone(Sender:TObject);
begin
  if EditDoneCounter = 0 then begin
    // here is was you want to do, e.g. show the messge box
  end;
  inc(EditDoneCounter);
end;


[jkorten]

Well the only workaround I found was to use a tedit object and it fires only once on editingdone. I put in my own string checking.

Both of the tspinedit and tfloatspinedit objects cause all other object events to trigger through  the oneditingdone event for the spinedit objects.

I regard this as a bug. Especially since nobody else has seen this behavior (and said so).

Should I report this?

[wp]

Yes.