1.动态创建按钮,并安放在ScrollBox中
获得按钮信息,然后创建, 目前案例是从数据库中取值, 然后动态创建. 源代码仅给出实现方式参考
procedure TFrm1.LoadElementPage;
var
mSetBase1 : TButton;
i,j : Integer;
tmpQuery : TDBQuery;
begin
fControl1Manager := TObjectList.Create;
tmpQuery := TDBQuery.Create(nil);
try
tmpQuery.Connection := GDBConnection;
tmpQuery.Close;
tmpQuery.SQL.Clear;
tmpQuery.SQL.Text :=
'select a.L_KEYNO, a.C_KEYVALUE, a.C_CAPTION, a.C_MODIFY, a.C_MEMO, a.C_ENGLISH, a.C_ISDISPLAY ' +
' from TDIC a ' +
' where a.L_KEYNO in (1,2) '+
' order by a.L_KEYNO ';
i:=0;
tmpQuery.Open;
tmpQuery.First;
while not tmpQuery.Eof do
begin
if not ((tmpQuery.Fieldbyname('C_ISDISPLAY').AsString<>'1') and
(tmpQuery.Fieldbyname('L_KEYNO').AsString='1')) then
begin