为什么出错？

[wisenowa]

谁帮我贴到大富翁，加100分（留qq号）
unit Unit2;

interface

uses
Classes, Windows, Messages;

type
TMyThread = class(TThread)
FHandle1: THandle;
procedure WinProc(var Msg: TMessage);
function GetHandle: THandle;
protected
procedure Execute; override;
public
constructor Create;
destructor Destroy;
property Handle1: THandle read GetHandle;
end;

implementation

{ TMyThread }

constructor TMyThread.Create;
begin
if Handle1 = 0 then
Exit;
end;

destructor TMyThread.Destroy;
begin
if FHandle1 <> 0 then
DeallocateHWnd(FHandle1);
end;

procedure TMyThread.Execute;
begin
inherited;
end;

function TMyThread.GetHandle: THandle;
begin
if FHandle1 = 0 then
FHandle1 := AllocateHwnd(WinProc);
Result := FHandle1;
end;

procedure TMyThread.WinProc(var Msg: TMessage);
begin
try
Dispatch(Msg);
except
if Assigned(ApplicationHandleException) then
ApplicationHandleException(Self);
end;
end;

end.

[blazingfire]

什么意思呀？

[xjl]

呵呵

[wzrlover]

？什么意思？

[del_c_sharp]

AllocateHwnd,做什么用的?哪里的函数?

[North_beggar]

bu zhi doa.

[foreveryday007]

學習

[wisenowa]

要在线程里响应消息

有高手吗？

[wisenowa]

为什么没人回答？

[chll]

看不懂，帮你up

[wisenowa]

谁长去大富翁，能帮我贴到哪里吗？

我在哪里注册了一下，账号也确认了，但不能留言，提问。

如果谁能帮忙的话就多谢了，要留qq号呀，

如果这里没人回答，我会把分全给帮忙的人，另开100分的贴子。

谢谢，我想着不会是作弊，因为热心也是应该得到报酬的。

[cobi]

你的create和destroy两个方法为什么是public的，而且使用时没有inherited

[qygd]

up!不懂！

[wisenowa]

Create应该是在public吧？

不过这个都没有关系

[foreveryday007]

學習

[North_beggar]

up.

[guangxiluye]

大富翁的地址是什么了？？？

[wisenowa]

www.delphibbs.com

[wisenowa]

留qq号

[wisenowa]

没人吗？

[沧-海-桑-田]

路过，UP一下