Como posicionar um form de pesquisa.
30/09/2004
0
bem vou explicar o probl, minha aplicacao abre e fica todo o form estendido na area do windows, o usuario chama uma das rotinas do form, no caso uma insclusao de clientes, e nesse form existem campos que dou a possibilidade de consulta em outras tabelas, abrindo um outro form, mas é ai que q é o meu problema, eu só consigo colocar o form de pesquisa pra aparecer no local correto só durante o design, eu gostaria de mudar isso dinamicamente como algo do tipo:
// chamada do cadastro ==>
var
frmCli: TfrmClienteManut ;
begin
try
frmCli := TfrmClienteManut.Create( self );
frmCli.ModoTela := ´I´ ;
frmCli.Caption := ´Cadastro de Clientes - [Inclusão de Cliente]´ ;
frmCli.ShowModal ;
finally
frmCli.Free ;
end ;
e durante a digitacao gostaria de chamar esse terceiro form:
var
frmProcura: TfrmProcuraCliente ;
begin
try
frmProcura := TfrmProcuraCliente.Create( self );
frmProcura.ShowModal ;
var
frmProcura: TfrmProcuraCliente ;
begin
try
frmProcura := TfrmProcuraCliente.Create( self );
frmProcura.ShowModal ;
// o que eu gostaria
frmProcura.Left := frmCadCli.edtCodigo.Left ;
frmProcura.Top := frmCadCli.edtCodigo.Top + frmCadCli.edtCodigo.Height + 5;
edtCodigo.Text := PoeZeros(StrToIntDef(frmProcura.edtPassa.Text, 0), 6);
finally
frmProcura.Free ;
finally
frmProcura.Free ;
o que ocorre é que ele posiciona o form nas coordenadas nao do form do cadastro de cliente e sim do form principal... gostaria de saber um meio de ele posicionar corretamente...
agradeço a ajuda!
// chamada do cadastro ==>
var
frmCli: TfrmClienteManut ;
begin
try
frmCli := TfrmClienteManut.Create( self );
frmCli.ModoTela := ´I´ ;
frmCli.Caption := ´Cadastro de Clientes - [Inclusão de Cliente]´ ;
frmCli.ShowModal ;
finally
frmCli.Free ;
end ;
e durante a digitacao gostaria de chamar esse terceiro form:
var
frmProcura: TfrmProcuraCliente ;
begin
try
frmProcura := TfrmProcuraCliente.Create( self );
frmProcura.ShowModal ;
var
frmProcura: TfrmProcuraCliente ;
begin
try
frmProcura := TfrmProcuraCliente.Create( self );
frmProcura.ShowModal ;
// o que eu gostaria
frmProcura.Left := frmCadCli.edtCodigo.Left ;
frmProcura.Top := frmCadCli.edtCodigo.Top + frmCadCli.edtCodigo.Height + 5;
edtCodigo.Text := PoeZeros(StrToIntDef(frmProcura.edtPassa.Text, 0), 6);
finally
frmProcura.Free ;
finally
frmProcura.Free ;
o que ocorre é que ele posiciona o form nas coordenadas nao do form do cadastro de cliente e sim do form principal... gostaria de saber um meio de ele posicionar corretamente...
agradeço a ajuda!
Tuskinhu
Curtir tópico
+ 0
Responder
Posts
02/10/2004
Aroldo Zanela
Colega,
Inverta:
Para:
Inverta:
frmProcura := TfrmProcuraCliente.Create( self ); frmProcura.ShowModal ; // o que eu gostaria frmProcura.Left := frmCadCli.edtCodigo.Left ; frmProcura.Top := frmCadCli.edtCodigo.Top + frmCadCli.edtCodigo.Height + 5;
Para:
frmProcura := TfrmProcuraCliente.Create( self ); // o que eu gostaria frmProcura.Left := frmCadCli.edtCodigo.Left ; frmProcura.Top := frmCadCli.edtCodigo.Top + frmCadCli.edtCodigo.Height + 5; frmProcura.ShowModal ; // Exibir só após ter posicionado
Responder
Clique aqui para fazer login e interagir na Comunidade :)