Issue with TVirtualStringTree OnNodeDblClick

[Mike Torrettinni 198]

Not sure how to describe the issue, so here is the strange behavior: When I double click the VirtualStringTree1Node to ShowMessage('Node dbl clicked'), I need to click twice (the Close button - X ) to close the form, after the message window is closed.

 

Simple example of new form with VirtualStringTree1 control:

 

procedure TForm8.FormCreate(Sender: TObject);
begin
  VirtualStringTree1.RootNodeCount := 1;
end;

procedure TForm8.VirtualStringTree1NodeDblClick(Sender: TBaseVirtualTree; const HitInfo: THitInfo);
begin
  ShowMessage('NODE dbl clicked');
end;

I tried Application.ProcessMessages after ShowMessage, no change, still need 2 clicks to close the form.

 

Any ideas what am I doing wrong?

 

VTVersion = 7.2.1

 

Edited March 21, 2020 by Mike Torrettinni

[Attila Kovacs 629]

because the mouseup event will be swallowed by the modal window (showmessage)

 

[Mike Torrettinni 198]

Thanks! So I need to 'raise' another MouseUp event?

Edited March 21, 2020 by Mike Torrettinni

[Attila Kovacs 629]

defer your showmessage with a custom message

 

[Mike Torrettinni 198]

Thanks! Wow, these modal windows are killing me in last few days!

[Mike Torrettinni 198]

Just found this thread, I guess a similar issue: Windows is hungry and eats mouse events 🙂

 

[Mike Torrettinni 198]

I ended up using PostMessage:

 

TForm1
...
const
  WM_OpenRealTimeMonitoringForm = WM_APP + 1; 
private
  procedure OpenRealTimeMonitoringForm(var Message: TMessage); message WM_OpenRealTimeMonitoringForm;
  
 
procedure TForm1.VSTOnNodeDblClick(Sender: TBaseVirtualTree; const HitInfo: THitInfo);
begin
  // Use PostMessage to correclty handle DblClick, to avoid mouse-event be eaten by modal window...
  PostMessage(Self.Handle, WM_OpenRealTimeMonitoringForm, 0, 0);
end; 

procedure TForm1.OpenRealTimeMonitoringForm(var Message: TMessage);
begin
  ...
  Form.Show;
end;

 

[Fr0sT.Brutal 900]

That's weird - can't reproduce this issue. VTVersion = '7.3.0';