+ -
当前位置:首页 → 问答吧 → Self.Handle的值在运行时居然会改变

Self.Handle的值在运行时居然会改变

时间:2011-12-22

来源:互联网

目前最新的XE2 Update3

当换皮肤后TStyleManager.TrySetStyle('Emerald Light Slate');
主窗体的Self.Handle值居然变化了,整的人好晕。这算是BUG么?

部门测试代码
Delphi(Pascal) code

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Add('1:' + IntToStr(Self.Handle));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  TStyleManager.TrySetStyle('Emerald Light Slate');
  Memo1.Lines.Add('2:' + IntToStr(Self.Handle));
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Memo1.Lines.Add('3:' + IntToStr(Self.Handle));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Lines.Clear;
end;

作者: iqyely   发布时间: 2011-12-22

句柄被改了?神马情况,不过句柄就是个地址标识,记得以前看过一本书中提到过,运行时句柄是可以被修改的

作者: funxu   发布时间: 2011-12-22

热门下载

更多