Form dentro do TabSheet - Perde opção de click nos componentes TDBEdit ou TEdit

Delphi

26/12/2012

Seguinte...fiz a criação do meu form dentro do TabSheet:
tsTabAux.TabVisible := True;
frmForm := frmClassForm.Create ( tsTabAux );
TForm( frmForm ).Parent := tsTabAux; // cria o form dentro do TabSheet
tsTabAux.Caption := TForm( frmForm ).Caption;
TForm( frmForm ).Visible := True;
TForm( frmForm ).WindowState := wsMaximized;
TForm( frmForm ).Show;
pacForms.ActivePage := tsTabAux;

Porém quando faço dessa maneira e se tem componente TDBedit ou TEdit não consigo clicar e posicionar o foco, se for tentando por TAB chega no campo e consigo alterar, mas se for direto no campo com o mouse + click não funciona.

Alguém sabe o que pode ser?
Lorival Filho

Lorival Filho

Curtidas 0

Respostas

Marco Salles

Marco Salles

26/12/2012

pq do casting ???
GOSTEI 0
Lorival Filho

Lorival Filho

26/12/2012

alterei para :
tsTabAux.TabVisible := True;

tsTabAux.Visible := True;
frmForm := frmClassForm.Create ( tsTabAux );
TForm( frmForm ).Parent := tsTabAux;
TForm( frmForm ).Align := alClient;
TForm( frmForm ).BorderStyle := bsNone;
TForm( frmForm ).Visible := True;
tsTabAux.Caption := TForm( frmForm ).Caption;
pacForms.ActivePage := tsTabAux;

e funcionou :)
GOSTEI 0
Marco Salles

Marco Salles

26/12/2012

mas pq do casting ????
GOSTEI 0
POSTAR