Delphi DBGrid中嵌套按钮
来源:互联网 发布:淘宝网电影票团购 编辑:程序博客网 时间:2024/06/05 03:29
procedure TManageProjForm.dbgrdhProjectDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
var
btnName,IconName:string;
i :integer;
btn:TSuiButton;
Icon:TBitmap;
begin
if TADOQuery(TDBGridEh(Sender).DataSource.DataSet).Active = False then
begin
Exit;
end;
if Column.Title.Caption ='操作' then
begin
btnName := 'btn_'+intToStr(adoQryFindProject.RecNo);
if self.FindComponent(btnName) = nil then
begin
btn := TSuiButton.Create(self);
btn.FileTheme := FormDataModule.suiFileTheme1;
btn.UIStyle := FromThemeFile;
btn.Caption := '删除';
btn.Name := btnName;
btn.Parent:= self;
btn.OnClick := btnMyClick ;
end
else
btn := TSuiButton(self.FindComponent(btnName));
btn.Left := TDBGridEh(Sender).Left + Rect.Left + 5;
btn.top:=TDBGridEh(Sender).top +Rect.top +3;
btn.Width:= Rect.Right-Rect.Left-5;
btn.Height:= Rect.Bottom-Rect.top-3;
btn.SetMouseLeave;
//把多余的按钮清除
i := adoQryFindProject.RecordCount+1;
btnName := 'btn_'+intToStr(i);
while(self.FindComponent(btnName) <> nil) do
begin
TSuiButton(self.FindComponent(btnName)).Free;
i := i+1;
btnName := 'btn_'+intToStr(i);
end;
end;
end;
- Delphi DBGrid中嵌套按钮
- 【delphi】DBGrid中插入图片
- Delphi中DBGrid 应用全书
- delphi 中得DBGRID实现鼠标滚动。
- Delphi 7 中DBGrid的排序。
- Delphi 7 中DBGrid的排序
- delphi中dbgrid中数据随鼠标滚轮滚动
- DELPHI中DBGrid中行的定位及着色实现
- delphi 中dbgrid升降序的简约代码
- DELPHI中DBGrid中行的定位及着色实现
- 在Delphi的DBGrid中插入其他可视组件
- Delphi中实现DBGrid列宽度自动调整
- DELPHI中DBGrid中行的定位及着色实现(转载)
- 在Delphi的DBGrid中插入其他可视组件
- Delphi中如何动态更改DBGrid的颜色
- Delphi中将DBGRID中的内容输出到WORD中
- 在Delphi的DBGrid中插入其他可视组件
- Delphi中DBgrid控件数据库点击某列按序排列
- Linux网络编程经典书籍
- ubuntu下用命令将源设置为中科大源
- 开源代码
- Delphi 判断ClientDataSet控件的UpdateStatus属性类型为 (usUnmodified, usModified, usInserted, usDeleted))
- 技术方案书模板-1
- Delphi DBGrid中嵌套按钮
- oracle 分割字符串
- Delphi StringGrid常用属性和常用操作
- 获取 GPG 密钥失败:[Errno 14] 2011-05-26 14:43
- StringReplace字符串替换函数
- Delphi 把客户端的文件或者目录上传到服务器端
- Delphi 利用API实现网格内组件的嵌入
- ubuntu 10.04 dual monitor with xrandr
- java api doc