var Color:TColor; begin Color:=GetPixel(GetDC(0), 100, 100);//取屏幕上(100,100)的颜色 Label1.Color:=Color; end;
var Color:TColor; begin Color:=GetPixel(GetDC(0), 100, 100);//取屏幕上(100,100)的颜色 Label1.Color:=Color; end;--------------------------------------- 改变的是窗体的颜色.不是Label1的..呵呵
var
P:TPoint;
MyhDC : HDC;
c:TColor;
begin
MyhDC := GetDC(0);
GetCursorPos(P);
c:=GetPixel(MyhDC, P.x, P.y);
Label1.Caption := '红'+IntToStr(GetRValue(c))+
',绿'+IntToStr(GetGValue(c))+
',兰'+IntToStr(GetBValue(c));
end;
Color:TColor;
begin
Color:=GetPixel(GetDC(0), 100, 100);//取屏幕上(100,100)的颜色
Label1.Color:=Color;
end;
Color:TColor;
begin
Color:=GetPixel(GetDC(0), 100, 100);//取屏幕上(100,100)的颜色
Label1.Color:=Color;
end;---------------------------------------
改变的是窗体的颜色.不是Label1的..呵呵
Label1.Color:=Color; 后改变的是窗体的颜色
Label1.Color:=clred;才 是Label1的颜色。不明白了,
不知道是不是我的问题 :)