Usar/detectar rato dentro de área gráfica (InitGraph)

[thoga31]

Caros colegas e concidadãos xD

Ok, não venho fazer propaganda política... Desta vez sou eu a vir tirar uma dúvida.

Como devem ter reparado, introduzi-me recentemente na unit Graph e também vou estudando a utilização do rato (unit Mouse).

A minha questão prende-se com o seguinte: como obtenho a posição do rato aquando um clique dentro da área gráfica criada (InitGraph)?

Deve haver aqui uma conjugação qualquer, e adoraria saber como o fazer. As minhas pesquisas, até agora, retornaram resultados da treta, pelo que venho ouvir sugestões dos prós da região e arredores 😛

Cumprimentos,

thoga31

[nunopicado]

Nesta não te sei ajudar... Não me lembro de alguma vez ter usado o rato com modo grafico. :/

[passarito]

Boas,

Não conheço a unidade mouse, mas usando a unidade mouselib que deixei o link num outro post eu sigo a linha de pensamento de quando está à espera que o utilizador pressione uma tecla, o vulgo repeat ... until keypressed

Então é assim:

primeiro detectas se botão que pretendes foi pressionado por exemplo o esquerdo

Repeat
 ...
Until GetButton(LeftButton)=ButtonDown;

Depois verificas se está no sitio que queres

Function Rato_Box(xmax,xmin,ymin,ymax:word):boolean;
begin
 if (GetMouseX>xmin) and (GetMouseX<xmax) and (GetMouseY>Ymin) and (GetMouseY<Ymax) then Rato_Box:=True
 else RatoY_Botoes:=False
end; { Rato_Box }

Depois, já sei que vais querer optimizar isto, podes sempre integrar esta função com o repeat until anterior.