用BCB開啟圖檔後 滑鼠在圖片上移動 並且顯示這圖片的RGB三個值 怎麼寫ㄚ?

您好: 請多利用[搜尋]功能 ex【問題】請問在BCB裡要怎麼圖檔之像素顏色資料...  http://delphi.ktop.com.tw/topic.php?topic_id=54737 順心

你可以參考以下這個程式段動作: (1)建立一個Image1和開啟檔案的button功能鍵 (2)建立Label位置Label7(表示x座標),Label8(表示y座標),Label9(表示R值),Label10(表示G值),Label11(表示B值).可以在這些Label前擺放座標和什麼顏色的文字顯示:    #include  #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { if(OpenDialog1->Execute()) Image1->Picture->LoadFromFile(OpenDialog1->FileName); Image1->Width=Image1->Picture->Width; Image1->Height=Image1->Picture->Height; Image1->Visible = true; } //--------------------------------------------------------------------------- void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift, int X, int Y) { TColor a = Image1->Canvas->Pixels[X][Y]; Label6->Caption = X; Label7->Caption = Y; unsigned char b; b = char(a); Label8->Caption = int(b); a >>= 8; b = char(a); Label9->Caption = int(b); a >>= 8; b = char(a); Label10->Caption = int(b); } (3)並記的做Image1的設定,否則文字會顯示不出來: try看看是不是你要的!! 祝你成功!!

------
Keni Lin