Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.11.13;
Скачать: CL | DM;

Вниз

Тормоза при 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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.026 c
1-41579
McSimm2
2003-11-04 11:08
2003.11.13
Как нарисовать иконку в MenuItem


4-42283
Alek Aaz
2003-09-09 17:06
2003.11.13
Универсальный запуск программы?


3-40987
AlexS
2003-10-16 16:36
2003.11.13
БД & OLE


1-41236
KoSt1
2003-11-01 11:36
2003.11.13
TGauge


14-42013
gn
2003-10-17 07:11
2003.11.13
вот же буржуи