VPF::Проблема с MessageBox - Форум программистов

mr.Anderson

Дата 4.9.2005, 18:25 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 3
Всего: 128

Я создал новый проект, положил на форму кнопку, в ее событии OnClick написал:

Код


procedure TForm1.Button1Click(Sender: TObject);
VAR S: String;
begin
 S:=InputBox('Фунты-килограммы','Введите значение в фунтах:','0');
 MessageBox(NULL,S,'Сообщалка',MB_ICONINFORMATION);
end;

Однако, компилер ругается на строчку с MessageBox. Говорит, "о несовместимости типов String и NULL). Это что еще за фигня?!

--------------------

Quadr0

Дата 4.9.2005, 18:32 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 01:22

FRAGNATIC

Дата 4.9.2005, 18:33 (ссылка)

(нет голосов)

Загрузка ...

..::Свирепый Кодер::..

Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11

Код


procedure TForm1.Button1Click(Sender: TObject);
VAR S: String;
begin
 S:=InputBox('Ôóíòû-êèëîãðàììû','Ââåäèòå çíà÷åíèå â ôóíòàõ:','0');
 MessageBox(handle,Pchar(S),'Ñîîáùàëêà',MB_ICONINFORMATION);
end;

а почему тя так не устраивает?
или хотябы

Код


procedure TForm1.Button1Click(Sender: TObject);
VAR S: String;
begin
 S:=InputBox('Ôóíòû-êèëîãðàììû','Ââåäèòå çíà÷åíèå â ôóíòàõ:','0');
 MessageBox(0,Pchar(S),'Ñîîáùàëêà',MB_ICONINFORMATION);
end;

Добавлено @ 18:35

Цитата

В Delphi вместо null предусмотрен nil.

это имхо разные вещи

Цитата

если в качестве Хендла указать 0

кокрас таки получится тк именно 0 это идёт рабочий стол если я не ошибаюсь)

mr.Anderson

Дата 4.9.2005, 18:54 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 3
Всего: 128

FRAGNATIC, спасибо, сейчас буду пробовать. А что, вместо 0 в первом аргументе нельзя указать NULL? Просто как-то привычно...

--------------------

Quadr0

Дата 4.9.2005, 19:24 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 01:22

FRAGNATIC

Дата 4.9.2005, 20:49 (ссылка)

(нет голосов)

Загрузка ...

..::Свирепый Кодер::..

Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11

Цитата

Получится, но сообщение не будет модальным. Какой толк от не модального сообщения? Только если это сообщение информативное. А если это запрос на действие

ну вот я и спрашивал почемубы ему не имспользовать handle формы)

mr.Anderson

Дата 5.9.2005, 17:50 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 3
Всего: 128

В общем, таперича я в первом аргументе пишу HANDLE. Всем спасибо!

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »