скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

CheckBox в StringGrid





unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, StdCtrls;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
 cell_x = 2;
 cell_y = 2;

var
  Form1: TForm1;
  CheckBox1: TCheckBox;

implementation

{$R *.DFM}

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
 r:trect;
begin
 if(cell_x>=StringGrid1.LeftCol) and
   (cell_x<=StringGrid1.LeftCol+StringGrid1.VisibleColCount) and
   (cell_y>=StringGrid1.TopRow) and
   (cell_x<=StringGrid1.TopRow+StringGrid1.VisibleRowCount) then
     CheckBox1.Visible:=true
 else
     CheckBox1.Visible:=false;

 if (acol=cell_x) and (arow=cell_y) then
 begin
   r:=stringgrid1.CellRect(cell_x,cell_y);
   r.Left:=r.left+stringgrid1.left+2;
   r.right:=r.right+stringgrid1.left+2;
   r.top:=r.top+stringgrid1.top+2;
   r.bottom:=r.bottom+stringgrid1.top+2;
   CheckBox1.BoundsRect:=r;
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 CheckBox1:=TCheckBox.Create(form1);
 CheckBox1.parent:=form1;
 CheckBox1.Caption:='proba';
end;

end.






Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook