Последние записи

made in programmersforum 7

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

30th
Июн

Соединить 2 edit линией

Posted by Chas under Delphi, Исходники

у меня есть 2 Edit могу ли я их соединить линией ? да так, что бы перемещая любой из них соединение линией не прекращалось. Соединение желательно производить по центру.

XE5

var

  Form1: TForm1;

  x2, y2: integer;

  ToMove: boolean;

implementation
{$R *.dfm}
procedure TForm1.ToPaint;

begin

  Canvas.FillRect(ClientRect);

  Canvas.MoveTo(Edit1.Left + Edit1.Width div 2, Edit1.Top);

  Canvas.LineTo(Edit2.Left + Edit2.Width div 2, Edit2.Top);

end;
procedure TForm1.EditMouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

  ToMove := true;

  x2 := x;

  y2 := y;

end;
procedure TForm1.EditMouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

  if ToMove then

    with (Sender as TEdit) do

      begin

        Left := Left + (x - x2);

        Top := Top + (y - y2);

        ToPaint;

    end;

end;
procedure TForm1.EditMouseUp(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

  ToMove := false;

end;
procedure TForm1.FormCreate(Sender: TObject);

begin

  Edit1.OnMouseDown := EditMouseDown;

  Edit2.OnMouseDown := EditMouseDown;

  Edit1.OnMouseUp := EditMouseUp;

  Edit2.OnMouseUp := EditMouseUp;

  Edit1.OnMouseMove := EditMouseMove;

  Edit2.OnMouseMove := EditMouseMove;

end;
procedure TForm1.FormPaint(Sender: TObject);

begin

  ToPaint;

end;