03.05.2010, 21:25
|
|
Постоянный
Регистрация: 02.07.2008
Сообщений: 472
С нами:
9399011
Репутация:
444
|
|
всем спасибо за участие.
проблема решена так:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:= True;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image1.Visible:= True;
Timer2.Enabled:= True;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
Image1.Visible:= false;
Timer1.Enabled:= false;
Timer2.Enabled:= false;
end;
предварительно выключив все таймеры. время отображения объекта соответственно выставляется interval в свойствах таймера. самое главное что динамический объект не зависает, а отображается как положено)) |
|
|