有没有人设法让 aDBLookupComboBox
与 a 一起工作DBCtrlGrid
?
预先填写的DBComboBox
工作正常,但对于查找表来说效果不佳。
好吧,我不明白为什么在 Delphi 中禁止操作,但我已经设法在 ComponentStyle 中创建了自己的带有csReplicatable
标志的查找组合框组件,并且它可以工作!
它没有经过彻底测试,但在我的应用程序中它可以正常工作。
这里是源码,看看。
由于非常不愿意更改/维护更改的 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;
我在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;
安德烈·福明。
如果你有多个,TDBLookupComboBox
你TDBGrid
可以使用这个片段:
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;
我只是将 a 添加TDBLookupCombo
到 aTDBCtrlGrid
中。当我尝试设置时ListSource
,我得到了错误:
DBCtrlGrid 中不允许操作。
因此,这似乎在 Delphi 中被明确禁止,因此您将无法做到这一点。