Spg ang MessageDlg

Prøv at kigge på

http://www.eksperten.dk/artikler/354

ja, hvad med mit applications billede?

Lav dit eget "fejl form"  - så har du fuld kontrol over alt.

ja det er meget nemt du skal bruge:
1 form
2 button

den ene button sætter du som modalresult: mrOk
den anden button sætter du som modalresult mrcancel

nu kan du selv styre titel og hvilket bitmap eller lign som billede

Prøv med  MessageBoxIndirect :

procedure TForm1.Button1Click(Sender: TObject);

  function GetIconResNameFromStr(const Str: string): PChar;
    {Returns a pointer to given string resource name in the format expected by the
    MessageBoxIndirect API call: this is a PChar pointer to a wide char string
    under Windows NT and a PChar pointer to an ansi char string under Windows 9x}
  begin
    if Win32Platform = VER_PLATFORM_WIN32_NT then
      Result := PChar(PWChar(WideString(Str)))
    else
      Result := PChar(Str);
  end;

var
  MsgParams: TMsgBoxParams;
begin
  with MsgParams do
  begin // with
    cbSize := SizeOf(MsgParams);
    hInstance := SysInit.HInstance;
    hwndOwner := Handle;
    lpszText := 'This is a MessageBoxIndirect Message Box';
    lpszCaption := 'This is the Caption , ,';
    dwStyle := MB_OKCANCEL or MB_USERICON or MB_APPLMODAL;

    lpszIcon := GetIconResNameFromStr('MAINICON');
    dwContextHelpId := 0; //help context
    lpfnMsgBoxCallback := nil;
    dwLanguageId := LANG_NEUTRAL;
  end; //with
  MessageBoxIndirect(MsgParams);
end;

på tide at lukke ?