- 博客(4)
- 收藏
- 关注
原创 如何在TStringGrid控件中按ctrl键选择多行
<br />在CTOS中的预约审核-》转船预约审核中做了相关动作: 主要是在MouseDown事件中写如下代码<br />procedure TFormBookTrans_CHECK.sg_detail_bookingMouseDown(Sender: TObject;<br /> Button: TMouseButton; Shift: TShiftState; X, Y: Integer);<br />begin<br /> if ssCtrl in Shift then<br /> if
2010-06-29 10:03:00 1151
原创 SG不连续多选 草稿
<br />procedure TForm1.StringGrid1DrawCell(Sender: TObject. ACol, ARow: Integer. Rect: TRect. State: TGridDrawState).<br />begin<br /> with stringgrid1 do<br /> begin<br /> if cells[0,arow] = checked then<br /> begin<br /> canvas.brush.color := clhigh
2010-06-04 23:05:00 557
转载 Delphi StringGrid使用
<br />StringGrid行列的增加和删除<br />type<br />TExCell = class(TStringGrid)<br />public<br />procedure DeleteRow(ARow: Longint);<br />procedure DeleteColumn(ACol: Longint);<br />procedure InsertRow(ARow: LongInt);<br />procedure InsertColumn(ACol: LongInt);<br />
2010-06-04 23:04:00 959
原创 关于DELPHI 弹出提示框信息的叙述
<br />函数功能:该函数创建、显示、和操作一个消息框。消息框含有应用程序定义的消息和标题,加上预定义图标与Push(下按)按钮的任何组合。 <br /><br /> 函数原型:int MessageBox(HWND hWnd,LPCTSTR IpCaption,UINT UType); <br /><br /> 参数: <br /><br /> hWnd:标识将被创建的消息框的拥有窗口。如果此参数为NULL,则消息框没有拥有窗口。 <br /><
2010-06-04 15:49:00 4617
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人