CheckBox in DBGrid
This article shows you how to put a checkbox in a dbgrid. If the column is of boolean type, then a checkbox will appear. Great Look and very easy;
AI
Riepilogo AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Codice sorgente
<html xmlns:v="urn:schemas-microsoft-com:vml"
xmlns:o="urn:schemas-microsoft-com:office:office"
xmlns:w="urn:schemas-microsoft-com:office:word"
xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv=Content-Type content="text/html; charset=windows-1252">
<meta name=ProgId content=Word.Document>
<meta name=Generator content="Microsoft Word 9">
<meta name=Originator content="Microsoft Word 9">
<link rel=File-List href="./CheckBox_files/filelist.xml">
<title>// Must declare a a global variable for this form</title>
<!--[if gte mso 9]><xml>
<o:DocumentProperties>
<o:Author>M.I.S.</o:Author>
<o:LastAuthor>M.I.S.</o:LastAuthor>
<o:Revision>2</o:Revision>
<o:TotalTime>1</o:TotalTime>
<o:Created>2002-08-28T17:30:00Z</o:Created>
<o:LastSaved>2002-08-28T17:30:00Z</o:LastSaved>
<o:Pages>1</o:Pages>
<o:Words>278</o:Words>
<o:Characters>1587</o:Characters>
<o:Company>Lakeshore General Hospital</o:Company>
<o:Lines>13</o:Lines>
<o:Paragraphs>3</o:Paragraphs>
<o:CharactersWithSpaces>1948</o:CharactersWithSpaces>
<o:Version>9.4402</o:Version>
</o:DocumentProperties>
</xml><![endif]--><!--[if gte mso 9]><xml>
<w:WordDocument>
<w:DoNotHyphenateCaps/>
<w:PunctuationKerning/>
<w:DrawingGridHorizontalSpacing>6 pt</w:DrawingGridHorizontalSpacing>
<w:DrawingGridVerticalSpacing>6 pt</w:DrawingGridVerticalSpacing>
<w:DisplayHorizontalDrawingGridEvery>0</w:DisplayHorizontalDrawingGridEvery>
<w:DisplayVerticalDrawingGridEvery>3</w:DisplayVerticalDrawingGridEvery>
<w:UseMarginsForDrawingGridOrigin/>
<w:DoNotShadeFormData/>
<w:Compatibility>
<w:FootnoteLayoutLikeWW8/>
<w:ShapeLayoutLikeWW8/>
<w:AlignTablesRowByRow/>
<w:ForgetLastTabAlignment/>
<w:LayoutRawTableWidth/>
<w:LayoutTableRowsApart/>
</w:Compatibility>
</w:WordDocument>
</xml><![endif]-->
<style>
<!--
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{mso-style-parent:"";
margin:0in;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:12.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:"Times New Roman";}
/* Page Definitions */
@page
{mso-page-border-surround-header:no;
mso-page-border-surround-footer:no;}
@page Section1
{size:8.5in 11.0in;
margin:1.0in 1.25in 1.0in 1.25in;
mso-header-margin:.5in;
mso-footer-margin:.5in;
mso-paper-source:0;}
div.Section1
{page:Section1;}
-->
</style>
<!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="2050"/>
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1"/>
</o:shapelayout></xml><![endif]-->
</head>
<body lang=EN-US style='tab-interval:.5in;text-justify-trim:punctuation'>
<div class=Section1>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial;
color:#339966'>// Must declare a a global variable for this form<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'>private<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'><![if !supportEmptyParas]> <![endif]><o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'><span
style="mso-spacerun: yes"> </span>FOriginalOptions : TDBGridOptions;<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'><![if !supportEmptyParas]> <![endif]><o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial;
color:#339966'>//************************************************<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial;
color:#339966'>// FORM CELL CLICK</span><span style='font-size:10.0pt;
font-family:Arial'><o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'>procedure
TFrmFile.DBGridCellClick(Column: TColumn);<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'>begin<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'><span
style="mso-spacerun: yes"> </span>if Self.DBGrid.SelectedField.DataType =
ftBoolean then<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'><span
style="mso-spacerun: yes"> </span>SaveBoolean();<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'>end;<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'><![if !supportEmptyParas]> <![endif]><o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial;
color:#339966'>//************************************************<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial;
color:#339966'>// FORM SAVE BOOLEAN</span><span style='font-size:10.0pt;
font-family:Arial'><o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'>procedure
TFrmFile.SaveBoolean;<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'>begin<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'><span
style="mso-spacerun: yes"> </span>Self.DBGrid.SelectedField.Dataset.Edit;<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'><span
style="mso-spacerun: yes"> </span>Self.DBGrid.SelectedField.AsBoolean := not
Self.DBGrid.SelectedField.AsBoolean;<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'><span
style="mso-spacerun: yes"> </span>Self.DBGrid.SelectedField.Dataset.Post;<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'>end;<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'><![if !supportEmptyParas]> <![endif]><o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial;
color:#339966'>//************************************************<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial;
color:#339966'>// (FORM) DRAW CHECKBOX IF FIELD TYPE IS BOOLEAN</span><span
style='font-size:10.0pt;font-family:Arial'><o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'>procedure
TFrmFile.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'><span
style="mso-spacerun: yes"> </span>DataCol: Integer; Column: TColumn; State:
TGridDrawState);<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'>Const<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'><span
style="mso-spacerun: yes"> </span>CtrlState : array[Boolean] of Integer =
(DFCS_BUTTONCHECK,<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'><span
style="mso-spacerun: yes"> </span>DFCS_BUTTONCHECK or DFCS_CHECKED);<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'>var<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'><span
style="mso-spacerun: yes"> </span>CheckBoxRectangle : TRect;<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'>begin<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'><span
style="mso-spacerun: yes"> </span>if Column.Field.DataType = ftBoolean then<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'><span
style="mso-spacerun: yes"> </span>begin<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'><span
style="mso-spacerun: yes"> </span>Self.DBGrid.Canvas.FillRect(Rect);<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'><span
style="mso-spacerun: yes"> </span>CheckBoxRectangle.Left := Rect.Left + 2;<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'><span
style="mso-spacerun: yes"> </span>CheckBoxRectangle.Right := Rect.Right - 2;<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'><span
style="mso-spacerun: yes"> </span>CheckBoxRectangle.Top := Rect.Top + 2;<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'><span
style="mso-spacerun: yes"> </span>CheckBoxRectangle.Bottom := Rect.Bottom - 2;<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'><span
style="mso-spacerun: yes"> </span>DrawFrameControl(Self.DBGrid.Canvas.Handle,<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'><span
style="mso-spacerun: yes"> </span>CheckBoxRectangle,<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'><span
style="mso-spacerun: yes"> </span>DFC_BUTTON,<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'><span
style="mso-spacerun: yes"> </span>CtrlState[Column.Field.AsBoolean]);<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'><span
style="mso-spacerun: yes"> </span>end;<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'>end;<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'><![if !supportEmptyParas]> <![endif]><o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial;
color:#339966'>//************************************************<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial;
color:#339966'>// (FORM) DBGRID COL ENTER</span><span style='font-size:10.0pt;
font-family:Arial'><o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'>procedure
TFrmFile.DBGridColEnter(Sender: TObject);<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'>begin<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'><span
style="mso-spacerun: yes"> </span>if Self.DBGrid.SelectedField.DataType =
ftBoolean then<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'><span
style="mso-spacerun: yes"> </span>begin<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'><span
style="mso-spacerun: yes"> </span>Self.FOriginalOptions :=
Self.DBGrid.Options;<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'><span
style="mso-spacerun: yes"> </span>Self.DBGrid.Options := Self.DBGrid.Options -
[dgEditing];<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'><span
style="mso-spacerun: yes"> </span>end;<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'>end;<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'><![if !supportEmptyParas]> <![endif]><o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial;
color:#339966'>//************************************************<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial;
color:#339966'>// (FORM) DBGRID COL EXIT</span><span style='font-size:10.0pt;
font-family:Arial'><o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'>procedure
TFrmFile.DBGridColExit(Sender: TObject);<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'>begin<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'><span
style="mso-spacerun: yes"> </span>if Self.DBGrid.SelectedField.DataType =
ftBoolean then<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'><span
style="mso-spacerun: yes"> </span>Self.DBGrid.Options :=
Self.FOriginalOptions;<o:p></o:p></span></p>
<p class=MsoNormal style='mso-pagination:none;mso-layout-grid-align:none;
text-autospace:none'><span style='font-size:10.0pt;font-family:Arial'>end;<o:p></o:p></span></p>
</div>
</body>
</html>
Commenti originali (3)
Recuperato da Wayback Machine