Farbwerte von Elementen beim Darüberfahren auslesen

[Pr0g]

Hier nen einfaches Beispiel (da mit Timer):

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  fPos: TPoint; // Cursorposition
  i: Integer;
begin
  // Cursorposition ermitteln
  GetCursorPos(fPos);
  // Auf Clientposition umrechnen
  fPos := ScreenToClient(fPos);

  // Alle Controls auf der Form durchgehen und bei Shapes die Position
  // vergleichen
  for i := 0 to ComponentCount - 1 do
  begin
    if Components[i] is TShape then
    begin
      if PtInRect(TShape(Components[i]).BoundsRect, fPos) then
        Caption := 'Farbe: ' + IntToStr(TShape(Components[i]).Brush.Color);
    end;
  end;
end;

MfG Pr0g