eigenes Icon in Standarddialogen

[_BlackDragon_]

Hi,

jo, das geht. Dafür musst du den Dialog erzeugen, das Icon zuweisen und was du sonst noch brauchst und
dann anzeigen.

Delphi-Quellcode:

procedure TForm1.ShowCustomDialog;
var
  dlg: TForm;
  myIcon: TIcon;
begin
  
  // myIcon erzeugen und Bild laden
  myIcon := TIcon.Create;
  try
    myIcon.LoadFromFile('C:\icon\myIcon.bmp'); // bin mir nicht sicher obs auch für bmp's funzt

    dlg := CreateMessageDialog('', mtCustom, [mbYes], mbYes); // oder was auch immer du brauchst.
    try
      dlg.Icon := myIcon;
      dlg.ShowModal;
    finally
      FreeAndNil(dlg);
    end;
  finally
    FreeAndNil(myIcon);
  end;
end;

Das ist nur hingekleckert und ungetestet, soll ja auch nur den ungefären Ablauf erklären.

Weitere Infos findest du in der Hilfe "CreateMessageDialog" und in der Unit Dialogs, welche du übrigens auch einbinden musst.

Gruss

BlackDragon