¿Cómo dibujar una línea con arrastrar el ratón?

Question

Nov 21, 2012, 05:30 PM

¿Cómo dibujar una línea con arrastrar el ratón?

Necesito dibujar una línea en Delphi usando el cursor, ya he creado el código de línea, pero ¿no puedo ver qué hacer a continuación? Cómo puedo hacer eso, presiono el mouse, cuando la línea necesita comenzar y arrastre mi mouse o simplemente suelto el botón del mouse y dibujo la línea.

procedure TForm1.Button1Click(Sender: TObject);
var 
  x0, y0, x1, y1: Integer;
begin
  x0 := StrToInt(Edit1.Text);
  y0 := StrToInt(Edit2.Text);
  x1 := StrToInt(Edit3.Text);
  y1 := StrToInt(Edit4.Text);
  Brezenhems(x0 , Y0 , X1 , Y1);
end;

Espero que alguien me ayude Gracias