안녕하세요...
처음으로 천리안, 프로그래머 동호회에 글을 올리는군요.
제가 이렇게 고쳐봤는데요,
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
Rgb : Colorref;
begin
rgb :=GetPixel (Image1.Canvas.Handle,x,y);
ShowMessage(Format('RGB(%d,%d,%d)', [GetRValue(rgb),GetGValue(rgb),GetBValue(rgb)]));
end;
여기서, var aa: HDC 를 지웠습니다.
왜냐하면 Image1.Canvas.Hnadle이 바로 HDC 핸들이기 때문이죠...
그리고 Image1에 마우스를 누를때의 x, y좌표로 색을 구하고 보여주는 것이죠.
그럼...
|