Delphipraxis-Blog

[Die Muhkuh]

Zitat von Luckie:

Ergänzung:
Mit der API-Funktion MessageBoxIndirect kannst du dein eigens Icon aus einer Ressource darstellen:

Delphi-Quellcode:

function MsgBoxIndirect(Text, Caption: string; Flags, IDIcon: DWORD): LRESULT;
var
  MsgInfo           : TMsgBoxParams;
begin
  ZeroMemory(@MsgInfo, sizeof(TMsgBoxParams));
  MsgInfo.cbSize := SizeOf(TMsgBoxParams);
  MsgInfo.hwndOwner := FHandle;
  MsgInfo.hInstance := GetWindowLong(FHandle, GWL_HINSTANCE);
  MsgInfo.lpszText := @Text[1];
  MsgInfo.lpszCaption := @Caption[1];
  MsgInfo.dwStyle := MB_USERICON or Flags;
  MsgInfo.lpszIcon := MAKEINTRESOURCE(IDICON);
  result := MessageBoxIndirect(@MsgInfo);
end;

ich glaube nicht, dass das in diesen thread gehört, Michael