Naja... dann musst du eben im OnMouseMove-Ereignis deines Sizegrip (btw ich bin mir zu 100% sicher dass es sowas schon gibt, inkl. frei auswählbarem bild) den Shiftstate auf vorhandensein von ssLeft überprüfen und falls alles zu deiner zufriedenheit ausfällt das hier machen:
Delphi-Quellcode:
Width := (Sender as TControl).ClientToParent(X,0).X + (Sender as TControl).Width - X;
Height := (Sender as TControl).CLientToParent(0,Y).Y +(Sender as TControl).Height - Y;
So sollte das hinhauen, und das hätte man auch selber rausfinden können sollen... extl. musst du beim clienttoparent die parameter noch durch point() jagen.
Lukas Erlacher
Suche Grafiktablett. Spenden/Gebrauchtangebote willkommen.
Gotteskrieger gesucht!
For it is the chief characteristic of the religion of science that it works. - Isaac Asimov, Foundation I, Buch 1