MessageBox mit Icons

[Angel4585]

So, hier mal der Code wie ich die Icons in eine TImage-Kompo lade, für alle Fälle:

Delphi-Quellcode:

var
  Img_Symbol : TImage;
  FDlgType : Integer;

procedure TMyDialog.LoadIcon;
var
  IconID : PAnsiChar;
begin
case FDlgType of
  0 : IconID := IDI_QUESTION;
  1 : IconID := IDI_WARNING;
  2 : IconID := IDI_INFORMATION;
  else IconID := IDI_ERROR;
  end;
Img_Symbol.Picture.Icon.Handle:=LoadIcon(0,IconID);
end;