Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 25.05.2009, 23:44   #1
Vladya
Форумчанин
 
Аватар для Vladya
 
Регистрация: 04.11.2008
Сообщений: 360
Вопрос Перемешение компонента по форме

Всем доброго времени суток! Подскажите пожалуйста как заставить (в моем случае) лейбел переместится по форме с одной точки в другую, и остановиться там где мне нужно, но надо что бы он перемещался не сразу а потихоньку, что бы можно было видеть как он перемещается а не так что программа еще полностью не загрузилась а лейбел уже переехал.
Подскажите а то я что то ничего не могу найти.
Мой скромненький сайт
Vladya вне форума
Старый 25.05.2009, 23:51   #2
Showy
Форумчанин Подтвердите свой е-майл
 
Аватар для Showy
 
Регистрация: 08.08.2007
Сообщений: 183
По умолчанию

Если проблема именно в перемещении объекта, то вот простой пример
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Interval := 10;
  Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin 
  Label1.Left := Label1.Left + 2;
  if Label1.Left >= 300 then
    Timer1.Enabled := False;
end;
Until The End Of Time
Showy вне форума
Старый 25.05.2009, 23:53   #3
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Ну, это же очень просто... Вот я вам примерчик набросал:
Код:
var b: boolean;

procedure TForm1.FormCreate(Sender: TObject);
begin
b:=False;
Timer1.Interval:=100;
Timer1.Enabled:=True;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
b:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if b and (Label1.Left>100) then
Label1.Left:=Label1.Left-2 else
Timer1.Enabled:=False;
end;
mihali4 вне форума
Старый 26.05.2009, 00:01   #4
Vladya
Форумчанин
 
Аватар для Vladya
 
Регистрация: 04.11.2008
Сообщений: 360
По умолчанию

Спасибо большое!!! Оказывается таки все очень просто, а я пытался цикл впихнуть и из-за этого у меня и получалось что программа еще не загрузилась полностью а лейбел уже на месте
Мой скромненький сайт
Vladya вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
создание компонента Bayazet Общие вопросы Delphi 4 17.12.2008 16:48
Как можно изменить цвет полосы меню компонента TMainmenu на форме? SkAndrew Общие вопросы Delphi 6 11.08.2008 17:35
Установка компонента Санёк БД в Delphi 0 03.06.2007 17:54
Регистрация компонента Zonder Компоненты Delphi 0 06.12.2006 18:17