procedure SetPanelPostion(APanel: TPanel; AColumn, AIndex: integer);
implementation
var
iWidth, iHeight, iSpace: integer;
procedure TForm1.FormCreate(Sender: TObject);
begin
iWidth := 160;
iHeight := 150;
iSpace := 20;
end;
procedure TForm1.SetPanelPostion(APanel: TPanel; AColumn, AIndex: integer);
var
iRow, iColumn: integer;
begin
iRow := AIndex div AColumn;
iColumn := AIndex mod AColumn;
APanel.Left := iSpace + (iWidth+iSpace)*iColumn;
APanel.Top := iSpace + (iHeight+iSpace)*iRow;
end;
iColumn := AParent.Width div (iWidth+iSpace);
SetPanelPostion(arrPanel[i], iColumn, i);
function Tdtm_ADOConnection.GetNewCounter(TAble_Name, FieldName: String): String;
begin
Result := '';
adqGetCounter.Close;
adqGetCounter.Parameters.ParamByName('@table_name').Value := TAble_Name;
adqGetCounter.Parameters.ParamByName('@field_name').Value := FieldName;
adqGetCounter.Open;
Result := adqGetCounter.FieldByName('value').AsString;
end;
没有合适的资源?快使用搜索试试~ 我知道了~
温馨提示
procedure TForm1.SetPanelPostion(APanel: TPanel; AColumn, AIndex: integer); var iRow, iColumn: integer; begin iRow := AIndex div AColumn; iColumn := AIndex mod AColumn; APanel.Left := iSpace + (iWidth+iSpace)*iColumn; APanel.Top := iSpace + (iHeight+iSpace)*iRow; end;
资源推荐
资源详情
资源评论
收起资源包目录
delphi.rar (2个子文件)
delphi
sql语句.sql 4KB
delphi.txt 1005B
共 2 条
- 1
资源评论
- snxogahyangjiwu2016-10-31参考应用成功,谢谢分享
- qq_249574692015-02-24例子不错,但不是我找的那种:(
- machcat2014-08-03是文档,有参考意义
- hero_19892016-01-18谢谢。正是我要找的。
龙门吹雪
- 粉丝: 21
- 资源: 21
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功