Modificar iconos en los mensajes

[Coco_jac]

Hola amigos.
Tengo una duda, habra la forma de cambiar los iconos que aparecen en los mensajes, como para un Messagebox, por ejemplo poner un icono dando entender un estado : "OK, se realizo bien", algo asi, o existe algun otro componente que pueda utlizar para esto.

[Sotrono]

Hola, al MessageBox le pasas como parámetro el icono que queres que muestre:

MessageBox(Form1.Handle, 'aaa', 'ssss', MB_OK + MB_ICONINFORMATION);
MessageBox(Form1.Handle, 'aaa', 'ssss', MB_OK + MB_ICONQUESTION);
MessageBox(Form1.Handle, 'aaa', 'ssss', MB_OK + MB_ICONERROR);

[dec]

Hola,

Como sabrás, puedes utilizar determinadas constantes que sirven precisamente para mostrar diferentes iconos según el diálogo que pretendan mantener con el usuario... Creo recordar algún componente que añadía más iconos, u otras funcionalidades. Sería cuestión de buscar un poco... Y, por otro lado, nada te impide hacerte tu propio cuadro de diálogo tal como te plazca. ;)


procedure TForm1.Button1Click(Sender: TObject);
begin
MessageBox(Self.Handle, 'Alto ahí, amigo...', 'Error', MB_ICONERROR);
MessageBox(Self.Handle, '¡Cuidado por ahí!', 'Advertencia', MB_ICONWARNING);
MessageBox(Self.Handle, 'Mira que si no...', 'Información', MB_ICONINFORMATION);
MessageBox(Self.Handle, 'Por favor, confirma...', 'Confirmación', MB_ICONQUESTION);
end;