пара вопросов по кнопкам

[grey]

1
В моей программе при щелчке по изображению происходит перемещение линии на один пиксел вверх (и так 400 раз).

procedure TForm1.Image12Click(Sender: TObject);
begin
Label15.Caption :=IntToStr(cursor_d);

if cursor > 48 then
with Canvas do
    begin

    cursor :=cursor-cursor_d ;
    Form1.Refresh;
    Canvas.Pen.Color :=clBlack ;
    Canvas.MoveTo(5,cursor); Canvas.LineTo(400,cursor);

    point :=point+1 ;

     if point=1 then begin point_value :=p01; end;
     if point=2 then begin point_value :=p02; end;
     .........
     if point=400 then begin point_value :=p400; end;

     Label13.Caption :=IntToStr(point)  ;
     Label14.Caption :=IntToStr(point_value)  ;
    end;
end;

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

2
Хотел использовать вместо изображения кнопку SpeedButton, но в сети ничего конкретного по её применению не нашёл (всё поверхностно, типа "а вот ещё есть такая кнопка..."). Есть у кого ссылка на пример, а лучше описание работы со SpeedButton-ом? Или код с её использованием?

[mihali4]

1. Производите обработку событий OnMouseDown/OnMouseUp.
По MouseDown запускайте таймер (если вам нужен интервал между сдвигами линии, в этом случае по MouseUp таймер останавливаете) или просто выполняйте в цикле процедуру сдвига.
2. Не понял про SpeedButton. Вы ее хотите использовать в качестве объекта для нажимания мышкой вместо картинки в первом примере? Тогда в чем трудность?
Далее.
Не понял смысла ваших 400 строк:

if point=1 then begin point_value :=p01; end;
     if point=2 then begin point_value :=p02; end;
     .........
     if point=400 then begin point_value :=p400; end;

Но в любом случае:

if point=1 then point_value :=p01 else
     if point=2 then point_value :=p02 else
     .........
     if point=400 then point_value :=p400;

Иначе вы каждый раз заставляете программу анализировать все заведомо невыполняемые условия (выполняется-то только одно из них).
Я уже не говорю о том, что здесь, скорее всего, должен быть (а может и вовсе не нужен) простенький цикл.

[Rapid]

(Пока я тут думал, меня уже опередили )

Думаю здесь нужно делать через таймер.
В таймер надо засунуть процедуру перемещения линии, не забыть настроить интервал (в милесекундах).
События кнопок, которые нужно использовать onMouseDown (нажатие мыша) и онМоусАп (отпускание мыша) в них записать процедуры активации и деактивации таймера

Код
procedure TForm1.SpeedButton1MouseDown(Sender : TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
timer1.Enabled:=true;
end;

procedure TForm1.SpeedButton1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
timer1.Enabled:=false;
end;

[grey]

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

Не понял про SpeedButton. Вы ее хотите использовать в качестве объекта для нажимания мышкой вместо картинки в первом примере? Тогда в чем трудность?

Трудность в том, что не могу грамотно привязать к этой кнопке картинку *.bmp. Там помоему какие-то координаты нужно прописывать... Я раньше делал SpeedButton для меню автозапуска дисков, но там другой синтаксис был...

if point=1 then point_value :=p01 else

Спасибо за подсказку. Учту
А смысл 400 строк в том, сначала считывается с ини-файла график, а потом возможно будет необходимость просмотреть какой точке какое значение соответствует (я первый раз сделал вообще через одну переменную и почти в две строки, а потом задал вопрос на этом форуме, можно ли считать координаты точек по уже нарисованному, но это оказалось геморойнее, чем ввести 400 переменных. Тем более, возможно в последствии будет реализована идея построения графика прямо в моей программе, используя "мастер-точки" и разные виды интерполяции между ними)

Думаю здесь нужно делать через таймер...

Сейчас попробую поколдую...

[mihali4]

А смысл 400 строк в том, сначала считывается с ини-файла график, а потом возможно будет необходимость просмотреть какой точке какое значение соответствует

Ну так запихните ваши значения в массив, а индексом для него будет POINT.
И вместо ваших 400 строк ничего не надо будет.
Будет просто
Label13.Caption :=IntToStr(point) ;
Label14.Caption :=IntToStr(massiv[point]);