Chamar um form pelo scroll

[QualquerPC 0]

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.

[Daniel Oliveira_ 0]

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