Resurs

← →
YUS (2001-12-09 17:58) [0]

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

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

← →
Suntechnic (2001-12-09 18:03) [1]

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

← →
YUS (2001-12-09 18:55) [2]

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

← →
absent (2001-12-09 19:18) [3]

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

← →
YUS (2001-12-09 21:58) [4]

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

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