ｿｽ@ ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

KazKaz 2006/08/03(ｿｽｿｽ) 11:16:25

DBGridｿｽﾅカｿｽｿｽｿｽｿｽｿｽgCelｿｽﾊ置ｿｽﾉ趣ｿｽｿｽｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽzｿｽuｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽiｿｽｿｽｿｽﾍ補助ｿｽjｿｽﾌでゑｿｽｿｽﾌ搾ｿｽｿｽWｿｽ得ゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽTStringGridｿｽﾉ形ｿｽﾏ奇ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎ、ｿｽcｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽ況なゑｿｽCellRectｿｽﾅとゑｿｽﾜゑｿｽｿｽｿｽｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽﾆ出ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽLｿｽｿｽﾜゑｿｽｿｽｿｽｿｽ迢ｳｿｽｿｽｿｽﾄ会ｿｽｿｽｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽｿｽ 2006/08/03(ｿｽｿｽ) 15:00:39

OnDrowColumnCellｿｽCｿｽxｿｽｿｽｿｽgｿｽﾌ茨ｿｽｿｽｿｽｿｽ利用ｿｽｿｽｿｽ黷ｽｿｽｿｽﾇーｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH

KazKaz 2006/08/03(ｿｽｿｽ) 18:37:03

ｿｽｿｽｿｽﾑゑｿｽｿｽｿｽAｿｽﾔ信ｿｽLｿｽうｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽﾆなゑｿｽｿｽoｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽｿｽﾈのでゑｿｽｿｽｿｽｿｽZｿｽﾊ不ｿｽｿｽｿｽﾅよくｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽｿｽｿｽﾌ包ｿｽｿｽ@ｿｽﾅゑｿｽｿｽｿｽZｿｽｿｽｿｽｿｽｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽ黷ｽｿｽ轤ｻｿｽﾌ位置ｿｽﾉ趣ｿｽｿｽOｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽzｿｽuｿｽｿｽｿｽ骼厄ｿｽｿｽｿｽﾂ能ｿｽﾈのでゑｿｽｿｽｿｽｿｽH

ｿｽｿｽｿｽｿｽ 2006/08/03(ｿｽｿｽ) 19:43:18

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾌで、ｿｽﾇゑｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽが、
ｿｽｿｽｿｽﾍフｿｽHｿｽ[ｿｽJｿｽXｿｽﾌゑｿｽｿｽｿｽZｿｽｿｽｿｽﾌ右ｿｽ[ｿｽﾉ撰ｿｽｿｽｿｽｿｽﾏみのボｿｽ^ｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽ
Delphi7.1 EntｿｽﾅテｿｽXｿｽgｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽｿｽ
ｿｽ@ｿｽQｿｽlｿｽﾜでに、ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽ@ｿｽｿｽｿｽOｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾆは、ｿｽﾇゑｿｽﾈコｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽH

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, DBCtrls, DB, DBClient, Grids, DBGrids, StdCtrls;

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    ClientDataSet1: TClientDataSet;
    ClientDataSet1aa: TStringField;
    DataSource1: TDataSource;
    Button1: TButton;
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
  private
    { Private ｿｽ骭ｾ }
  public
    { Public ｿｽ骭ｾ }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if gdFocused in State then begin
    Button1.Top    := DBGrid1.Top  + Rect.Top;
    Button1.Left   := DBGrid1.Left + (Rect.Right - Button1.Width);
    Button1.Height := Rect.Bottom  - Rect.Top;
  end;
end;

end.

KazKaz 2006/08/03(ｿｽｿｽ) 20:07:51

ｿｽｿｽｿｽｿｽﾔゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝまゑｿｽｿｽｿｽBｿｽｿｽﾉ出ｿｽｿｽｿｽﾈゑｿｽoｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈのでゑｿｽｿｽｿｽｿｽAｿｽtｿｽHｿｽ[ｿｽJｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽﾍ後すｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ難ｿｽｿｽがｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽBｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾍ難ｿｽｿｽtｿｽｿｽｿｽｿｽｿｽｿｽﾍ撰ｿｽｿｽ艪ｷｿｽ驫ｴｿｽｿｽｿｽﾌゑｿｽﾌで、ｿｽPｿｽｿｽｿｽﾉ別ウｿｽCｿｽｿｽｿｽhｿｽEｿｽﾅ難ｿｽｿｽﾍゑｿｽｿｽｿｽｿｽｿｽｿｽﾊゑｿｽDBGRIDｿｽﾉセｿｽbｿｽgｿｽｿｽｿｽｿｽ謔､ｿｽﾈイｿｽｿｽｿｽ[ｿｽWｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ擾ｿｽｿｽﾅ出ｿｽｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾜゑｿｽDrawColumCellｿｽﾌコｿｽ}ｿｽｿｽｿｽhｿｽﾉ難ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽBｿｽﾎ擾ｿｽCelｿｽﾉゑｿｽｿｽｿｽｿｽｿｽDrawColumCellｿｽｿｽｿｽｿｽｿｽｿｽﾎ鯉ｿｽﾍ会ｿｽｿｽ轤ｩｿｽﾌフｿｽｿｽｿｽOｿｽﾉゑｿｽ關ｧｿｽｿｽoｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽﾍで具ｿｽｿｽkｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽﾎ擾ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

KazKaz 2006/08/03(ｿｽｿｽ) 20:23:43

ｿｽｿｽｿｽｿｽﾔゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾝまゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽｿｽ謔､ｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽB
CellClickｿｽAColEnterｿｽAAfterScrollｿｽｿｽｿｽﾉコｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽ¥ｿｽｿｽｿｽtｿｽｿｽｿｽOｿｽｿｽtｿｽｿｽｿｽﾄ、
DBGRID.Refress ｿｽﾉゑｿｽ闍ｭｿｽｿｽｿｽIｿｽｿｽDrawColumCellｿｽﾉ費ｿｽﾎゑｿｽｿｽAｿｽｿｽｿｽﾌ抵ｿｽｿｽﾅ重ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽ謔､ｿｽﾉフｿｽｿｽｿｽOｿｽ落とゑｿｽｿｽｿｽｿｽ轤､ｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽﾏ参ｿｽlｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽLｿｽうｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

Created by board of various Programming Library.