DBR Delphi-Ecke

// Hiermit erstellt man eine Messagebox mit eigenem Icon. Dabei
// muss das Icon in einer Ressource bereitgestellt werden und
// dessen Bezeichnung für MyResIcon eingetragen werden. Im Beispiel
// wurde allerdings das Icon der Anwendung (MAINICON) eingetragen.

// Getestet mit D2010 unter Win7

function TForm1.MyMessageBox(MyCaption, MyText, MyResIcon: String; 
  MyButton: Integer): Integer; 
var 
  MBParams: TMsgBoxParams; 
begin 
  MBParams.cbSize := SizeOf(MBParams); 
  MBParams.hwndOwner := application.handle; 
  MBParams.hInstance := hInstance; 
  MBParams.lpszText := pchar(MyText); 
  MBParams.lpszCaption := pchar(MyCaption); 
  MBParams.lpszIcon := pchar(MyResIcon); 
  MBParams.dwStyle := MyButton or MB_USERICON; 
  MBParams.dwContextHelpId := 0; 
  MBParams.lpfnMsgBoxCallback := nil; 
  MBParams.dwLanguageId := LANG_NEUTRAL; 
  Result := Integer(MessageBoxIndirect(MBParams)); 
end;

// Beispielaufruf

procedure TForm1.Button1Click(Sender: TObject); 
begin 
if MyMessageBox('FRAGE', 
    'Bist du doof?', 'MAINICON',MB_YESNO) 
    <> mryes then 
end;