初始化的控件在公共单元怎么多次引用?
比如某个下拉框,里面内容要初始化,当客户点了这个COMBOBOX时,根据其他条件把内容从数据库中取出压入该COMBOBOX。
现在因为多个窗体界面都要用到,所以想放到一个公共单元,各个窗体可以调用。这样的话在公共单元怎么写?各个窗体又如何调用呢?
procedure ShowComboBox(MODE:integer);
begin
combobox1.Items.Clear;
with ADOQuery1 do
begin
close;
SQL.Clear;
SQL.Add('select mc from unit where mod=:mode');
parameters.ParamByName('mode').Value:=mode;
Open;
while not Eof do
begin
combobox1.Items.Add(FieldByName('mc').AsString);
Next;
end;
end;
end;