Coordenadas do Menu

Delphi

25/02/2005

Olá colegas,

Preciso pegar as coordenadas do item de menu (mainmenu) em que o usuário clicar. Alguém sabe como fazer isso. Já pesquisei sobre, porém não obtive sucesso!

Desde já agradeço


Alexpatrik

Alexpatrik

Curtidas 0

Respostas

Rodolpho123

Rodolpho123

25/02/2005

Quê tipo de coordernadas?


GOSTEI 0
Leanribas

Leanribas

25/02/2005

acho que o que vc precisa vc consegue assim:

procedure TForm1.Teste2Click(Sender: TObject);
var
point : TPoint;
begin
GetCursorPos(point);

ShowMessage(´PosX: ´+ IntToStr(point.x) + ´, PosY: ´ + IntToStr(point.y));
end;


Falou.

Leandro


GOSTEI 0
Alexpatrik

Alexpatrik

25/02/2005

Bom, na verdade as coordenadas que preciso sao as do item do menu.

Por exemplo: MainMenu.Items[X].Items[Y].Items[Z]


Preciso saber esses valores X, Y, Z
Lembrando que o meu menu é criado dinamicamente, atravéz de uma consulta ao banco de dados, portanto esses valores podem ser sempre diferentes.

Obrigado


GOSTEI 0
Nildo

Nildo

25/02/2005

O que seria a coordenada ´Z´?


GOSTEI 0
Alexpatrik

Alexpatrik

25/02/2005

Vamos supor que o usuário só tivesse acesso a este módulo:

Financeiro -> Tabelas -> Cotação de Moeda

As coordenadas seriam:
MainMenu.Items[0].Items[0].Items[0]
Financeiro| Tabelas| Cotação de Moeda


GOSTEI 0
Nildo

Nildo

25/02/2005

Que tipo de coordenada você quer retornar? Eu entendo coordenada como valores do eixo X e Y. Mas não faz muito sentido dentro deste contexto


GOSTEI 0
Alexpatrik

Alexpatrik

25/02/2005

São os índices do Menu


GOSTEI 0
Nildo

Nildo

25/02/2005

Use o [color=#FF0000:1c2c556f9e]IndexOf[/color:1c2c556f9e]

Indice := MainMenu1.Items.IndexOf( MainMenu1.Items[2] );

Indice := MainMenu1.Items[2].IndexOf( MainMenu1.Items[2].items[1] );


São exemplos que retornam o índice de determinados menus.


GOSTEI 0
POSTAR