<育駿科技> 免費線上遊戲 On-line

育駿科技《遮天》       育駿科技《墨攻》     育駿科技《遠古封神》

育駿科技《英雄遠征》    育駿科技《天策》

<其他遊戲>

   530遊戲歡樂城             正妹麻將               PoketKing撲克王

雲端超商-7Net-博客來Books-Shopping99

BCB-取得檔名並不包含副檔名的方法

在 BCB 裡頭可以很輕易的取得某個檔案的名稱，可是它會包含其副檔名，
有很多時候我們並不需要副檔名

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
 AnsiString Name;
 Name = "1234.bmp";
 Name = Name.Delete(Name.Pos(ExtractFileExt(Name) ),ExtractFileExt(Name).Length() ) ;
}

另一個方法

BCB-修改ListBox 的字體顏色

void __fastcall TForm1::ListBox1DrawItem(TWinControl *Control, int Index,TRect &Rect, TOwnerDrawState State)
{
     if(State.Contains(odSelected)){
         ListBox1->Canvas->Brush->Color = clBlue;
         ListBox1->Canvas->Font->Color = clYellow;
     }else{
         ListBox1->Canvas->Brush->Color = clWhite;
         ListBox1->Canvas->Font->Color = clBlack;
     }
     ListBox1->Canvas->FillRect(Rect);

BCB-MessageBox 的使用方法

int MessageBox(const char* Text, const char* Caption, int Flags);

Text : 您要顯示的訊息
Caption : MessageBox 的標題
Flags : 設定要顯示按鈕格式

BCB-Memo貼上之後自動換行-WM_PASTE 

有時候你可能會需要讓使用者在 Memo 貼上文字之後自動換行。要達到這樣的效果有幾種方法辦得到。第一種是在OnMouseUp event 裡頭偵測使用者是否按下了 Ctrl+V。

不過這方法並不是很好，所以在這裡我要介紹第二種方法。第二種方法是直接偵測送到 Memo 的 WM_PASTE 訊息。

//Unit1.h

private: // User declarations


BCB-控制多個元件的方法-FindComponent()

我們可以透過 ComponentCount 來掃瞄 Form 底下的所有元件，進而控制這些元件，例如底下這個 sample code 可以把 Form 

BCB-取得指定目錄下特定副檔名的所有檔案到特定資料夾-WinAPI應用

這一段程式碼是可以取得指定目錄及其子目錄下，所有副檔名為 .url 的檔案 (沒錯，這就是拿來掃瞄 IE 我的最愛)，取得的所有檔名會存放在一個名叫 sList 的 StringList 裡頭。



void __fastcall TForm1::LoadFavorite(AnsiString Dir, TStringList *sList) // Dir 就是你要掃瞄的目錄, sList 拿來存放檔名

{


BCB-用右鍵選擇 TreeNode 並顯示右鍵選單

假設你有一個 TreeView 叫做 tvArticle，有個 PopupMenu 叫做 PopupMenu1，你希望用右鍵可以點選 tvArticle 的節點，然後再顯示右鍵選單。
首先你要把 PopupMenu1 的 AutoPupop 屬性設為 false，然後在 tvArticle 的 OnMouseDown 事件加入以下程式碼。

void __fastcall TForm1::tvArticleMouseDown(TObject *Sender,
 TMouseButton Button, TShiftState Shift, int X, int Y)
{
 TPoint p;