Einzelnen Beitrag anzeigen

Razor90

Registriert seit: 18. Jun 2008
80 Beiträge
 
#1

Zellen verbinden

  Alt 26. Jun 2008, 19:04
Ich möchte nun zwei Zellen di untereinander sind miteinander verbinden. Ich habe folgenden Code gefunde:
Delphi-Quellcode:
   If gdFixed In State Then Exit;
     If ARow > 1 Then Exit; }
     with sender as tstringgrid do begin
     If aCol < Pred(ColCount) Then
      Rect.Right := Rect.Right + 2 GridlineWidth;
    y:= Rect.Top +2;
    x:= Rect.Left +2;
    for i:= 1 to aCol-1 do
      x:= x - ColWidths[i] - GridlineWidth;

   end;
wie muss ich diesen nun umändern um mein problem zu lösen?
  Mit Zitat antworten Zitat