afirstpage.pas

来自「How show hint in selected cell in DBGrid」· PAS 代码 · 共 46 行

unit AFirstPage;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, ExtCtrls, ComCtrls;

type
  TAFirst = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DBGrid: TDBGrid;
    DBGridE1: TDBGrid;
    procedure DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure DBGridMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure DBGridE1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure DBGridE1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { D閏larations priv閑s }
  public   { D閏larations publiques }
    procedure DoShowHint(var HintStr: String ; var CanShow: Boolean;
                                          var HintInfo: THintInfo);
  end;

var
  AFirst: TAFirst;

implementation

uses DataModul;

{$R *.dfm}
procedure TAFirst.DoShowHint(var HintStr: String ; var CanShow: Boolean;
                                          var HintInfo: THintInfo);
// n'oublier pas de d閏larer la procedure dans { D閏larations publiques }
  begin
  // mise a jours de hint
  if HintInfo.HintControl = DBGrid then
     HintInfo.ReshowTimeout := 2000; // P閞iodicit