Zu früh gefreut.
Scheinbar hat es gestern nur geklappt weil irgendwas von den anderen Versuchen im Speicher geblieben ist. Nachdem ich es heute nochmal getestet habe funktioniert es nicht mehr richtig. Folgende Konstellationen habe ich getestet:
Anwendung mit Fenster:
- Win32 = TaskDialogIndirect zeigt ein Fenster an.
- Win64 = TaskDialogIndirect zeigt ein Fenster an.
Anwendung ohne Fenster:
- Win32 = TaskDialogIndirect zeigt ein Fenster an.
- Win64 = TaskDialogIndirect zeigt kein Fenster an.
Als weiteren Versuch habe ich auch noch mal InitCommonControlsEx aufgerufen. Sowohl zusätzlich zu InitCommonControls als auch einzeln. Mir gehen ehrlich gesagt die Ideen aus woran das liegen könnte.
So sieht derzeit die
DPR der Anwendung ohne Fenster aus mit der ich teste:
Delphi-Quellcode:
var
ICC : TInitCommonControlsEx = (
dwSize : SizeOf(TInitCommonControlsEx);
dwICC : ICC_LISTVIEW_CLASSES
or
ICC_TREEVIEW_CLASSES
or
ICC_BAR_CLASSES
or
ICC_TAB_CLASSES
or
ICC_UPDOWN_CLASS
or
ICC_PROGRESS_CLASS
or
ICC_HOTKEY_CLASS
or
ICC_ANIMATE_CLASS
or
//ICC_WIN95_CLASSES or
ICC_DATE_CLASSES
or
ICC_USEREX_CLASSES
or
ICC_COOL_CLASSES
or
ICC_INTERNET_CLASSES
or
ICC_PAGESCROLLER_CLASS
or
ICC_NATIVEFNTCTL_CLASS
or
ICC_STANDARD_CLASSES
or
ICC_LINK_CLASS
);
begin
InitCommonControls;
InitCommonControlsEx(ICC);
tdiMessageDialog('
Anwendungsname',
'
Nachricht',
'
Nachrichtentext',
'
<a href="http://www.delphipraxis.net">Delphi-PRAXiS</a>',
'
',
TD_ERROR_ICON,
nil,
TDCBF_OK_BUTTON,
'
',
ID_OK,
TDF_EXPANDED_BY_DEFAULT,
0);
//Handle
end.
Hat jemand schon dieses Problem bei seinen Projekten gelöst und kann mir helfen?