[Brons14]

Помогите пожайлуста сделать программу с TImage и таймером, вообщем я не знаю как рисовать произвольные линии по нажатию на таймер, но начало всегда в (0, Height), цвет тоже random.

Код:

procedure TForm4.Timer1Timer(Sender: TObject);
var
x,y,i: integer;
begin
x:=0;
y:=Image1.Height;
Image1.Canvas.LineTo(x,y);
Timer1.Enabled:=true;
x:=0;
y:=i;
Image1.Canvas.LineTo(x,y);

[Bargest]

произвольные линии по нажатию на таймер,

На него нельзя нажимать. Это не "нажимабельный" компонент.

но начало всегда в (0, Height)

Чтобы рисовать произвольные линии ИЗ (0;Height), надо туда сначало переместиться. Для этого есть метод MoveTo(x,y).
Чтобы координаты "куда рисовать" были рандомными, надо им присвоить рандом:

Код:

 x:= random(Image1.Width);
 y:= random(Image1.Height);

Только перед использованием random нужно вызвать в начале программы Randomize для инициализации генератора случайных чисел.
Рандомный цвет делается как-то так:

Код:

 Image1.Canvas.Pen.Color:=Random($FFFFFF);

(если не перепутал ничего).
Timer1.Enabled:=true в Вашем коде лишнее. Он и так будет включен постоянно.

[ChinYan]

i у вас нигде не задается, и будет нулем. Тогда у вас линии будут все по левому краю.

Зачем в функции таймера включать таймер еще раз?

Вы рисуете две линии - одну вверх, а вторую вниз по левому краю. линии будут толщиной в 1 пиксель

[Brons14]

Сделал так

Код:

procedure TForm4.Timer1Timer(Sender: TObject);
var
x,y: integer;
begin
Image1.Canvas.MoveTo(0,Height);
Randomize;
 x:= random(Image1.Width);
 y:= random(Image1.Height);
 Image1.Canvas.LineTo(x,y);
 Image1.Canvas.Pen.Color:=Random($FFFFFF);

end;

спасибо, все работает но линии выходят из точки которая не в Image а где то ниже и рамки нет никакой просто белый фон, так должно быть? (просто первый раз разбираюсь с Image)

[Bargest]

Randomize нужно в начале программы (например, в Form4Show). Это довольно медленная функция, и делать её каждый раз по таймеру бессмысленно.
Линии выходят из точки чуть за краем, да. Я ошибся, надо брать MoveTo(0,Height-1);
Рамки никакой нет, разумеется. Может быть и есть какие-то свойства в TImage для задания стандартных рамок, но я ими в жизни не пользовался.

[Brons14]

если сделать так

Код:

procedure TForm4.Timer1Timer(Sender: TObject);
var
x,y: integer;
begin
Image1.Canvas.MoveTo(0,Height-1);
 x:= random(Image1.Width);
 y:= random(Image1.Height);
 Image1.Canvas.LineTo(x,y);
 Image1.Canvas.Pen.Color:=Random($FFFFFF);

end;

то без изменений( может MoveTo не там нужно писать, Randomize исправил

[cotseec]

Код:

  Image1.Canvas.Pen.Color:=Random($FFFFFF);
  Image1.Canvas.MoveTo(0,Image1.Height-1);
  x:= random(Image1.Width);
  y:= random(Image1.Height);
  Image1.Canvas.LineTo(x,y);

лучше сначала задавать цвет, а потом рисовать

[Brons14]

все получилось) большое спасибо всем!