showmessage

@DangHaos · Регистрация: 09.02.2013

Author24 — интернет-сервис помощи студентам

Добрый вечер.
Ребят подскажите как сделать чтобы в showmessage выплывающей форме задать название(имя)

Delphi

procedure TForm1.Button1Click(Sender: TObject);
 
 
begin
if tcpClient1.LocalHostAddr <>'127.0.0.1'
then showmessage ('Интернет работает исправно.');
else showmessage('Соединение с интернетом отсутствует.');
end;

Спасибо заранее.

@Romantik_FM · 18.04.2013, 19:03

Сообщение от DangHaos

showmessage выплывающей форме

используй MessageDlg

Добавлено через 7 минут
или так попробуй

Delphi

1 2	MessageBox(Handle, 'Текст сообщения', 'Название сообщения', MB_OK + MB_ICONINFORMATION);

@DangHaos · 18.04.2013, 19:14 **[ТС]**

Спасибо.

@DangHaos 11 / 11 / 1 Регистрация: 09.02.2013 Сообщений: 90
	18.04.2013, 19:14 [ТС]	3
	Спасибо. 0