Hi Luckie,
irgendwie ist mir nicht klar was Du willst?
Eine alternative zu deinem Code, oder nur zeigen wie Du es machst.
Na ja
Hier eine alternative
Delphi-Quellcode:
procedure TForm1.Image1Click(Sender: TObject);
begin
Image1.Canvas.DrawFocusRect(Image1.ClientRect);
end;