Скачать: CL | DM;

Перемещение текста по форме...   Найти похожие ветки 

← →
SkullNet   (2004-03-04 18:29) [0]

Вопрос таков: как сделать чтобы при нажатии на Button1 у меня компонет StaticText двигался от одного края формы к другой?

---

← →
BOA_KAA ©   (2004-03-04 18:31) [1]

Включить таймер и сказать волшебное слово Left

---

← →
Gero ©   (2004-03-04 18:33) [2]

> чтобы при нажатии на Button1

Обрабатывать Button1.OnClick :)

---

← →
SkullNet   (2004-03-04 18:34) [3]

А почему, если это делать циклом
к примеру:
for i:=0 to 100 do
begin;
Text.Left:=10+i;
end;
он стирает текс по левой границе...?

---

← →
SkullNet   (2004-03-04 18:40) [4]

Обрабатывать Button1.OnClick :) - неужели, как же я сам не догадался... (никогда не понимал в чем смысл подобных ответов, показать что ты писать умеешь... ну вот, все увидели...)

---

← →
WebErr ©   (2004-03-04 18:42) [5]

> SkullNet   (04.03.04 18:34) [3]
> А почему, если это делать циклом
> к примеру:
> for i:=0 to 100 do
> begin;
> Text.Left:=10+i;
> end;
> он стирает текс по левой границе...?

Потому, что на прорисовку нужно время, а ты его торопишь, не даёшь нарисовать, а он уж стирает, отсюда вся недопрорисовка!

---

← →
SkullNet   (2004-03-04 18:46) [6]

хорошо, тогда если выделить слишком много времени на прорисовку, текст будет перемещаться рывками, как определить оптимальное время задержки между пермещениями?

---

← →
Gero ©   (2004-03-04 19:05) [7]

> SkullNet   (04.03.04 18:40) [4]
> никогда не понимал в чем смысл подобных ответов

А зачем тогда задаете подобные вопросы?
Я лишь ответил на поставленный вопрос, вернеее, на его часть.

---

← →
TButton ©   (2004-03-04 19:29) [8]


for i:=0 to 100 do
begin;
Text.Left:=10+Round((width-Text.width)/100);
Sleep(Round(TimeForMoving/100));
end;

усё. от себя добавлю, замени константу 100 на переменную и по эксперементируй с ее значениями.

---

← →
TButton ©   (2004-03-04 19:31) [9]

а! и 10+ уже не надо... но тогда текст переместится от края до края. надо еще запомнить начальный left текста и отнимать его от width тоже.

---

← →
KSergey ©   (2004-03-04 21:39) [10]

Может оно итак работает, конечно, но я бы еще любимым Application.ProcessMessages разбавил...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.021 c