Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Resurs [D5, Win95/98]


YUS ©   (2001-12-09 17:58:00) 

Почему не создается окно, выдает ошибку?
Я уже задавал вопрос, ресурс подсоединил, но ошибка при создании окна осталась.

implementation

{$R *.DFM}
{$R Dialog.RES}
function Disp:boolean;
begin
result:=false;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
CreateDialog(hInstance,MAKEINTRESOURCE(10), null,@Disp);
end;

Файл ресурсов создан редактором ресурсов и наз-ся Dialog.res

10 DIALOG 127, 64, 228, 138
STYLE WS_VISIBLE | WS_SYSMENU | WS_THICKFRAME | WS_MAXIMIZEBOX | WS_MINIMIZEBOX | WS_POPUP |WS_CAPTION |WS_BORDER |WS_DLGFRAME
FONT 8, "MS Sans Serif"
LANGUAGE LANG_NEUTRAL, 0
BEGIN
END


YUS   (2001-12-09 21:58:00) [1]

Вместо null поставил 0 - работает !! Большое спасибо.


absent   (2001-12-09 19:18:00) [2]

Родительское окно имеет Handle равным null ??


YUS   (2001-12-09 18:55:00) [3]

Смешной вопрос. Если бы ее не было я бы не спрашивал.Не знаю в чем ошибка, но при нажатии на button3 выдает " Progect Progect1.exe raised exception class EVariantError with message Invalid variant type conversion. "


Suntechnic   (2001-12-09 18:03:00) [4]

Что за ошибка? И с чего ты взял, что она вообще есть эта ошибка...


Наверх

Титульная страница Поиск, карта сайта Написать письмо