Как получить картинки из MessageDlg?
Falk0ner, вс, 06/07/2008 - 15:34.
procedure TForm1.Button1Click(Sender: TObject);
var
Ic: TIcon;
begin
Ic := TIcon.Create;
Ic.Handle := LoadIcon(0, IDI_APPLICATION);
Form1.Canvas.Draw(1, 1, Ic);
Ic.Handle := LoadIcon(0, IDI_ASTERISK);
Form1.Canvas.Draw(32, 1, Ic);
Ic.Handle := LoadIcon(0, IDI_EXCLAMATION);
Form1.Canvas.Draw(64, 1, Ic);
Ic.Handle := LoadIcon(0, IDI_QUESTION);
Form1.Canvas.Draw(1, 32, Ic);
Ic.Handle := LoadIcon(0, IDI_HAND);
Form1.Canvas.Draw(32, 32, Ic);
Ic.Handle := LoadIcon(0, IDI_WINLOGO);
Form1.Canvas.Draw(64, 32, Ic);
Ic.Destroy;
end;
var
Ic: TIcon;
begin
Ic := TIcon.Create;
Ic.Handle := LoadIcon(0, IDI_APPLICATION);
Form1.Canvas.Draw(1, 1, Ic);
Ic.Handle := LoadIcon(0, IDI_ASTERISK);
Form1.Canvas.Draw(32, 1, Ic);
Ic.Handle := LoadIcon(0, IDI_EXCLAMATION);
Form1.Canvas.Draw(64, 1, Ic);
Ic.Handle := LoadIcon(0, IDI_QUESTION);
Form1.Canvas.Draw(1, 32, Ic);
Ic.Handle := LoadIcon(0, IDI_HAND);
Form1.Canvas.Draw(32, 32, Ic);
Ic.Handle := LoadIcon(0, IDI_WINLOGO);
Form1.Canvas.Draw(64, 32, Ic);
Ic.Destroy;
end;
Взято с http://delphiworld.narod.ru
Отправить комментарий