大家能否幫個忙,看看我下面說的那個功能能否實現
我想在DBGrid 里面的每一行的最後加一個(BitBtn)按鈕,不知能否實現??????
我想在DBGrid 里面的每一行的最後加一個(BitBtn)按鈕,不知能否實現??????
解决方案 »
- 这样转换成 delphi 函数有问题吗?
- RadioGroup可以多选吗?它的ITEMS值可以分成两列吗?多选用除了用CheckBox还可以怎么做?
- 一个着急的问题,精通fastreport的同学救命啊!
- 怎样让多个SpeedButton在Toolbar里垂直排列,而不是水平排列?(急!)
- 请斑竹保留,招聘Delphi书的作者
- 如何在运行一个程序,调动另一个程序?
- 底层小问题
- 为什么定义热键时,在程序中定义就有用,而在控件中定义就不起作用?
- 有没有在程序中动态修改自定义纸张大小的方法?
- 谁有方法做此?
- 打包:wise或者Installshield的问题,我用BCB做了一个程序。用wise打包可是安装时提示出错
- 密码修改问题
先在query 新增一個 fkCalculated 名稱和LOOk名稱設成相同procedure TFM_Purchase.DBGrid3DrawDataCell(Sender: TObject;
const Rect: TRect; Field: TField; State: TGridDrawState);
begin
if (GdFocused in State) then
begin
if Field.FieldName= LOOK.Name then
begin
LOOK.Left:= Rect.Left + DBGrid3.Left;
LOOK.Top := Rect.Top + DBGrid3.Top;
LOOK.Width := Rect.Right - Rect.Left;
LOOK.Height := Rect.Bottom - Rect.Top;
LOOK.Visible:=true;
end; end;
end;procedure TFM_Purchase.DBGrid3KeyPress(Sender: TObject; var Key: Char);
begin
if (key <> chr(9)) then
begin
if DBGrid3.SelectedField.FieldName= LOOK.Name then
begin
LOOK.SetFocus;
sendMessage(LOOK.Handle,WM_Char,word(key),0);
end;
end;
end;procedure TFM_Purchase.DBGrid3ColExit(Sender: TObject);
begin
if DBGrid3.SelectedField.FieldName <> LOOK.Name then
LOOK.Visible:=false;
end;