Line über Controls zeichnen

[ralfi002]

Tag alle zusammen,

kann mir vielleicht jemand sagen wie man eine Linie über einem Control zeichnen kann?

Wenn ich die Canvas funktion meiner Form verwende ist die Linie immer unter den controls.

Ich habe auch bemerkt das TGraphicControl Klassen auch immer unterhalb von TWinControls Klassen sind.

Mein Ziel ist es: wenn ich ein objekt auf meiner Form bewege (wo standard controls platziert sind), soll der Ursprungspunkt und die aktuelle mouse-Position mit einer linie verbunden werden. Diese Linie soll dann natürlich an oberster Ebene sein.

Thx,
Ralfi

[mkinzler]

Erzeuge eine Image mit transparenten Hintergrund welches du ganz nach oben bringst.

[Christian Seehase]

Moin Ralfi,

erst einmal herzlich willkommen hier in der Delphi-PRAXiS.

Nicht, dass Du Dich wunderst:
Ich habe Deinen Doppelpost mal entfernt

[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]

[mkinzler]

Versuchs mal statt des Images mit ner PaintBox.

[ralfi002]

Ne funktioniert auch nicht.

Ich versuchs mal mit einer von TComponent abgeleiteten Klasse. Weis jemand vielleicht welche methode ich überschreiben muss um das contol selbst zu zeichnen?

thx,
ralfi

[mkinzler]

Nimm TGraphicControl als Basisklasse, diese enthält einen Canvas.

[ralfi002]

Habe gelesen das TWinControl Objekte immer über TGraphicControl Objekten gezeichnet werden.
(Das ist echt blöd )

Gibt es vielleicht einen Trick, ein TGraphicsControl Objekt doch über ein TWinControl Objekt zu zeichnen?

thx,
ralfi

[Lannes]

Hallo,

eventuell hilft Dir das weiter, der Code zeichnet ein rotes Kreutz über eine RadioGroup:

Delphi-Quellcode:

//...
  private
    FCanvas: TControlCanvas;
//...
procedure TForm1.FormCreate(Sender: TObject);
begin
  FCanvas:=TControlCanvas.Create;
  FCanvas.Control := RadioGroup1;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FCanvas.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  FCanvas.Pen.Color := clRed;
  FCanvas.MoveTo(0,0);
  FCanvas.LineTo(RadioGroup1.Width,RadioGroup1.Height);
  FCanvas.MoveTo(RadioGroup1.Width,0);
  FCanvas.LineTo(0,RadioGroup1.Height);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  //Kreutz entfernen
  RadioGroup1.Repaint;
end;

[mimi]

mit der winAPI funktion in den HADNLE des formulas müste es doch auch gehen oder ?