如何将窗口作为指针传递？

[ss]

//创建线程
hThread:=CreateThread(nil,0,@ShowMsg,@Self,0,ThreadID);

//处理多线程
function ShowMsg(P:Pointer):Longint;stdcall;
begin
With TfrmMsg(P^) do begin //TfrmMsg是窗口类
Hide;
end;
Result:=1;
end;

上面的语句为何错误了？请高手指点。

[Michaelyfj]

function ShowMsg(P:Pointer):Longint;stdcall;
begin
With TForm(P^) as TfrmMsgdo begin //TfrmMsg是窗口类
Hide;
end;
Result:=1;
end;

试试

[blazingfire]

1）hThread:=CreateThread(nil,0,@ShowMsg,Self,0,ThreadID);//试试
2）TForm(P).Hide//试试

[ss]

楼上的试过都不行！

[ss]

顶啊！

[smhpnuaa]

看看！

[smhpnuaa]

看看！

[Dingobin]

写出错误提示

[smhpnuaa]

hThread:=CreateThread(nil,0,@ShowMsg,Self,0,ThreadID);

//处理多线程
function ShowMsg(P:Pointer):Longint;stdcall;
begin
With TfrmMsg(P^) do begin //TfrmMsg是窗口类
Hide;
end;
Result:=1;
end;

[smhpnuaa]

如果frmMsg窗口是动态创建就有问题！

[PeakChen]

up

[copy_paste]

function ShowMsg(Param: Pointer): DWORD; stdcall;
var
S: string;
Form: TForm;
begin
Result := 0;
try
S := Format('Form1: %p, Param: %p', [Pointer(Form1), Param]);
Form := TForm(Param);
SetWindowText(Form.Handle, PChar(S));
Form.Hide;
Sleep(1000);
form.Show;
except
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Thread, ThreadID: THandle;
begin
Thread := CreateThread(nil, 0, @ShowMsg, Pointer(Self), CREATE_SUSPENDED, ThreadID);
ResumeThread(Thread);
CloseHandle(Thread);
end;