void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift, int X, int Y) HDC hdc = ::GetDC(Handle); COLORREF pcolor = ::GetPixel(hdc,X,Y); unsigned int r= GetRValue(pcolor); unsigned int g= GetGValue(pcolor); unsigned int b= GetBValue(pcolor); Caption="R:" AnsiString(r) " G:" AnsiString(g) " B:" AnsiString(b); //------------------------------------------------------------ 當使用這段程式擷取RGB值時 為何我滑鼠在Image1移動時所擷取的數值與Photo Shop的擷取的不一樣? 感覺數值也是怪怪的~ 還需要設定些什麼? 我的圖示是 240X176 24b BMP

ufstep您好: 我是用下面的方式擷取RGB您試看看 < class="code"> void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift, int X, int Y) int R=(Byte)GetRValue(Image1->Canvas->Pixels[X][Y]); int G=(Byte)GetGValue(Image1->Canvas->Pixels[X][Y]); int B=(Byte)GetBValue(Image1->Canvas->Pixels[X][Y]); Caption="R:" AnsiString(R) " G:" AnsiString(G) " B:" AnsiString(B); P.S:貼程式碼時請參考下面連結的方式,閱讀起來會更清爽喔 < href="http://delphi.ktop.com.tw/topic.php?TOPIC_ID=39009">http://delphi.ktop.com.tw/topic.php?TOPIC_ID=39009 順心 發表人 -

感謝感謝,~問題已解決,但是為何會有之前那種怪怪的狀況出現?