n1
Nybegynder
22. september 2003 - 14:30
Der er
8 kommentarer og 1 løsning
Flyt vindue
hvad er koden hvis jeg vil flytte med et vindue, mens man holder en knap nede? og når men slipper?
Annonceindlæg fra Netic
Slettet bruger
22. september 2003 - 14:33
#1
Hvis det er dit eget vindue kan du bare ændre top og left i onclick.
n1
Nybegynder
22. september 2003 - 14:35
#2
hvordan vil koden se ud, jeg er en smule nybegynder!
Slettet bruger
22. september 2003 - 14:35
#3
procedure TForm1.Button1Click(Sender: TObject); begin Top := 10; Left := 100; end;
n1
Nybegynder
22. september 2003 - 14:37
#4
den skal ikke flytes til et bestemt sted! det skal være sådan at jeg trækker vinduet!!
Slettet bruger
22. september 2003 - 14:39
#5
Så prøv det her: procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; SendMessage(Form1.Handle,wm_SysCommand,$f012,0); end;
n1
Nybegynder
22. september 2003 - 14:41
#6
tak. hvordan kan jeg give point her????
Slettet bruger
22. september 2003 - 14:42
#7
Du skal bare trykke på acceptere :-)
n1
Nybegynder
22. september 2003 - 14:43
#8
ok, den var der ikke før!!!
Slettet bruger
22. september 2003 - 14:43
#9
Nej, det er fordi jeg ik havde lagt et svar.
Kurser inden for grundlæggende programmering