unit1.~cpp

来自「新颖按钮控件」· ~CPP 代码 · 共 60 行

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SUIDBCtrls"
#pragma link "SUIButton"
#pragma link "SUIMainMenu"
#pragma link "SUIForm"
#pragma link "SUISkinControl"
#pragma link "SUISideChannel"
#pragma link "SUIImagePanel"
#pragma link "SUISkinForm"
#pragma link "SUITitleBar"
#pragma link "SUIToolBar"
#pragma link "SUIMemo"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------





void __fastcall TForm1::suiButton1Click(TObject *Sender)
{
//xu  ww_about->Show();
 int *li;
 li=new int;
 Tww_about *ww_myform;
 ww_myform=new Tww_about(this);
 ww_myform->Show();
 ww_myform->Top=50;
 ww_myform->Left=50;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N14Click(TObject *Sender)
{
  Close();        
}
//---------------------------------------------------------------------------




void __fastcall TForm1::N2Click(TObject *Sender)
{
  ww_about->Show();        
}
//---------------------------------------------------------------------------