資源簡(jiǎn)介
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;

代碼片段和文件信息
?屬性????????????大小?????日期????時(shí)間???名稱
-----------?---------??----------?-----??----
?????文件???????1005??2014-03-25?16:20??delphi\delphi.txt
?????文件???????3968??2014-03-25?16:17??delphi\sql語(yǔ)句.sql
?????目錄??????????0??2014-03-25?16:20??delphi
-----------?---------??----------?-----??----
?????????????????4973????????????????????3
-----------?---------??----------?-----??----
?????文件???????1005??2014-03-25?16:20??delphi\delphi.txt
?????文件???????3968??2014-03-25?16:17??delphi\sql語(yǔ)句.sql
?????目錄??????????0??2014-03-25?16:20??delphi
-----------?---------??----------?-----??----
?????????????????4973????????????????????3
評(píng)論
共有 條評(píng)論