Stringgrid row

[Dostk]

Merhaba;

Stringride herhangi bir satırı farklı bir satıra yani yukarı veya aşağıya taşıma imkanı yok mu? yaptığım araştırmalarda bu konu hakkında bir şey bulamadım...

[ertank]

TStringGrid üzerinde bu tarz hazır bir prosedür/fonksiyon bildiğim kadarı ile yok. Ancak kod yazarak yapılabilecek birşey.

Yapmak istediğinizi biraz daha detaylı yazabilir misiniz? Mesela üstteki/alttaki satır dolu ise üzerine mi yazılacak?

[Dostk]

Selam, Stringride yapmak istediğim örnek: 10. satırı yukarı veya aşağıya taşımak herhangi bir satırın üzerine yazılmayacak taşıma işlemi mouse ile yapmalıyım buton ile değil.

Teşekkür ederim...

[ertank]

Delphi 10'da TStringGrid Options içinde goRowMoving özelliği işinizi görür mü acaba?

[brs]

Kod: Tümünü seç

public
    procedure MoveColumn(FromIndex, ToIndex: Longint);
    procedure MoveRow(FromIndex, ToIndex: Longint);
  end;


procedure TMyGrid.MoveColumn(FromIndex, ToIndex: Integer);
begin
  inherited;
end;

procedure TMyGrid.MoveRow(FromIndex, ToIndex: Integer);
begin
  inherited;
end;

procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
var
  ACol, ARow: Integer;
begin
  // goRowMoving nur dann aktivieren, falls sich der Maus über Row > 1 befindet.
  with Sender as TStringGrid do
  begin
    MouseToCell(X,Y, ACol, ARow);
    if (ARow > 1) then
      Options := Options + [goRowMoving, goColMoving]
    else
      Options := Options - [goRowMoving, goColMoving];
  end;
end;

procedure TForm1.StringGrid1RowMoved(Sender: TObject; FromIndex,
  ToIndex: Integer);
begin
  // falls zur Row 1 verschoben wird, Operation wieder rückgängig machen.
  if ToIndex = 1 then
    TMyGrid(StringGrid1).MoveRow(ToIndex, FromIndex);
end;

[Dostk]

Çok teşekkür ederim Brs ve ertank...