Como evitar problemas ao incorporar um TForm em outro TForm?
Costumo incorporar umTForm
descendente para outroTForm
descendente assim:
var
Form1: TForm1;
Form2: TForm2;
begin
Form2.Parent := Form1;
Form2.BorderStyle := bsNone;
Form2.Align := alClient;
Form2.Show;
end;
Geralmente isso funciona muito bem, mas às vezes os controles no Form2 não estão alinhados corretamente. Existe uma solução geral para esse tipo de problema?
Alguém sabe o que está causando esse "desalinhamento"?
Eu sei que eu poderia usarTFrame
para esse tipo de trabalho, mas tenho muitos códigos de biblioteca que precisaria reescrever e não vejo nenhuma razão para que oTForm
noTForm
abordagem não deve funcionar?
Editar: Eu identifiquei o componenteTcxListView
como o culpado aqui, enviei um relatório de bug ao fornecedor do componente (DevExpress):
http://www.devexpress.com/issue=B194161
Edição 2: Os desenvolvedores do DevExpress analisaram o problema e disseram que na verdade é um defeito noTGridPanel
componente por Embarcadero: