Arsip: Seleksi baris DBGrid menggunakan event OnMouseMove


by adludin in Articles more 15 years ago 1993
Tip dan trik ini berguna untuk menyeleksi record/baris pada DBGrid berdasarkan gerakan mouse yang melintas pada DBGrid...
Tambahkan kode berikut pada deklarasi type : #F8F8F8>
typeTHackDBGrid = class(TDBGrid);
...
...
Kode dibawah ditambahkan pada event OnMouseMove dari DBGrid : #F8F8F8>
procedureTForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var gc: TGridCoord;
begin
  gc:= DBGrid1.MouseCoord(x, y);
  if (gc.X > 0) AND (gc.Y > 0) then
  begin
    DBGrid1.Cursor:=crHandPoint;
    DBGrid1.DataSource.DataSet.MoveBy
        (gc.Y - THackDBGrid(DBGrid1).Row);
  end
  else DBGrid1.Cursor:=crDefault;
end;
Untuk menambahkan efek highlight, tambahkan kode berikut pada event OnDrawColumnCell dari DBGrid : #F8F8F8>
 if (THackDBGrid(DBGrid1).DataLink.ActiveRecord + 1 =
      THackDBGrid(DBGrid1).Row)
  or (gdFocused in State) or (gdSelected in State) then
  begin
    DBGrid1.Canvas.Brush.Color := clBlueSky;
    DBGrid1.Canvas.Font.Style := DBGrid1.Canvas.Font.Style + [fsBold];
    DBGrid1.Canvas.Font.Color := clRed;
  end;
Catatan : Pilih Option RowSelect DBGrid agar True.. Semoga bermanfaat...
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com