如何获得屏幕上某点的颜色.

[CPerlAsm_Lx]

如何获得屏幕上某点的颜色.

[tip9914]

这个类中应该有GetColor一类的函数呀

[CPerlAsm_Lx]

那是在color dialog里用的吧.我是说直接得到屏幕任何一点的颜色.

[lovebcb]

看个例子，
三个Edit，1个button,1个timer（设false），1个panel

点button后，三个edit中分别显示RGB的值，panel显示颜色

[lovebcb]

//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
TPoint p;
HDC d;
DWord r;
GetCursorPos(&p);
d=GetDC(0);
r=GetPixel(d,p.x,p.y);
Panel1->Color=r;
Edit1->Text=IntToStr(GetRValue(r));
Edit2->Text=IntToStr(GetGValue(r));
Edit3->Text=IntToStr(GetBValue(r));
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Timer1->Enabled=True;
Button1->Enabled=False;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{

hotkeyid=GlobalAddAtom("UserDefined")-0xC000;
RegisterHotKey(NULL,hotkeyid,MOD_ALT,26);

}
//---------------------------------------------------------------------------



void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
UnregisterHotKey(NULL,hotkeyid);
DeleteAtom(hotkeyid);
}
//---------------------------------------------------------------------------

void TForm1::WMHotKey(TWMHotKey Msg)
{
if (Msg.HotKey==hotkeyid)
{
Msg.Result=1;
Timer1->Enabled=True;
Button1->Enabled=False;
}
}


新年快乐！

[cupidvenus]

GetCursorPos和GetPixel

[dclman]

哈哈``` 好!! 收了``` 嘿嘿~~

[lovebcb]

改了它：
Panel1->Color=TColor(r);

[goneaway1981]

回复人： cupidvenus(小鱼儿) ( ) 信誉：100 2004-01-22 22:54:00 得分:0


GetCursorPos和GetPixel