Club Builder

[Mónica]

Hola, en mi aplicacion tengo en cada ventana una StatusBar. En el primer panel de la misma necesito poner las coordenadas (esquina superior izquierda) de la ventana correspondiente, lo pongo en el constructor y no hay problema, pero cuando el usuario mueve la ventana no soy capaz de modificarlas.
El código que utilizo es el siguiente:

StatusBar1->Panels->Items[0]->Text=AnsiString(VentanaInstalacion->Left)+" , "+AnsiString(VentanaInstalacion->Top);

Lo he ontentado desde los eventos OnDragDrop, OnMouseDown y OnPaint, ¿alguien sabe cómo hacerlo?

Muchas gracias!

[tony]

Hola monica si tuvieras e-mail o messenger seria mas rapido hacer las preguntas.

El mio es antonio@computertoledo.com

[_Leo]

Hola Mónica:

Prueba con el código siguiente, tienes que ponerlo en la declaración de la clase del TForm en cuestión, por ejemplo bajo la parte privada:

...
private: // User declarations

    // Visualiza las coordenadas de posición
    //   de la ventana en la barra de estado
    //   mientras la estamos moviendo
  MESSAGE void __fastcall WmMoving(TMessage& msg)
  {
      inherited::Dispatch(&msg);
      StatusBar1->Panels->Items[0]->Text =
          Format("%d, %d", ARRAYOFCONST( (Left, Top) ));
  }
  BEGIN_MESSAGE_MAP
      MESSAGE_HANDLER(WM_MOVING, TMessage, WmMoving);
  END_MESSAGE_MAP(TForm)

...

Saludos:
_Leo

[_Leo]

PD:
{
  Tony escribió:
  > "...si tuvieras e-mail o
  > messenger seria mas rapido hacer las
  > preguntas..."

  Si todos nos escribiésemos las respuestas
  a un email privado entonces un foro publico
  pierde su razón de ser, que es que todos
  nos podamos aprovechar y aprender con las
  preguntas y respuestas de otros.
}

[tony]

tienes razon leo

[Mónica]

Hola _Leo, muchas gracias. Funciona perfectamente.
Estoy de acuerdo contigo. Las respuestas se deben dar en el foro, que para éso está. Otra cosa diferente es ponerse de acuerdo en el foro para intercambiar trozos de código, componentes, manuales, etc mediante correo electrónico.

Saludos!