Hallo

wie kann ich ein paar linien in TForm zeichenen?
ich habe in der Toolbar nachgeschaut aber ich finde nichts.
wie kann ich einem Button eine andere Farbe geben?

mfg
alex

mal anschauen.. ggf in der Onlinehilfe nachschauen (Begriff markieren und F1)

Hallo

das habe ich versucht aber es funktioniert nicht

procedure TForm1.draw(Sender: TObject);
begin
form1.canvas.pen.Style:=psSolid;
form1.canvas.Pen.Color:=clred;
form1.Canvas.MoveTo(200,200);
form1.Canvas.lineTo(1000,1000);
end;

er zeichnet mir nichts.

mfg
Alex

schreibe es mal in das OnCreate erreignis.

Mit freundlichen Grüßen
JensLaskowski

es ist in OnCreate ereigniss geschrieben

mfg
alex

schreib die procedure mal normal in deim Programm. und rufe die procedure einfach im onCreate über



auf. Du musst die procedure aber auch oben deklarieren.

Mit freundlichen Grüßen
JensLaskowski

JensLaskowski hat folgendes geschrieben:

schreib die procedure mal normal in deim Programm. und rufe die procedure einfach im onCreate über markieren Delphi-Quelltext     1: draw(Sender); auf. Du musst die procedure aber auch oben deklarieren. Mit freundlichen Grüßen JensLaskowski

Im OnCreate zeichen? Das ist Unsinn! Das event feuert, bevor die Form überhaupt sichtbar ist, wenn du da zeichnest, wirst du es niemals zu gesicht kriegen. Das ganze per OnPaint zu machen ist schon richtig ;)

Wieso da nicht gezeichnet wird? Keine Ahnung! Wahrscheinlich wird gezeichnet, aber du hast die Koordinaten so ungünstig gewählt, dass davon nichts zu sehen ist, der code is jedenfalls ansich richtig.

gruss

EDIT: Ich seh gerade, dass dus garnicht im OnPaint hast, sondern in einer selber erstellen Methode, vermtl hast du die einfach nicht dem Event zugewiesen (Form wählen -> Object Inspector -> Ereigisse -> OnPaint -> Doppelklick -> Code schreibseln).

Danke

wenn ich es in OnPaint mache funktioniert es.

vielen Dank

galbe19 hat folgendes geschrieben:

Danke wenn ich es in OnPaint mache funktioniert es. vielen Dank

Immer wieder Gerne, Rechnung Folgt

gruss