MessageDlg

← →
MakNik © (2003-12-02 13:37) [0]

Как в MessageDlg вместо Warning выдавать свой заголовок?

← →
Юрий Федоров © (2003-12-02 13:44) [1]

Использовать MessageBox

← →
Yanis © (2003-12-02 13:51) [2]

CreateMessageDlg вроде.

← →
k-man © (2003-12-02 13:52) [3]

> Использовать MessageBox

Причем лучше тот который Application.MessageBox

← →
MakNik © (2003-12-02 14:00) [4]

> Причем лучше тот который Application.MessageBox
А такой же, только с иконкой как сделать?

Если с предопределенной системной иконкой - см. в справке WinAPI по MessageBox. Если со своей иконкой - см. MessageBoxIndirect в той же справке.

> А такой же, только с иконкой как сделать?

procedure TForm1.Button1Click(Sender: TObject); var MsgText,MsgTitle : PChar; begin MsgText := StrNew("MyMessage is super-puper"); MsgTitle := StrNew("This is title to my super-puper Message"); MessageBox(0,MsgText,MsgTitle,MB_ICONINFORMATION); end;
Выдержка из справки, о стилях иконки окна сообщения
{ MB_ICONEXCLAMATION,
MB_ICONWARNING
An exclamation-point icon appears in the message box.
MB_ICONINFORMATION, MB_ICONASTERISK
An icon consisting of a lowercase letter i in a circle appears in the message box.
MB_ICONQUESTION A question-mark icon appears in the message box.
MB_ICONSTOP,
MB_ICONERROR,
MB_ICONHAND
A stop-sign icon appears in the message box. }

MessageDlg Найти похожие ветки