Como obtener las imágenes de Windows de: Error, Información, Exclamación, etc... que aparecen en los mensajes (MessageBox o MessageDlg).
Es un truco muy sencillo, pero que puede resultar práctico.
Pon un TButton y un TImage, al formulario:
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Picture.Icon.Handle := LoadIcon(0, IDI_INFORMATION);
end;
Las constantes de las imágenes, están en la unit Windows.pas, pero aquí pongo una lista con los valores posibles:
IDI_APPLICATION
IDI_HAND
IDI_QUESTION
IDI_EXCLAMATION
IDI_ASTERISK
IDI_WINLOGO
IDI_WARNING
IDI_ERROR
IDI_INFORMATION
Saludos.