Fórum Form dentro do TabSheet - Perde opção de click nos componentes TDBEdit ou TEdit #431547

26/12/2012

0

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

Responder

Posts

26/12/2012

Marco Salles

pq do casting ???
Responder

Gostei + 0

26/12/2012

Lorival Filho

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 :)
Responder

Gostei + 0

26/12/2012

Marco Salles

mas pq do casting ????
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar