Forum: Multimedia
by uwewo,
7. Mai 2007
Du könntest es doch mit DrawFocusRect machen, oder willst Du eine durchgehende farbige Linie?
procedure TForm1.Image1Click(Sender: TObject);
begin
(Sender as TImage).Canvas.DrawFocusRect((Sender as TImage).ClientRect);
end;
Müsstest Dir nur merken welches den Focus hat und die die Funktion ein zweites mal aufrufen.
Forum: Multimedia
by uwewo,
7. Mai 2007
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