Modaler Dialog während Dragging

[Scotty]

Ich versuche einen Dialog innerhalb von DragDrop zu erzeugen. Das klappt unter Delphi, aber FPC lässt noch nicht mal ShowMessage zu (der Klick wird nicht ausgewertet). Ich kann das Problem umständlich durch Show+OnClick usw. lösen. Ein Nachteil ist unter anderem, dass es unter Linux kein richtiges fsStayOnTop gibt und der Dialog damit nicht sicher ausgewertet wird. Hat jemand einen besseren Vorschlag?

Code: Alles auswählen

procedure TTest.DoDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  if (Source is TTestDragObject) then                        
  begin
    aForm:=TForm.Create(nil);
    aForm.Parent:=nil;
    aButton:=TButton.Create(aForm);
    aButton.ModalResult:=123;
    if aForm.ShowModal=123 then Machwas; //kein ModalResult; ein OnClick des Buttons wird ebenfalls nicht ausgelöst
  end;
 
  if (Source is TTestDragObject) then ShowMessage('Test'); //Dialog kann nicht geschlossen werden
end;

[theo]

In den Bugtracker damit.

[theo]

Ist der von dir?
http://bugs.freepascal.org/view.php?id=14318" onclick="window.open(this.href);return false;

Solltest vielleicht noch angeben wo es nicht läuft, statt wo es läuft

[Scotty]

Irgendwie ist dieser Bugtracker buggy. Deswegen gibt es doch den Abschnitt Plattform...
Danke für die Meldung, ich füge es nochmal ein.

[theo]

Siehe unten

[Scotty]

View Advanced! Widgetset hatte ich aber tatsächlich übersehen.