ein waagerechter Strich

[malabarista]

Ich möchte einfach einen waagerechten Strich ziehen innerhalb eines Formulars, habe aber kein geeignetes Control gefunden...
Der Strich soll lediglich optisch einige Eingabefelder etwas voneinander trennen, damit es für den Bediener übersichtlicher wird.

[theo]

Eigentlich gruppiert man z.B. mit einer TGroupBox.
Aber einen Strich kann man z.B. mit einer TPaintBox im OnPaint zeichnen.

Auf dem Bild siehst du oben die Groupbox und unten die PaintBox.

[m.fuchs]

Da gibt es auf der Komponentenseite Additional zum Beispiel zwei Möglichkeiten:

1. TBevel - die Property Shape sollte auf bsTopLine gesetzt werden
2. TShape - die Property Shape auf stRectangle und Height auf 1 setzen

[malabarista]

Ja, TShape macht sich gut mit diesen Einstellungen.

[siro]

Du kannst auch nach Herzenslust direkt auf einem Formular zeichnen

Dazu bei Ereignisse von deinem Formular auf OnPaint doppelklicken
und zum Beispiel folgenden Code eingeben:

Code: Alles auswählen

procedure TForm1.FormPaint(Sender: TObject);
const LinienPos = 73;        { die Position der Linie }
begin
  canvas.MoveTo(0,LinienPos);                 { Starpunkt stezen }
  canvas.LineTo(ClientWidth,LinienPos);   { Linie zeichnen }
end;
 

Diese Zeichenoperationen siehst Du dann aber leider erst nach dem Starten des Programm, daher ist die Bevel / Shape Variante sicherlich sinnvoller.

[Mathias]

Ich ziehe für solche Sachen auch die OnPaint - Variante vor. Es ist die flexibelste von allen.