|
bueno no se si te servira mi idea y si es eso lo que quieres, pero trabajando con el canvas del objeto y aprovechando la propiedad color puedes hacer, creo, lo que quieres. he hecho una pequeña demostracion. pones un boton en un form y el codigo siguiente
pruebalo a ver si es lo que quieres o por lo menos te da una idea
procedure TForm1.Button1Click(Sender: TObject);
begin
self.Canvas.Pen.Color:=$FF0080;
self.Canvas.LineTo(50,50);
end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if (IntToHex(self.Canvas.Pixels[x,y],1)) = 'FF0080' then
begin
self.Cursor:=crHandPoint;
end
else
self.Cursor:=crDefault;
end;
|