thanks
解决方案 »
- 急,TIDHttp和TIDTcpServer的问题
- 在oracle中创建一个blob的大对象,可用SQL查询时提示数据类型不被支持,为什么?
- 程序运行四日,突然发生报错“access voliation" ,急急,请教高手!!!
- 如何调用一个需要参数的exe文件?
- 有什么函数可以提取在夹在某个两个字符中间的字符串
- 求助反三角函数,就是直角三角形中,已知两边求角度的函数
- TdbEdit连接的是一个时间类型的字段,当输入的字符不合法时,程序就会瘫痪
- 如何取得dbgrid的当前cell的行和列?
- TObjectList和TStringlist删除对象的区别
- [关于制作安装盘的两个问题,会者不难]
- Delphi中的一个怪题,答对给100分。在线等候。
- 我如何发布INTRAWEB开发的程序?如例子。
...
ImgMain: TImage;
private
FClientInstance : TFarProc;
FPrevClientProc : TFarProc;
procedure ClientWndProc(var message:TMessage);
...procedure TForm1.ClientWndProc(var message: TMessage);
var
Dc : hDC;
Row : Integer;
Col : Integer;
begin
with Message do
case Msg of
WM_ERASEBKGND:
begin
Dc := TWMEraseBkGnd(Message).Dc;
for Row := 0 to ClientHeight div ImgMain.Picture.Height do
for Col := 0 to ClientWidth div ImgMain.Picture.Width do
BitBlt(Dc,
Col * ImgMain.Picture.Width,
Row * ImgMain.Picture.Height,
ImgMain.Picture.Width,
ImgMain.Picture.Height,
ImgMain.Picture.Bitmap.Canvas.Handle,
0,
0,
SRCCOPY);
Result := 1;
end;
else
Result := CallWindowProc(FPrevClientProc,
ClientHandle,
Msg,
wParam,
lParam);
end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin FClientInstance := MakeObjectInstance(ClientWndProc);
FPrevClientProc := Pointer(GetWindowLong(ClientHandle,GWL_WNDPROC));
SetWindowLong(ClientHandle,GWL_WNDPROC, LongInt(FClientInstance));end;
Exception EDivByZero in module Project2.ext at 00062953.
Division by zero.
FPrevClientProc := Pointer(GetWindowLong(ClientHandle,GWL_WNDPROC));
SetWindowLong(ClientHandle,GWL_WNDPROC, LongInt(FClientInstance));我只要把setwindowlong屏蔽就能通过?为什么