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

2011-12-22 05:08:04 409 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

目前最新的XE2 Update3

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

部门测试代码



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;