showmessage.cpp

OA客户端工具

#include <vcl.h>
#pragma hdrstop

#include "ShowMessage.h"

#pragma package(smart_init)
#pragma resource "*.dfm"
TMessageForm *MessageForm;

__fastcall TMessageForm::TMessageForm(TComponent* Owner)
	: TForm(Owner)
{
}

void __fastcall TMessageForm::FormCreate(TObject *Sender)
{
	img_BG->Left = 0;
	img_BG->Top = 0;
	Width = img_BG->Width;
	Height = img_BG->Height;

	m_bDown = false;	
}


void __fastcall TMessageForm::str_CloseClick(TObject *Sender)
{
	Close();
}

void __fastcall TMessageForm::str_CaptionMouseDown(TObject *Sender,
	  TMouseButton Button, TShiftState Shift, int X, int Y)
{
	m_bDown = true;
	m_iX = X;
	m_iY = Y;
}

void __fastcall TMessageForm::str_CaptionMouseMove(TObject *Sender,
	  TShiftState Shift, int X, int Y)
{
	if(m_bDown)
	{	Left += X- m_iX;
		Top += Y - m_iY;
	}
}

void __fastcall TMessageForm::str_CaptionMouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
	m_bDown = false;
}

void __fastcall TMessageForm::btn_CloseClick(TObject *Sender)
{
	Visible = false;
}

void __fastcall TMessageForm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
	mm_Body->Lines->Clear();	
}