DBGrid Werte untereinander

[Schuster]

Ist es möglich mit einem DBGrid die Werte untereinander auszugeben statt nebeneineander??

z.B:

Tel.Privat: 123454
Tel.Mobil: 54545
Fax: [phone]

und nicht so:
Tel.Privat // Tel.Mobil // Fax
123454 //// 54545 //// 4545645

:?: :?:

[Bernhard Geyer]

Nicht mit DBGrid.
Aber nimm doch TDBEdit + TDBCtrlGrid. TDBCtrlGrid ist für sowas sehr geignet.

[eddy]

Hallo Schuster,

ich kann Deine Frage nicht beantworten, aber da es mit dem Titel geht, sollte es eigentlich auch mit dem Rest der Tabelle funktionieren.

Vielleicht hilft dir das weiter:

Code:

type 
  TAccessDBGrid = class(TDBGrid); 

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; 
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); 
var 
  S1, S2: String; 
begin 
  with TAccessDBGrid(DBGrid1) do begin 
    // Increase title height 
    // Titelhöhe vergrössern 
    RowHeights[0] := 32; 

    Canvas.Brush.Style := bsClear; 

    // Column Titles 
    // Spalten Titel setzen 
    case Column.Index of 
      0: begin 
           Column.Title.Caption := ''; 
           S1 := 'Row 1'; 
           S2 := 'Row 2'; 
         end; 
      1: begin 
           Column.Title.Caption := ''; 
           S1 := 'Row 1'; 
           S2 := 'Row 2'; 
         end; 
    end; 
    // write title: 
    // Titel ausgeben: 
    Canvas.TextOut(Rect.Left+2, 2, S1); 
    Canvas.TextOut(Rect.Left+2, 16, S2); 
  end; 
end;

Quelle: http://www.swissdelphicenter.ch/de/showcode.php?id=1653

mfg
eddy