Hallo zusammen,
habe hier ein merkwürdiges Phänomen, das ich fast als Delphi-Bug bezeichnen möchte (oder vielleicht sehe ich nur den Wald vor lauter Bäumen nicht???).
Ich habe mit einem Dialog in einem non-
VCL-Programm experimentiert, habe folgenden Quelltext:
Delphi-Quellcode:
Program Dialogtest;
Uses windows, messages;
{$R testdialog.res}
Function DlgProc(hDlg: Integer; Msg:DWORD; wParam, lParam: DWORD): Boolean; stdcall;
Begin
Result := True;
Case Msg of
WM_COMMAND: Case LOWORD(wParam) Of
IDCANCEL: EndDialog(hDlg,0); // Abbrechen-Button
End;
Else Result := False;
End;
End;
Procedure ConfigDialog;
Var test: Integer;
Begin
test := DialogBox(hInstance,MAKEINTRESOURCE(101),GetForegroundWindow,@DlgProc);
End;
begin
ConfigDialog;
end.
Als Dialogvorlage habe ich einen einfachen Standarddialog aus dem ResourceWorkshop gewählt (nur Buttons):
Code:
101 DIALOG 6, 15, 194, 119
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "DIALOG"
FONT 8, "MS Sans Serif"
{
DEFPUSHBUTTON "OK", IDOK, 12, 96, 50, 14
PUSHBUTTON "Cancel", IDCANCEL, 72, 96, 50, 14
PUSHBUTTON "Help", IDHELP, 132, 96, 50, 14
}
Beim Start wird der Dialog auch angezeigt, nur leider ist das eigentliche Dialogfenster transparent, d.h. keine Titelleiste, kein Fensterhintergrund oder -rahmen, nur die Buttons sind zu sehen (und reagieren wenigstens...).
Ich habe nirgends einen transparenten Fensterstil angegeben, ist alles Standard (s.o). Kurz vor der Verzweiflung habe ich spasseshalber mal in den Compiler-Optionen die Optimierung wieder eingeschaltet, die ich sonst meistens aus habe (von wegen Debugging...) und siehe da: alles ganz normal, ein schöner Dialog mit Fenster, wie es sich gehört.
Das ganze lässt sich auf meinem WinXP(Home) mit Delphi3, 5 und 7 reproduzieren.
Ich dachte immer, die Optimierung sorgt nur dafür, das Prozessorregister verwendet werden, wo das möglich ist. Dass es einen Einfluss auf die Dialogdarstellung gibt, hätte ich eigentlich nicht erwartet... Aber wie gesagt, eventuell fehlt mir ja nur der Durchblick...
Vielleicht kann das ja mal jemand bei sich ausprobieren, würde mich interessieren, ob das ein Bug ist.
Ciao, teebee