Ĺadny brzuch
Jak zrobic zeby przeciagac forme po ekranie bez paska tytułowego(jest wyłączony)????
Jak zrobic zeby przeciagac forme po ekranie bez paska tytułowego(jest wyłączony)????
ReleaseCapture; Twincontrol(Form1).perform(WM_syscommand, $F012, 0);
Albo wrzuc tcoolform na forme, przy okazji bedziesz mogl zmienic dowolnie ksztalt okna [szybko]
jak to zrobić??
Tutaj masz cały kodzik programu
var MD : Boolean; P : TPoint; procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin MD := True; P := Point(X, Y); end; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if MD then begin Left := Left + (X - P.X); Top := Top + (Y - P.Y); end; end; procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin MD := False; end;
Mam nadzieję,że pomogłem ;)
dzieki, dziala!!!
Ale jak to zrobic, zeby to dzialalo po dwukrotnym kliknieciu?
dzieki, dziala!!!
Ale jak to zrobic, zeby to dzialalo po dwukrotnym kliknieciu?
ale to nie dziala funkcja DBclick dla FOrmy nie akceptuje tych zmiennych w nagówku(procedure .........)ł
ale to nie dziala funkcja DBclick dla FOrmy nie akceptuje tych zmiennych w nagówku(procedure .........)ł
ok, zobacze:) BIG THX
nie dizala:( po dwukrotnym kliknieciu forma idzie w kąt, a jak rusze myszka to forma sie porusza. nie masz czegos bardziej precyzyjniejszego(pozycja wzgledem kursora)?
nie dizala:( po dwukrotnym kliknieciu forma idzie w kąt, a jak rusze myszka to forma sie porusza. nie masz czegos bardziej precyzyjniejszego(pozycja wzgledem kursora)?
nie dziala:( klikne i idzie do kąta.
nie dziala:( klikne i idzie do kąta.
D###!! nie dziala, ale po ruszaniu myszka wibruje:)
Kolejna próba:
var MD : Boolean; P : TPoint; procedure TForm1.FormDblClick(Sender: TObject); begin MD := True; GetCursorPos(P); end; procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin P := Point(X, Y); end; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if MD then begin Left := Left + (X - P.X); Top := Top + (Y - P.Y); end; end; procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin MD := False; end;
To musi działać :excl: :mad:
no i to dziala :blink: . Dobra robota, dzieki!!!
no i to dziala :blink: . Dobra robota, dzieki!!!
ale ma drugi problem...
ale ma drugi problem...
Patrz ListView lub ListBOx
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Jak zrobic zeby przeciagac forme po ekranie bez paska tytułowego(jest wyłączony)????
ReleaseCapture; Twincontrol(Form1).perform(WM_syscommand, $F012, 0);
Albo wrzuc tcoolform na forme, przy okazji bedziesz mogl zmienic dowolnie ksztalt okna [szybko]
jak to zrobić??
Tutaj masz cały kodzik programu
var MD : Boolean; P : TPoint; procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin MD := True; P := Point(X, Y); end; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if MD then begin Left := Left + (X - P.X); Top := Top + (Y - P.Y); end; end; procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin MD := False; end;
Mam nadzieję,że pomogłem ;)
dzieki, dziala!!!
Ale jak to zrobic, zeby to dzialalo po dwukrotnym kliknieciu?
dzieki, dziala!!!
Ale jak to zrobic, zeby to dzialalo po dwukrotnym kliknieciu?
ale to nie dziala funkcja DBclick dla FOrmy nie akceptuje tych zmiennych w nagówku(procedure .........)ł
ale to nie dziala funkcja DBclick dla FOrmy nie akceptuje tych zmiennych w nagówku(procedure .........)ł
ok, zobacze:) BIG THX
nie dizala:( po dwukrotnym kliknieciu forma idzie w kąt, a jak rusze myszka to forma sie porusza. nie masz czegos bardziej precyzyjniejszego(pozycja wzgledem kursora)?
nie dizala:( po dwukrotnym kliknieciu forma idzie w kąt, a jak rusze myszka to forma sie porusza. nie masz czegos bardziej precyzyjniejszego(pozycja wzgledem kursora)?
nie dziala:( klikne i idzie do kąta.
nie dziala:( klikne i idzie do kąta.
D###!! nie dziala, ale po ruszaniu myszka wibruje:)
Kolejna próba:
var MD : Boolean; P : TPoint; procedure TForm1.FormDblClick(Sender: TObject); begin MD := True; GetCursorPos(P); end; procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin P := Point(X, Y); end; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if MD then begin Left := Left + (X - P.X); Top := Top + (Y - P.Y); end; end; procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin MD := False; end;
To musi działać :excl: :mad:
no i to dziala :blink: . Dobra robota, dzieki!!!
no i to dziala :blink: . Dobra robota, dzieki!!!
ale ma drugi problem...
ale ma drugi problem...
Patrz ListView lub ListBOx