PDA

Ver la Versión Completa : Project NavSistem.exe raised exception..............


Picard
30-05-2004, 15:58:20
Podeis echarme una mano con una excepcion que me aparece?
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:

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

guillotmarc
31-05-2004, 10:35:13
Hola nano.

¿ Puedes decirnos el mensaje de error de la excepción que salta ?.

Salutacions.

Picard
31-05-2004, 18:46:00
Gracias,esta solucionado

de la siguiente manera:
void __fastcall TfrmPrincipal::EasyMap1MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y)
{
/*Declaracion de mapX y mapY*/
long double fx,fy;
AnsiString buf;
/*Pasa la posicion del mouse a lso Tlabel correspondientes*/
EasyMap1->ScreenToMap(X,Y,fx,fy);
lblLatMouse->Caption = buf.sprintf("%eº",fy);
lblLongMouse->Caption = buf.sprintf("%eº",fx);
Application->ProcessMessages();
}