Halllo rono,
also verstehe ich das richtig, dass nicht das Programm nach Fehlern suchen soll, sondern der Anwender. Das Programm soll nur die Stellen markieren, auf die der Anwender klickt?
Dann:
Ich nehme an, Du benutzt zur Anzeige TImages. Dann könntest Du bei einem Klick (MouseDown) ein Shape an die Stelle zeichnen lassen, z.B. so:
Delphi-Quellcode:
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var aShape: TShape;
begin
if ssLeft in Shift then
begin
aShape := TShape.Create(self);
aShape.Parent := self;
aShape.Left := TImage(Sender).Left + X;
aShape.Top := TImage(Sender).Top + Y;
aShape.Width := 15;
aShape.Height := 15;
aShape.Shape := stCircle;
aShape.Pen.Color := clRed;
aShape.Pen.Width := 2;
aShape.Brush.Style := bsClear;
aShape.Visible := true;
end;
end;
Wesentlich besser ist natürlich, wie mkinzler bereits geschrieben hat, das direkte Zeichnen des Kreises auf die Canvas des Bildes... Aber so (wie oben) könntest Du z.B. mit einem Rechtsklick den Kreis wieder entfernen oder verschieben lassen, falls benötigt.
Grüsse
...Doc