蘇小鍰的異想空間

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();
}

//----------- .H
private:    // User declarations
        TWndMethod OldScrollBoxWndProc;
        void __fastcall ScrollBoxWndProc(TMessage& Message);

讓Panel1 繪圖的方法

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

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

經過花蓮300K的摧殘 ,

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

[ 參加 ]
不安分的你,坐在電腦桌前 , 眼看著牆上的時鍾 , 越來越接近12點 ,
平常你不會特別在意時針與分針交會的時間,

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

首先你必須要先抓到 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);  //記得要送回給原來的訊息處理函式
  }
}

    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();
     }