中国开发网: 论坛: 程序员情感CBD: 贴子 720000
wilddeer: 按你的说处理了,还是不行啊
procedure TForm1.BitBtn1Click(Sender: TObject);
var
lstyle: Cardinal;
PHandle: THandle;
begin
PHandle := FindWindow('Outlook Express Browser Class', nil);
if PHandle <> 0 then
begin
lstyle := getwindowlong(self.Handle, GWL_STYLE);
lstyle := lstyle and not WS_POPUP;
lstyle := lstyle or WS_CHILD;
setwindowlong(self.Handle, GWL_STYLE, lstyle);
//
Windows.SetParent(self.Handle, PHandle);
//-50是想在标题栏上方,但超出窗口范围,Windows就不绘制了啊
MoveWindow(self.Handle, 0, -50, 100, 100, true);
end;
end;
破产是暂时的,而贫穷是永久的。

http://www.FastDevelop.com

相关信息:


欢迎光临本社区,您还没有登录,不能发贴子。请在 这里登录