Cordenadas de un dialogo

[Willi Quintana]

Holas Amigos...
Otra vez dando la lata... como podria obtener las coordenadas de un dialogo ? la idea es que haciendo un click en cualquier area de dialogo o en un boton, se llamara a otro dialogo en la posision en la que de hizo click....

Salu2
Willi

[Antonio Linares]

Willi,

Puedes usar GetCoors( oDlg:hWnd ) que te devuelve un array con nTop, nLeft, nBottom y nRight.

[goosfancito]

Antonio,

y en el caso de una celda de la tsbrowser? o sea quiero que cuando no se ingrese algo, se crea un dialogo, tengo todo el codigo, pero no se como saber las coordenadas de esa celda.

[carlosortiz]

Espero te sirva...

// -----
func opcturnos(nombre,objeto)
// -----
local omenu
// nombre trae oBtn o oBrw por si presiona un boton o boton derecho sobre el browse()
// objeto trae el nombre en si del objeto definido en la ventana, podria ser un solo parametro tambien.

if upper(nombre)$"OBTN"
aRect:=GetClientRect(objeto:hWnd)
elseif upper(nombre)$"OBRW"
aRect:=GetCursorPost()
// Esto deberia ser lo que te de la posic.
endif

menu omenu popup
menuitem "Modificar" action editarturno("O")
menuitem "Desocupar" action editarturno("D")
menuitem "Mover" action moverturno()
endmenu
if upper(nombre)$"OBTN"
activate popup omenu at aRect[3], aRect[2]-1 of objeto
elseif upper(nombre)$"OBRW"
activate popup omenu at aRect[1]-140, aRect[2]-270 of objeto
endif
return nil

Salu2.