Бегущая строка(canvas)

[blackstersl]

Всем привет. Сделал бугущую строку а теперь пытаюсь сделать что то типа как в aimp2(можно менять положение бегущей строки). Как можно при нажатой клавиши мыши перемещать канву(paintbox). Спасибо.

[spamer]

Попробуй вот так:

procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const
  SC_DRAGMOVE = $F012;
begin
  ReleaseCapture;
  PaintBox1.Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
end;

P.S. С компонентом TPanel работает.

А вообще лучше вот почитай http://mihandelphi.narod.ru/docs/view/move_image.htm

[blackstersl]

чёт не работает -(

[spamer]

blackstersl вот тут читай, тут 3 метода описано: http://mihandelphi.narod.ru/docs/view/move_image.htm

[DeKot]

Была тема также про бегущую строку, но в Паскале -
http://www.programmersforum.ru/showt...F2%F0%EE%EA%E0
Получилось в Дельфи - бегущая строка поверх любых окон.Я меняю положение по У рандомизно, но в принципе, можно задавать координаты У и мышью , и клавишой.
Вообще программка получилась прикольная, особенно, если засунуть ее в автозапуск.

[blackstersl]

совсем прикольно-) У меня невозможно было её выключить! всё заглючило!

[Stilet]

Что-то я не понял тебе что нужно перемещать канву или бегущую строку?

По поводу строки - ты ведь ее в каких-то координатах выводишь?
Ну и умножай X на некую переменку, которой присваивай 1 если хочешь чтоб строка бежала вправо или -1 если влево.

[DeKot]

Сообщение от blackstersl

совсем прикольно-) У меня невозможно было её выключить! всё заглючило!

Выключается через ALT+F4, так как программа прячет "истинную" панель задач и свою форму.На экране панель задач в момент пуска программы.Но если мышку навести на панели задач в место трея программы, то можно разглядеть и левой кнопкой вызвать контекстное меню,тоже припрятанное, и закрыть приложение.
А так с виду очень похоже на вирус.Правда, я ставил задачу вывести бегущую строку на рабочий стол и в качестве фона, периодически стирающего текст, взял полный экран.Нужно просто подогнать размер
стирающего фона под размер текста.Тогда и эффект бегущей строки останется и "ужаса" не будет.