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!


Tuskinhu

Tuskinhu

Responder

Posts

02/10/2004

Aroldo Zanela

Colega,

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

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

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

Aceitar