Skip to main content

AccessTr.neT


Etiketler
Yazar: accessman - Cevaplar: 4 - İzleme: 2518
mouse cursorunun bulunduğu yerdeki rengi alma
bunu Access ile yapmak mümkün mü
aşağıda ki kod delphi için

Kod:
procedure TForm1.Button2Click(Sender: TObject);
var
point:TPoint; // kursor'un bulundugu yer
pikselrengi:TColor;
ScreenDC: HDC;
begin
getcursorpos(point); // kursor'un bulundugu yerin kordinatlarini oku
if (form1.Canvas.Pixels[point.x,point.y]=clBlack) then
begin
ShowMessage('siyah');
end else ShowMessage('değil');
end;


bu olabilir mi acaba

[code]
Private Sub MainPage_MouseLeftButtonDown(ByVal se
Task