Flyt formen med en label?

gå på www.torry.net. søg efter TJbform .. Så kan du draffe din form med hvad end du måtte ønske !

Jens B

procedure TMainFrm.Label1MouseDown(Sender: TObject; Button:
TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const
  SC_DRAGMOVE = $F012;
begin
  if Button = mbLeft then
  begin
    ReleaseCapture;
    Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
  end;
end;

Der er ikke noget der hedder TJBForm

ups havde ikke testet den, det skal være sådan her:

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
const
  SC_DRAGMOVE = $F012;
begin
  if ssLeft in Shift then
  begin
    ReleaseCapture;
    Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
  end;
end;

http://www.torry.net/formsother.htm

TJBFrom v.1.0