1

有没有人设法让 aDBLookupComboBox与 a 一起工作DBCtrlGrid

预先填写的DBComboBox工作正常,但对于查找表来说效果不佳。

4

4 回答 4

1

好吧,我不明白为什么在 Delphi 中禁止操作,但我已经设法在 ComponentStyle 中创建了自己的带有csReplicatable标志的查找组合框组件,并且它可以工作!

它没有经过彻底测试,但在我的应用程序中它可以正常工作。

这里是源码,看看。

于 2009-12-13T19:27:20.747 回答
0

由于非常不愿意更改/维护更改的 VCL/RTL 代码,我找到了另一种方法。在您的单元的界面中声明以下内容:

interface

uses
  ...
  ;

type Tdbp = class(TDBCtrlGrid);
type tdbl = class(TDBLookupControl);

type
  TForm4 = class(TForm)
    ...
    DBCtrlGrid1: TDBCtrlGrid;
    ...
  private
    ...
    function FindLCB(DataFieldName: String): TDBLookupComboBox;
    procedure FixDBLookupDataLinks;
  public
    ...
  end;



...and in your implementation:


----------


implementation

procedure TForm4.FormCreate(Sender: TObject);
begin
  ...
  DBCtrlGrid1.DataSource := DataSource1;
  FixDBLookupDataLinks;
end;

procedure TForm4.FixDBLookupDataLinks;
var
  lcb: TDBLookupComboBox;
  I,n: Integer;
  MyDataLink: TDataLink;
  ctl: TControl;
  dbp: Tdbctrlpanel;
begin
  dbp := Tdbp(DBControlGrid1).Panel;
  for n := 0 to Pred(dbp.ControlCount) do
  begin
    ctl := dbp.Controls[n];
    if ctl.ClassType = TDBLookupComboBox then
    begin
      lcb := TDBLookupComboBox(ctl);
      lcb.ControlStyle := lcb.ControlStyle + [csReplicatable];
      TDBL(lcb).ListLink.DataSourceFixed := False;
      for I := 0 to Pred(lcb.ControlCount) do
      begin
        if lcb.Controls[I] is TPopupDataList then
        begin
          TDBL(lcb).ListLink.DataSourceFixed := False;
          TDBL(lcb).DataLink.DataSourceFixed := False;
          MyDataLink := TDataLink(lcb.Controls[I].Perform(CM_GETDATALINK, 0, 0));
          if MyDataLink <> nil then
            MyDataLink.DataSourceFixed := False;
            MyDataLink.DataSource := nil;
        end;
      end;
    end;
  end;
end;

function TForm4.FindLCB(DataFieldName: String): TDBLookupComboBox;
var
  i: Integer;
begin
  Result := Nil;
  for i := 0 to Pred(ControlCount) do
    if Controls[i].ClassType = TDBLookupComboBox then
      if TDBLookupComboBox(Controls[i]).DataField = DataFieldName then
      begin
        Result := TDBLookupComboBox(Controls[i]);
        Break;
      end;
end;
于 2010-06-02T18:33:55.203 回答
0

我在Embarcadero Developer Network上找到了这个解决方法:

我想出了如何解决这个问题。这是一个示例。它假定组合框在设计时而不是运行时放置在网格上。因此,在事件处理程序正在执行的那一刻,控件已经成功地从 DFM 流式传输并且已经建立了链接。尽管应该在实际项目中进行测试。

procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
  MyDataLink: TDataLink;
begin
  for I := 0 to DBLookupComboBox1.ControlCount - 1 do
    if DBLookupComboBox1.Controls[I] is TPopupDataList then
    begin
      MyDataLink := TDataLink(DBLookupComboBox1.Controls[I].Perform(CM_GETDATALINK, 0, 0));
      if MyDataLink <> nil then begin
        MyDataLink.DataSourceFixed := False;
        MyDataLink.DataSource := nil;
      end;
    end;
end;

安德烈·福明。


如果你有多个,TDBLookupComboBoxTDBGrid可以使用这个片段:

procedure TForm1.FormCreate(Sender: TObject);
var
  I, C: Integer; 
  curCombo: TDBLookupComboBox; curDL: TDataLink;
begin
  for C := 0 to ComponentCount - 1 do begin
    if Components[C] is TDBLookupComboBox then begin
      curCombo:= (Components[C] as TDBLookupComboBox);

      for I := 0 to curCombo.ControlCount - 1 do
        if curCombo.Controls[I] is TPopupDataList then
        begin
          curDL := TDataLink(curCombo.Controls[I].Perform(CM_GETDATALINK, 0, 0));
          if curDL <> nil then begin
            curDL.DataSourceFixed := False;
            curDL.DataSource := nil;
          end;
        end;
    end;
  end;
end;
于 2012-04-26T09:20:38.267 回答
-2

我只是将 a 添加TDBLookupCombo到 aTDBCtrlGrid中。当我尝试设置时ListSource,我得到了错误:

DBCtrlGrid 中不允许操作。

因此,这似乎在 Delphi 中被明确禁止,因此您将无法做到这一点。

于 2009-10-23T09:01:26.887 回答