Das Bildchen in einem Message-Dialog ändern

[Robert_G]

Einfach in einer Schleife durch alle Componenten des Dialogs laufen.
Wenn eine ein TImage ist, bekommt sie das da verpasst.
(Das hatte isocam schon richtig )

Delphi-Quellcode:

var
  i                 : Integer;
begin
  with CreateMessageDialog('Miep', mtError, [mbOK, mbRetry]) do
  try
    for i := 0 to pred(ComponentCount) do
      if Components[i] is TImage then
        with TImage(Components[i]) do
        begin
          Picture.LoadFromFile('D:\Dev\CommonFiles\Borland Shared\Images\GlyFX\Large\stop24.bmp');
          Transparent := True;
          Break;
        end;
    ShowModal;
  finally
    Free;
  end;
end;