Форум: "Основная";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];
ВнизТормоза при Runtime создание компонентов Найти похожие ветки
← →
konstantinov (2003-10-28 18:36) [0]Вот код, тормоза несколько секунд. На работе под D5 все нормально. В чем фишка?
const
Size = 17;
var
Form1: TForm1;
ColCount : integer = 10;
RowCount : integer = 10;
...
implementation
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
X,Y : integer;
Panel : TPanel;
begin
For X := 0 to ColCount - 1 do
begin
For Y := 0 to RowCount - 1 do
begin
Panel := TPanel.Create(Self);
with Panel do begin
Parent := Panel1;
Left := X * Size;
Top := Y * Size;
Width := Size;
Height := Size;
BevelWidth := 3;
Caption := "";
end;
end;
end;
end;
← →
Skier (2003-10-28 18:38) [1]Не спасёт ?
with Panel do begin
Left := X * Size;
Top := Y * Size;
Width := Size;
Height := Size;
BevelWidth := 3;
Caption := "";
Parent := Panel1;
end; //with
← →
Юрий Зотов (2003-10-28 18:50) [2]Так должно быть побыстрее.
with TPanel.Create(Self) do
begin
SetBounds(X * Size, Y * Size, Size, Size);
BevelWidth := 3;
Caption := "";
Parent := Panel1
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.033 c