Chamar um form pelo scroll

>
Olá,

Agradeço novamente.

Estou com uma dúvida em relação ao chamado de formulário.

Seria possível eu chamar um formulário através do scroll

do mouse? Ou seja, se eu subir o scroll, chama o form 2.

Se eu descer o scroll, chama o form 1 novamente.

Não querendo aproveitar de uma boa vontade, poderiam

tirar uma outra dúvida?

Há alguma forma deu manipular um formulário, mesmo se este

não estiver selecionado. Exemplo: Eu estando na

área de trabalho do windows e mudando o form através de

uma tecla de atalho ou pelo scroll do mouse, sendo que o

form está aberto, mas não selecionado.

Espero que tenham entendido essas dúvidas e que possam

me esclarecer.

Muito obrigado a todos.

Olá delphiano,

De uma analisada no código abaixo e veja a melhor utilização dele de acordo com a sua necessidade.

>

procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;

 MousePos: TPoint; var Handled: Boolean);

begin

if not Assigned(Form2) then

 Application.CreateForm(TForm2,Form2);

 Form2.ShowModal;

 FreeAndNil(Form2);

end;

 

procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;

 MousePos: TPoint; var Handled: Boolean);

begin

if not Assigned(Form3) then

 Application.CreateForm(TForm3,Form3);

 Form3.ShowModal;

 FreeAndNil(Form3);

end;

[]'s

Daniel Oliveira

Programador de Sistemas