Runtime flyt af TEdit

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls;

type
  TForm1 = class(TForm)
    edit1: Tedit;
    procedure edit1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure edit32MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure edit1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  pos1, pos2: Integer;

implementation

{$R *.DFM}

procedure TForm1.edit1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  edit1.Enabled := False;
  edit1.OnMouseMove := edit1MouseMove;
  Pos1 := X;
  Pos2 := Y;
end;

procedure TForm1.edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (edit1.left + X - pos1) < 40 then
  begin
    if (edit1.top + Y - pos2) < 40 then
    begin
      edit1.Left := 40;
      edit1.top := 40;
    end
    else if (edit1.top + Y - pos2) > 352 then
    begin
      edit1.Left := 40;
      edit1.top := 352;
    end
    else
    begin
      edit1.top := edit1.Top + Y - pos2;
      edit1.Left := 40;
    end;
  end
  else if (edit1.top + Y - pos2) < 40 then
  begin
    if (edit1.left + X - pos1) > 793 then
    begin
      edit1.top := 40;
      edit1.Left := 793;
    end
    else
    begin
      edit1.left := edit1.left + X - pos1;
      edit1.top := 40;
    end;
  end
  else if (edit1.left + X - pos1) > 793 then
  begin
    if (edit1.top + Y - pos2) > 352 then
    begin
      edit1.Left := 793;
      edit1.top := 352;
    end
    else
    begin
      edit1.top := edit1.Top + Y - pos2;
      edit1.Left := 793;
    end;
  end
  else if (edit1.top + Y - pos2) > 352 then
  begin
    edit1.left := edit1.left + X - pos1;
    edit1.top := 352;
  end
  else
  begin
    edit1.Left := edit1.Left + X - pos1;
    edit1.top := edit1.Top + Y - pos2;
  end;
end;

procedure TForm1.edit32MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Left := left;
end;

procedure TForm1.edit1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  edit1.Enabled := True;
  edit1.OnMouseMove := edit32MouseMove;
end;

end.

programer den på OnMouseDown, OnMouseMove eventet

sæt left og top og lidt flag når du klikker


procedure TfDBDriver.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Edit1.Left := X;
  Edit1.Top := Y;
end;

fjern lige enabled false ved onmousedown ellers virker det ikk .-(

Giga mange tak - så er jeg videre, /JL

Cautoo Er du sikker på det virker ? Der sker ikke noget med min edit1, den bliver stående uanset hvor hårdt man trækker. /JL

Nu kører det. Dum som jeg var, havde jeg ikke fået aktiveret eventene i min Object Inspector.

;-) husk at det er edit32MouseMove der skal sættes til onmousemove !!!

...elers flytter den sig uden at du overhoved klikker !!!

Det havde jeg luret på, men hvad mener du med 'edit32MouseMove der skal sættes til onmousemove'. Det syntes jeg den er, men den flytter sig som du siger uden at man klikker. Når man har klikket den første gang, virker det som det skal. Men hvorfor virker det ikke, inden det første klik ? /JL

Du har lagt edit1MouseMove på edit1.OnMouseMove

men det skal være
Edit1.OnmouseMove := edit32MouseMove;
;-)