TForm1::btn3Click(TObject *Sender) //退出按鈕
{
Application->Terminate();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn1Click(TObject *Sender)//顯示時間
{
Form1->Label1->Caption = Now();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn2Click(TObject *Sender)//顯示日期
{
//不會
}
void __fastcall TForm1::tmr1Timer(TObject *Sender)//timer里的顯示時間
{
Form1->Label1->Caption = Now();
}
//-
uj5u.com熱心網友回復：
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
//顯示時間
Form1->Label1->Caption = FormatDateTime( "hh:nn:ss", Now() );
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
//顯示日期
Form1->Label1->Caption = FormatDateTime( "yyyy'-'mm'-'dd", Now() );
}
//---------------------------------------------------------------------------
至于Timer里的，也按此辦理
但是，你要用
Timer1->Enabled = true;
來激活Timer控制元件作業才行
uj5u.com熱心網友回復：
樓主就是想要個切換的效果，簡單一些。void __fastcall TForm1::tmr1Timer(TObject *Sender)
{
Label1->Caption = tmr1->Tag == 1? Date(): Time();
}
//---------------------------------------------------------------------------
// 顯示日期
void __fastcall TForm1::btn1Click(TObject *Sender)
{
tmr1->Tag = 1;
}
//---------------------------------------------------------------------------
// 顯示時間
void __fastcall TForm1::btn2Click(TObject *Sender)/
{
tmr1->Tag = 0;
}
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/75912.html
標籤：VCL組件使用和開發