Club Builder

[R. Porcar]

code:

---

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TRect Rect = Application->MainForm->BoundsRect;
  // centramos en la ventana principal
  // y no en el centro de la pantalla
  int Left = ((Rect.Right - Rect.Left) - 180) / 2 + Rect.Left;
  int Top = ((Rect.Bottom - Rect.Top) - 120) / 2 + Rect.Top;
  MessageDlgPos("Only one file allowed!", mtConfirmation,
               TMsgDlgButtons() << mbOK, 0, Left, Top);
}

---