Erro na Criação do Form

Delphi

30/04/2004

Uso FB1.5 com DBExpress e ClientDataSet.
Estou com um probleminha num form. Ele é composto de dois panels: 1 para cadastro(com componentes DBEdits) e 1 para consulta(DBGrid);
Uso BringTo Front para mostrá-los. Mas o problema é o seguinte: qdo crio o form chamo o panel de cadastro e depois o panel de consulta, tudo ocorre bem. Mas qdo crio o form e chamo PRIMEIRAMENTE o panel de consulta ele trava, só consigo fechar o form.
Detalhes:
procedure TForm1.FormCreate(Sender: TObject);
begin
if acesso=´S´ then
Panel2.BringToFront //Este panel é o de consulta, aki o erro
else Panel1.BringToFront; //Este é o de cadastro
FDM.SQLDataSet1.Active:=True;
FDM.ClientDataSet1.Active:=True;
end;

Obs: acesso é uma variável global que uso para determinar o que quero chamar qdo o formulário é criado. Posso chamar a consulta qdo chamo primeiro o cadastro e vice-versa.

Desde já meus agradecimentos


G1b4

G1b4

Curtidas 0

Respostas

Dopi

Dopi

30/04/2004

Experimente mudar a propriedade Visible dos Paneis ao invez de usar BringToFront....

Esconda o que não deve ser mostrado:

Panel2.Visible := (acesso=´S´)
Panel1.Visible := (acesso<>´S´)


GOSTEI 0
G1b4

G1b4

30/04/2004

Dopi obrigado, mas não funcionou...


GOSTEI 0
Macario

Macario

30/04/2004

Ola programador, bom dia.


Qual a propriedade Align do panel?

Atente para o fato de um não estar dentro do outro (parent)!

Tente assim

o Panel de consulta ficar em primeiro plano com a propriedade

align := alClient

e a propriedade

visible := true

o panel de cadastro
align := alNone
visible:= false;

ai conforme a necessidade vc inverte as propriedades


GOSTEI 0
G1b4

G1b4

30/04/2004

vlws macario


GOSTEI 0
POSTAR