StringGriddeki hücrede bilgiyi iki satır olarak yazma

[filiz]

merhabalar

StringGrid içerisinde adres bilgisi var.Ve bu alan cok uzun.Bu nedenle adres bilgisini iki satır olarak yazmak istiyorum.Bu şekilde yazabilmemin bir yolu varmı

tşk ederim

[recepuncu]

Merhaba arkadaş istedeğin şey bumudur bak bakalım:

Kod: Tümünü seç

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  Grid:      TStringGrid;
  S:         String;
  rDrawRect: TRect;
begin
  Grid := TStringGrid(Sender);
  S    := Grid.Cells[ACol, ARow];
  if Length(S) > 0 then
  begin
    rDrawRect := Rect;
    DrawText(Grid.Canvas.Handle, PChar(S), Length(S), rDrawRect,
              DT_CALCRECT or DT_WORDBREAK or DT_LEFT);
    if (rDrawRect.Bottom - rDrawRect.Top) > Grid.RowHeights[Arow]  then
    begin
      Grid.RowHeights[ARow] :=
            (rDrawRect.Bottom - rDrawRect.Top)
    end
    else
    begin
      rDrawRect.Right := Rect.right;
      Grid.Canvas.FillRect(rDrawRect);
      DrawText(Grid.Canvas.Handle, PChar(S), Length(S), rDrawRect,
                DT_WORDBREAK or DT_LEFT);
    end; {if (rDrawRect.Bottom...}
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
StringGrid1.Cells[1,1] := 'Merhaba Arkadaşlar Nasılsınız?';
end;

Sana birde güzel bileşen sitesi öneriyim http://www.ciemmesoft.com/Release4/cate ... StringGrid

Hadi İyi çalışmalar.