Line über Controls zeichnen

[ralfi002]

Danke erstaml für deine rasche Antwort (mkinzler),

aber leider funktioniert es nicht.

Das TImage control bleibt auch weiterhin unterhalb z.b. eines Buttons.

Auch wenn ich die Sichtbarkeitsreihenfolge zur Laufzeit ändere habe ich nicht den gewünschten Erflog.
Hier mein Code:

Delphi-Quellcode:

...
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to self.ControlCount-1 do
  begin
    if self.Controls[i].Name = Image1.Name then
      self.Controls[i].BringToFront;

  end;
  Image1.Canvas.LineTo(Image1.Width, Image1.Height);
end;
...

Hast vielleicht noch eine andere Idee?

Thx,
ralfi

[edit=SirThornberry]Delphi-Tags gesetzt - Mfg, SirThornberry[/edit]