void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
    TRegistry *regKey = new TRegistry;
        regKey->RootKey = HKEY_CURRENT_USER;
        regKey->OpenKey("NoticeMe", true);
        regKey->WriteInteger("Left", Left);
        regKey->WriteInteger("Top", Top);
        regKey->CloseKey();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    TRegistry *regKey = new TRegistry;
    regKey->RootKey = HKEY_CURRENT_USER;
    regKey->OpenKey("NoticeMe", true);
    Left = regKey->ReadInteger("Left");
    Top  = regKey->ReadInteger("Top");
        regKey->CloseKey();
}
(繼續閱讀...)

kenny23 發表在 痞客邦 留言(0) 人氣()

▲top
//----------- .H
private:    // User declarations
        TWndMethod OldScrollBoxWndProc;
        void __fastcall ScrollBoxWndProc(TMessage& Message);
(繼續閱讀...)

kenny23 發表在 痞客邦 留言(0) 人氣()

▲top

讓Panel1 繪圖的方法
(繼續閱讀...)

kenny23 發表在 痞客邦 留言(0) 人氣()

▲top
1_DSC03763.JPG
今年2011年5月11號抵達義大利出差,一直要待到5月20號
沒想到竟然遇到 Mille Miglia經典拉力賽,
一開始義大利夥伴跟我說的時候,並沒有特別感覺
等我到現場一看,將近400台的價值千萬的絕版經典名車,哇 哇 !!
(繼續閱讀...)

kenny23 發表在 痞客邦 留言(0) 人氣()

▲top
出發1.JPG                 
早就聽過愛台灣三部曲橫渡日月潭、登玉山、單車環島，你也早已將這個意念植入在你的腦海裡，這次你不再只是說說而已，夢想即將出發！當你還在回想籌備設計車衣的精神與環島前練習的點滴時，你不敢相信的是，你已經一屁股坐上單車開啟了九天足以讓你炫耀一輩子的旅程。這趟行程花了你三萬大洋，這讓你有點心疼，而你活到今天或許早已賺了不下百個三萬，但沒有一個還殘留在你腦海，這一個應該可以撐很久，想到這裡你笑了。
(繼續閱讀...)

kenny23 發表在 痞客邦 留言(0) 人氣()

▲top
P1080400.JPG
經過花蓮300K的摧殘 ,

縱使因此讓你放棄或降低對於單車的喜愛也是情有可原 ,


(繼續閱讀...)

kenny23 發表在 痞客邦 留言(0) 人氣()

▲top
DSC006731.JPG
[ 參加 ]
不安分的你,坐在電腦桌前 , 眼看著牆上的時鍾 , 越來越接近12點 ,
平常你不會特別在意時針與分針交會的時間,
(繼續閱讀...)

kenny23 發表在 痞客邦 留言(0) 人氣()

▲top
東東芋圓
對於騎單車的人來說 , 一天騎80公里 應該算是小Case
一般道路終究無法與山路比擬 , 就以終極目標來說
騎山路的人畢業證書在武嶺 , 倘若能攻上武嶺 , 那麼就能說夫復何求 ?
而騎一般道路的人就嚮往環台 , 一次走片22縣市(終極版則為25縣市包含連江縣.金門縣與澎湖縣等離島)
(繼續閱讀...)

kenny23 發表在 痞客邦 留言(0) 人氣()

▲top
首先你必須要先抓到 MouseWheel
先在你的Form Class 裡面宣告如下
TWndMethod oldDBGridProc; //儲存原始訊息處理函式 
void __fastcall DBGridWndProc(Messages::TMessage &Message); //攔截訊息函式 
然後可以在 FormCreate 裡面去換掉原來的訊息處理函式
oldDBGridProc = DBGrid1->WindowProc;
DBGrid1->WindowProc = DBGridWndProc;
再來實作你的的訊息處理函式操作你的 DataSet
void __fastcall TForm::DBGridWndProc(Messages::TMessage &Message)
{
  short int Delta;
  if ( Message.Msg == WM_MOUSEWHEEL )
  {
    Delta = Message.WParamHi;
    if ( Delta < 0 )
      ADOQuery1->Next();
    if ( Delta > 0 )
      ADOQuery1->Prior();
  }
  else
  {
    oldDBGridProc(Message);  //記得要送回給原來的訊息處理函式
  }
}
(繼續閱讀...)

kenny23 發表在 痞客邦 留言(0) 人氣()

▲top
    if(shiftdown){
        SecBookMark = DataSource1->DataSet->GetBookmark();
        Direction = DataSource1->DataSet->CompareBookmarks(FirBookmark,SecBookMark);
        if(Direction == 0)
          return;
        while(Direction != 0){
          DataSource1->DataSet->MoveBy(Direction);
          DBGrid1->SelectedRows->CurrentRowSelected = true;
          SecBookMark = DataSource1->DataSet->GetBookmark();
          Direction = DataSource1->DataSet->CompareBookmarks(FirBookmark,SecBookMark);
        }
     }
     else{
        FirBookmark = DataSource1->DataSet->GetBookmark();
     }
(繼續閱讀...)

kenny23 發表在 痞客邦 留言(0) 人氣()

▲top
常常遇到好朋友們會問這個問題
就是 Office 會被認證成為盜版 , 其實最好能選用原廠軟體 , 可以參考Windows網站
微軟Office網站
 
(繼續閱讀...)

kenny23 發表在 痞客邦 留言(0) 人氣()

▲top
a14.jpg
起源 
      一切都起源於康雅雅(參訪她的PIXNET)掏出10塊錢買了一份自由時報
(繼續閱讀...)

kenny23 發表在 痞客邦 留言(0) 人氣()

▲top
1 2 3
Blog Stats
⚠️

成人內容提醒

本部落格內容僅限年滿十八歲者瀏覽。
若您未滿十八歲，請立即離開。

已滿十八歲者，亦請勿將內容提供給未成年人士。