Hallo Ulenia,
Es funktioniert wunderbar mit der Option WindowFloating -> True.
Der Preis ist allerdings, dass der Maus-Cursor nicht mehr im Textfeld
angezeigt wird, was bei mehreren Feldern etwas verwirrend ist.
Man kann den Dialog auch halbautomatisch platzieren
In[39]:= testG = GUIRun[
Widget["Panel", {{Widget[
"Button", {"text" -> "New",
BindEvent["Action", Script[open[]]]}],
Script[open[] :=
CreateDialog[{TextCell["Create Directory:"],
InputField[Dynamic[nm], String], nm = "",
DefaultButton[
DialogReturn[{CreateDirectory[newdir = "d:\\" <> nm],
newdir, Print[newdir]}]]}, (* WindowFloating -> True *)
WindowMargins ->
Inner[ List, {Automatic, Automatic}, MousePosition[],
List]]]}}]];
... der Mauscursor ist im Eingabefeld zu sehen, nachdem man dort
geklickt hat und das Eingabefenster ist auch zu sehen ...
Gruss
Udo.