StringGrid Position

Kadang kita dihadapkan permasalahan dimana kita harus menampilkan data pada Stringgrid bukan dbgrid. Maka untuk pengkodeannya pun manual. Apalagi data diambil dari database dan kita harus menampilkannya distring grid. Maka kita mencocokan cell demi cell dengan algiritma perulangan.

Bila stringgrid berisi sumary dan user minta detail datanya dengan cara doubleklik, maka untuk menampilkan detailnya tersebut kita harus mengambil value dari posisi mouse tadi didouble klik (paham gak he3)

Sample kode berikut menunjukan posisi dari cell yang kita double klik dari sebuah string grid

1. Buat Form
2. Tempelkan komponen : Stringgrid, Label


procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
StringGrid1.MouseToCell(X,Y,a,b);
end;

procedure TForm1.StringGrid1DblClick(Sender: TObject);
begin
label1.Caption:=inttostr(a)+' - '+inttostr(b);

end;

Setelah itu baru mengambil valuenya dengan cara memetakan koordinat posisi tadi dengan isi cell

var j:string;
begin
j:=StringGrid1.Cells[a,b];
end;

Semoga dapat membantu