Ver Mensaje Individual
  #1  
Antiguo 30-05-2004
Avatar de Picard
Picard Picard is offline
Miembro
 
Registrado: may 2004
Ubicación: Palamos
Posts: 23
Reputación: 0
Picard Va por buen camino
Project NavSistem.exe raised exception..............

Podeis echarme una mano con una excepcion que me aparece?
Código:
 void __fastcall TfrmPrincipal::EasyMap1MouseMove(TObject *Sender,
	  TShiftState Shift, int X, int Y)
{
	   /*Declaracion de mapX y mapY*/
	   long double mapX,mapY;
	   /*Pasa la posicion del mouse a lso Tlabel correspondientes*/
	   EasyMap1->ScreenToMap(X,Y,mapX,mapY);
	   lblLatMouse->Caption.Format("B=%F,L=%F",mapX,mapY);
El componente TEasyMap esta hecho en delphi, y el codigo correcto para este lenguaje es este:

Código:
 EasyMap1.ScreenToMap(X;Y,mapX,mapY);
StatusBar1.Panels[0].Text:=Format('B=%F,L=%F",[mapX,mapY]);
Yo intento pasar estos valores en lugar del statusbar a un tlabel
gracias
Responder Con Cita