String grid scroll indikce veri yukleme

[wahsiii]

Arkadaslar methane
String griddle scroll en alta gelding indie sunucudan gerikalan verileri cekmem lazim.
Scroll in en alta geldigini algilamam icin on scroll event I yok.
Bu konuda yard imci olabilirmisiniz.

[mrmarman]

Şöyle bir kurgu hazırladım, ( FireMonkey içindir ) ( Win32 olsaydı OnSelectCell eventine basitinden bir USER Message ekleyip, bunu event olarak tetikleyecektik )

- Buna göre limite yaklaştığınızda yeni dataları alta eklersiniz.

Kod: Tümünü seç

function OnAfterScroll( StringGrid:TStringGrid ): String;
Var
  iMevcutIdx,
  iGorunenSatirSay,
  iGorunenTepeIdx,
  iGorunenSonSatirIdx,
  iToplamSatir : Integer;
begin
  iMevcutIdx          := StringGrid.Selected  + 1;
  iGorunenSatirSay    := StringGrid.VisibleRows;
  iGorunenTepeIdx     := StringGrid.TopRow    + 1;
  iGorunenSonSatirIdx := StringGrid.BottomRow + 1;
  iToplamSatir        := StringGrid.RowCount;

  Result := Format('Satır = %d / GörünenTepe = %d / GörünenTaban = %d / Toplam = %d', [
                  iMevcutIdx
                , iGorunenTepeIdx
                , iGorunenSonSatirIdx
                , iToplamSatir ]);
end;

procedure TForm1.StringGrid1KeyUp(Sender: TObject; var Key: Word;
  var KeyChar: Char; Shift: TShiftState);
begin
  Caption := OnAfterScroll( TStringGrid(Sender) );
end;

procedure TForm1.StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
begin
  Caption := OnAfterScroll( TStringGrid(Sender) );
end;

[wahsiii]

cevap için teşekkür ederim hocam,
deneyip buradan yazarım...

[wahsiii]

çok sagolun hocam,
denedim istediğim gibi oldu...