snw napisał(a)
cimak napisał(a)
eee... no wiem, ale przeciez nie o tym mowa.
o tyle o ile. mając panel zamiast systemowej belki możesz formę przenosić czym chcesz. prawym lewym i środkowym.
//edit: kto mi zepsuł avatara ? :>
caly czas nie mam pojecia o co Ci chodzi :|
aj tam sie nie da...
wszystko sie da...... :-P
nie wiem tylko, dlaczego trzeba akurat 2razy ale niech bedzie, nie chce mi sie teraz nad tym zastanawiac ;] moze troche prowizorka ale dziala :-)
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var I:Integer;
begin
If Button=mbLeft then exit;
for i:=0 to 1 do
begin
mouse_event(MOUSEEVENTF_LEFTDOWN,x,y,0,0);
SwapMouseButton(True);
ReleaseCapture;
Form1.Perform(WM_SYSCOMMAND, $F012, 0);
mouse_event(MOUSEEVENTF_LEFTUP,x,y,0,0);
SwapMouseButton(False);
end;
end;
Adamo napisał(a)
no coś nie bardzo
niestety ale chyba będziesz musiał porzucić swój ulubiony kodzik i posłużyć się czymś pokroju:
Jak przesuwać formę jeżeli BorderStyle bsNone
wiesz... co do tego linka:
zaczalem sie zastanawiac, czy faktycznie tego nie wykorzystac, bo pomyslalem sobie, ze moge tez bardzo prosto dodac przyciaganie do krawedzi. juz chcialem to zastosowac ale oto kolejna niespodzianka:
w tym kodzie jak sie przesuwa lewym przyciskiem to jest oki, ale jak prawym to przy szybszym szarpnieciu panel ktory przeciagam sie gubi. nie wiem dlaczego windows az tak roznie traktuje oba przyciski:/