Mudar posição de InputBox

Delphi

04/10/2004

Olá

Existe um jeito de mudar a posição onde aparece o InputBox (ou o InputQuery)?

Colocar, por exemplo, no Self.Left e Self.Top?

Não encontrei referências aqui no fórum...

Obrigado
Até+


Paulo_amorim

Paulo_amorim

Curtidas 0

Respostas

Paulo_amorim

Paulo_amorim

04/10/2004

Olá denovo

Fui olhar as funções InputBox e InputQuery para ver se não tinha alguma luz...
Verifiquei que ele é fixo no centro pois existe a seguinte linha de comando:

//quando está definindo o Form do InputQuery
Position := poScreenCenter;


Assim, para mudar a posição eu deveria fazer reescrever a função na minha aplicação com o parâmetro desejado, substituindo a linha descrita acima.

Se houver outro jeito, por favor me digam. De qualquer forma, foi resolvido assim por ora

Obrigado
Até+


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

04/10/2004

Colega,

Você pode copiar o código e retirar o position e ajustar top e left (TForm) e utilizar sobrecarga (overload), visando manter o mesmo nome da função com os parâmetros adionais acima.


GOSTEI 0
POSTAR