einfachen Strich in TabControl zeichnen

[Innos]

Hi leute

ich hab ein programm mit einem TabSheet und 4 Tabsheets... jetzt will ich in einsvon denen einen Strich zeichnen (im FormCreate).
normaler weise geht das ja so

Delphi-Quellcode:

Form1.Canvas.MoveTo(45,150);
Form1.Canvas.LineTo(650,150);

ganz einfach^^ nur is das net im TabSheet und Canvas kapiert der bei mir auch grad nicht... aba das is ja grad nich mein prob^^

meine anfänge

PageControl1.Pages[2].PaintTo(nil,0,100); Pages[2] is scho ma das richtige etc nur immer wenn ich das prog starte kommt ein fehler und ich kann es nicht starten...
da steht dann iwas komisches was ich mir nicht merken kann -.- und er zeigt dann auf den nächt gelegenen Befehl also anscheinend fehlt vllt irgendwas....

MoveTo und LineTo geht auch nicht

Vielen Dank scho ma im vorraus

mfg

[Luckie]

Wie wäre es, wenn du auf dem Canvas des TabSheets zeichnest? Bedenke aber, dass wenn es nicht sichtbar ist und sichtbar wird alles wieder weg ist, weil es neu gezeichnet wird. Deswegen auf ein Bitmap im Speicher zeichnen und bei bedarf (OnPaint, ButtonClick, ...) auf den Canvas kopieren.

[Hawkeye219]

Hallo,

wenn es sich um waagerechte oder senkrechte Linien handelt, könntest du auch einfach ein TLabel auf das TabSheet setzen. Beim Label die Eigenschaft AutoSize auf den Wert False setzen, die Caption auf einen Leerstring und die Farbe je nach Wunsch. Die Dicke der Linie kann man über Label.Height bzw. Label.Width steuern.

Gruß Hawkeye

[Innos]

oha^^ das mit dem label is ne gute idee^^

dass andere mit dem Bitmap in den Speicher zeichnen kapier ich null -.-

aba danke euch beiden das Label probier ich ma aus

Edit: jo Geht^^ THX an euch!

[sirius]

Wie wärs statt Label ein Shape zu nehmen

[RavenIV]

Du kannst auch einen TBevel nehmen.
Die Height auf 2 setzen, den Shape auf bsBox setzen und Style auf bsLowered.
Dann gibt das eine Linie mit der Länge Width.