Tabelle und Rahmen

[Deep-Sea]

Zitat von pauletta82:

[...] heißt also dass man in der ersten spalte auch per klick text einfügen kann, während die beiden letzten spalten zur reinen anzeige gedacht sind [...]

Das hört sich nun aber sehr nach TListView an ^^ ... hier mal ein Denkanstoß:

Delphi-Quellcode:

procedure TForm1.ListView1AdvancedCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
  var DefaultDraw: Boolean);
var
  R: TRect;
begin
  With (Sender as TListView).Canvas do
  begin
    R := Item.DisplayRect(drBounds);
    MoveTo(R.Left,  R.Bottom - 1);
    LineTo(R.Right, R.Bottom - 1);
  end;
end;