Delphi-PRAXiS - Einzelnen Beitrag anzeigen

Zitat von choose:

Task Dialog

Mal technisch: Ich sitze gerade hier mit Vista und Delphi 5.

Auf die UI muss ich verzichten, aber der Kommandozeilencompiler geht. Die einfache Variante des Dialogs, "TaskDialog", habe ich hinbekommen:

zusammenfalten · markieren

Delphi-Quellcode:

			unit Vista;

interface;

const

  TD_WARNING_ICON       = -1;

  TD_ERROR_ICON         = -2;

  TD_INFORMATION_ICON   = -3;

  TD_SHIELD_ICON        = -4;

  // TASKDIALOG_COMMON_BUTTON_FLAGS

  TDCBF_OK_BUTTON            = $0001; // selected control return value IDOK

  TDCBF_YES_BUTTON           = $0002; // selected control return value IDYES

  TDCBF_NO_BUTTON            = $0004; // selected control return value IDNO

  TDCBF_CANCEL_BUTTON        = $0008; // selected control return value IDCANCEL

  TDCBF_RETRY_BUTTON         = $0010; // selected control return value IDRETRY

  TDCBF_CLOSE_BUTTON         = $0020; // selected control return value IDCLOSE

  function TaskDialog(hwndParent: HWND; hInstance: longword;

    pszWindowTitle: PWideChar; pszMainInstruction : PWideChar;

    pszContent: PWideChar; dwCommonButtons: dword; pszIcon : PWideChar;

    var pnButton: integer): HRESULT; stdcall;

implementation

const

  comctl32 = 'comctl32.dll';

function TaskDialog; external comctl32;

end.

Im Original ist die Deklaration der Buttons eigentlich vom enum-Typ, aber egal. Das funktioniert auch erst mal so. Merkwürdig finde ich das mit den Symbolen. Hier mal die Originaldeklaration der Funktion

markieren

Code:

			WINCOMMCTRLAPI HRESULT WINAPI TaskDialog(__in_opt HWND hwndParent, __in_opt HINSTANCE hInstance, __in_opt PCWSTR pszWindowTitle, __in_opt PCWSTR pszMainInstruction, __in_opt PCWSTR pszContent, TASKDIALOG_COMMON_BUTTON_FLAGS dwCommonButtons, __in_opt PCWSTR pszIcon, __out_opt int *pnButton);
		

PCWSTR ist doch, IMHO, ein PWideChar, oder? Demzufolge müsste meine Delphi-Deklaration von oben ja korrekt sein. Klappt nur nicht. Versuche ich ein Symbol zu laden, dann sehe ich die Box überhaupt nicht. Bisher klappt es nur mit nil:

zusammenfalten · markieren

Delphi-Quellcode:

			if (TaskDialog(0, 0, 'Test TaskDialog', 'So eine etwas dickere Überschrift',

      'Dies ist der eigentliche Inhalt.', TDCBF_YES_BUTTON or TDCBF_NO_BUTTON or

      TDCBF_CANCEL_BUTTON, nil, i) = S_OK) then

begin

  case i of

    IDYES:

      MessageBox(0, 'Ja', nil, 0);

    IDNO:

      MessageBox(0, 'Nein', nil, 0);

    IDCANCEL:

      MessageBox(0, 'Abbrechen', nil, 0);

  end;

end;

An sich sollte aber auch
(TaskDialog(0, 0, { ... } MAKEINTRESOURCEW(TD_INFORMATION_ICON), i) klappen. Wo also liegt der Fehler?

@André: Wenn es für dein Programm einen guten Grund gibt, einen komplett durchsichtigen Hintergrund zu nutzen, dann nur zu. Andernfalls solltest du erst mal ausprobieren, wie das aussieht, was andere dazu sagen und die Sache dann wieder vergessen.

Nichts für ungut, aber bei den Gadgets macht das noch halbwegs Sinn. Die Startleiste ist ja auch transparent.

PS: Aaaah, Problem (wieder mal

) selbst gelöst. Die Icon-Werte waren falsch. Und das aus der Headerdatei des Windows SDK

Egal:

markieren

Delphi-Quellcode:

			  TD_ICON_BLANK             =   100;

  TD_ICON_WARNING          =   101;

  TD_ICON_QUESTION          =   102;

  TD_ICON_ERROR             =   103;

  TD_ICON_INFORMATION          =   104;

  TD_ICON_BLANK_AGAIN          =   105;

  TD_ICON_SHIELD          =     106;

geht dann aber (s. neues Bild im Anhang).

Einzelnen Beitrag anzeigen

Re: Entwicklung für Vista und XP