C++ builder - capturando coordenadas do form II

Aqui está um exemplo de como capturar

as coordenadas do form pelo movimento do mouse.

Neste aqui estamos utilisando o evento FormMouseMove,

no exemplo anterior, utilizamos o evento FormMouseDown.

Veja abaixo os códigos do programa

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

 //---------------------------------------------------------------------------

void __fastcall TForm1::Informe ( TObject *Sender ) {

Canvas -> Font-> Style = TFontStyles ( ) << fsItalic;

        Canvas -> Font -> Size = 11;

        Canvas -> Font -> Name = "Arial";

        Canvas -> Font -> Color = clBlack;

Canvas -> TextOut ( 160, 250, "Por: " );

Canvas -> Font -> Color = clRed;

Canvas -> TextOut ( 200, 250, "Samuel Lima" );

Canvas -> Font -> Color = clBlue;

Canvas -> TextOut ( 160, 265, "sa_sp10@hotmail.com" );

}

 //---------------------------------------------------------------------------

void __fastcall TForm1::Label_Manual ( TObject *Sender ) {

Label1 -> Visible = true;

Label1 -> Font -> Size = 14;

Label1 -> Font -> Name = "alarm clock";

Label1 -> Font-> Style = TFontStyles ( ) << fsBold;

Label1 -> Font -> Color = clRed;

Label1 -> Width = 100;

Label1 -> Height = 70;

Label1 -> Left = 20;

Label1 -> Top = 50;

BitBtn1 -> Font -> Name = "Arial";

        BitBtn1 -> Visible = true;

        BitBtn1 -> Font -> Size = 12;

BitBtn1 -> Font-> Style = TFontStyles ( ) << fsItalic << fsBold;

        BitBtn1 -> Font -> Color = clBlack;

BitBtn1 -> Width = 50;

BitBtn1 -> Height = 22;

BitBtn1 -> Top = 260;

BitBtn1 -> Left = 520;

BitBtn1 -> Caption = ( "Sair" );

}

//---------------------------------------------------------------------------

void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y) {

Label1 -> Caption = StrToInt ( X );

Label1 -> Caption = Label1 -> Caption + "\n";

Label1 -> Caption = Label1 -> Caption + StrToInt ( Y );

}

//------------------------------------------------------------------------------

void __fastcall TForm1::FormShow ( TObject *Sender ) {

Label_Manual ( Sender );

}

//---------------------------------------------------------------------------

void __fastcall TForm1::FormPaint ( TObject *Sender ) {

//Alterando a cor do form

Canvas -> Brush -> Color = static_cast < TColor > ( RGB ( 255, 255, 205 ) );

//Adiciona um fundo nos textos do canvas com RGB

SetBkColor ( Canvas -> Handle, RGB ( 255, 182, 193 ) );

Canvas -> Font -> Size = 14;

Canvas -> Font-> Style = TFontStyles ( ) << fsItalic;

Canvas -> Font -> Name = "Arial";

Canvas -> Pen -> Width = 10;

Canvas -> Pen -> Color = clRed;

Canvas -> RoundRect ( 05, 05, 595, 295, 25, 25 );

//Colorindo a cor de frente do canvas com RGB

SetTextColor ( Canvas -> Handle, RGB ( 0, 0, 0 ) );

Canvas -> TextOut ( 30, 15, "C++ BUILDER - CAPTURANDO COORDENADAS DO FORM" );

Informe ( Sender );

   }

   //---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn1Click ( TObject *Sender ) {

Close ( );

}

//------------------------------------------------------------------------------

//---------------------------------------------------------------------------

#ifndef Unit1H

#define Unit1H

//---------------------------------------------------------------------------

#include <System.Classes.hpp>

#include <Vcl.Controls.hpp>

#include <Vcl.StdCtrls.hpp>

#include <Vcl.Forms.hpp>

#include <Vcl.Buttons.hpp>

//---------------------------------------------------------------------------

class TForm1 : public TForm

{

__published: // IDE-managed Components

TLabel *Label1;

TBitBtn *BitBtn1;

void __fastcall Label_Manual ( TObject *Sender );

    void __fastcall Informe ( TObject *Sender );

void __fastcall FormShow ( TObject *Sender );

void __fastcall FormPaint ( TObject *Sender );

void __fastcall BitBtn1Click ( TObject *Sender );

void __fastcall FormMouseMove ( TObject *Sender, TShiftState Shift, int X, int Y );

private: // User declarations

public: // User declarations

__fastcall TForm1(TComponent* Owner);

};

//---------------------------------------------------------------------------

extern PACKAGE TForm1 *Form1;

//---------------------------------------------------------------------------

#endif