Форум: "Основная";
Текущий архив: 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.045 c