Перемещение текста по форме...

← →
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]
> никогда не понимал в чем смысл подобных ответов

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

for i:=0 to 100 do begin; Text.Left:=10+Round((width-Text.width)/100); Sleep(Round(TimeForMoving/100)); end;
усё. от себя добавлю, замени константу 100 на переменную и по эксперементируй с ее значениями.

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

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

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