Hi.
I get the subject error on this line of code
SetWindowLong(thisform.Handle, GWL_STYLE,
WS_POPUP or WS_CLIPSIBLINGS or WS_CLIPCHILDREN or WS_SYSMENU);
The peculiar thing is I get it in one application but not in another application (they both use the identical code and "thisform")
I traced it with Ctrl+F7 and this is the sequence that produces th error. Any help, please?
SetWindowLong(thisform.Handle, GWL_STYLE,
WS_POPUP or WS_CLIPSIBLINGS or WS_CLIPCHILDREN or WS_SYSMENU);
function TWinControl.GetHandle: HWND;
begin
HandleNeeded;
Result := WindowHandle;
end;
procedure _BoundErr;
{$IFDEF PUREPASCAL}
begin
ErrorAt(Byte(reRangeError), ReturnAddress);
end;
{$ELSE !PUREPASCAL}
{$IFDEF CPUX86}
asm
MOV AL,reRangeError
JMP Error
end;
procedure Error(errorCode: TRuntimeError);
begin
ErrorAt(Byte(errorCode), ReturnAddress);
end;