void __fastcall TForm1::ListBox1MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
if (Button == mbRight){
ListBox1->ItemIndex = ListBox1->ItemAtPos(Point(X,Y), true);
}
}
void __fastcall TForm1::ListBox1MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
if (Button == mbRight){
ListBox1->ItemIndex = ListBox1->ItemAtPos(Point(X,Y), true);
}
}
無感網路賺錢方法推薦 MyBrowserCash 瀏覽網頁就可以賺美金 免費加入
<------點擊此圖免費加入會員
向來我們到他人網站瀏覽觀看廣告是不是都只利於他人賺取廣告費呢!?
而現在要跟大家介紹的
Mybrowsercash 是一個不需要改變自己的使用環境,同樣地只要瀏覽網頁,就可以逐漸幫自己賺點小錢喔!
隨著利潤共享模式的理念趨勢與網路世界中打廣告賺錢的不可或缺性,我認 MyBrowserCash具有很大的發展潛力!
基本上Mybrowsercash分成免費會員,銀卡會員與金卡會員。當然不需付費升級,免費加入就可以賺取瀏覽廣告的獎金囉,但是想當然爾,是以付費會員慧賺取比較多且比較快喔。
[旅遊]2011 通宵神社
今天參加了老婆公司的旅遊,早上去飛牛牧場烤肉後, 下午去通霄神社晃晃
到的時候, 有一組新人在這邊拍婚紗照, 個人覺得在那攝影師應該很厲害,
我們在這邊拍了好多, 要取景人就變很小一隻, 人要拍大一點, 就看不出有什
麼特色, 只能說攝影師應該很厲害~!
鳥居~!
BCB-設定Excel欄位為通用格式
Worksheet.OlePropertyGet("Cells", row, 10).OlePropertySet("NumberFormatLocal","@");
BCB-兩個StringGrid 同步滾動
void __fastcall TForm1::StringGrid1TopLeftChanged(TObject *Sender)
{
StringGrid2->TopRow = StringGrid1->TopRow;
StringGrid2->LeftCol = StringGrid1->LeftCol;
}
BCB-替代字元應用函數
oneData->CommaText=StringReplace(csvFile->Strings[i]," ","^",TReplaceFlags()<<rfReplaceAll);
將某一字串內容的空白字變成 "^"字元
如 I Love You --> I^Love^You
BCB 透過winrar 進行壓縮
ShellExecute(NULL,"open","C:\\Program Files\\WinRAR\\WinRAR.exe","a -r -y -o+ -m5 C:\\temp1\\123.rar","C:\\bak\\1215",SW_HIDE);
ShellExecute(NULL,"open",WinRAR.exe路徑,WinRAR解壓縮參數與壓縮檔名路徑,要壓縮的路徑位置,執行時隱藏);
BCB中StringGrid中文字居中
BCB或Delphi中,StringGrid中的文字無法置中,一般只能自己寫代碼来,下面的代碼可以完成這個功能,同時還支持列寬自動置中。
void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol,
int ARow, TRect &Rect, TGridDrawState State)
{
AnsiString Str=" ";
((TStringGrid*)Sender)->Canvas->Font=((TStringGrid*)Sender)->Font;
for(int i=0;i<((TStringGrid*)Sender)->RowCount;i++){
if(((TStringGrid*)Sender)->Cells[ACol][i].Length()>Str.Length())
Str=((TStringGrid*)Sender)->Cells[ACol][i];