[erledigt] In StringGrid-Zelle scrollen?

[catweasel]

Moin

Ich habe schon wieder so ein blödes Problem:
Gegeben ist ein normales StringGrid. In einer Zelle steht ein Text der länger als die eigentliche Zelle ist. Wie schaffe ich es mir den ganzen Text ansehen zu können? Ich hatte gehofft einfach scrollen zu können. Es erscheint zwar der horizontale Scrollbalken, passieren tut jedoch nichts.

Zum besseren Verständnis habe ich hier ein einfaches Beispiel. Einfach eine Form erstellen, der StringGrid wird zur Laufzeit erstellt:

Hat jemand eine Idee wie ich durch den Text im StringGrid scrollen kann?

Code: Alles auswählen

unit Unit1; 
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  Grids;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
  TMyStringGrid=class(TStringGrid);
 
var
  Form1  : TForm1;
  SG     : TMyStringGrid;
 
implementation
 
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
begin
     SG := TMyStringGrid.Create(form1);
     SG.Top       := 10;
     SG.Left      := 10;
     SG.Width     :=320;
     SG.Height    :=130;
     SG.Visible   :=true;
     SG.RowCount  :=2;
     SG.ColCount  :=2;
     SG.Parent    :=Form1;
     SG.Cells[1,1]:= 'Es gelingt mir nicht bis zum Ende dieses Textes zu scrollen';
     SG.Options   := [goColSizing,goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine];
     SG.AutoSizeColumns;
end;
 
initialization
  {$I unit1.lrs}
 
end.

[catweasel]

Hat sicher erledigt, ich benutze eine ListView-Komponente.

Gruß
Michael

[AlterMann]

goEditing := true;

Grüße
Christian