nusya24 Posted January 3, 2006 Report Share Posted January 3, 2006 как изменять размеры формы за какой-нибудь другой объект, если свойство BorderStyle=bsNone (предположим за объект Image, кот находится в правом нижнем углу формы) Link to comment Share on other sites More sharing options...
LomaK.XP Posted February 9, 2006 Report Share Posted February 9, 2006 в свойстве Image1 OnResize Form1.Width:=Image1.Width;Form1.Height:=Image1.Height; Link to comment Share on other sites More sharing options...
Shurr Posted February 10, 2006 Report Share Posted February 10, 2006 LomaK.XP в свойстве Image1 OnResizeForm1.Width:=Image1.Width;Form1.Height:=Image1.Height; И что мы получим? Форму, которая изменяет свои размеры при изменении размеров Image. А кто будет изменять размеры Image? nusya24 Самое простое решение: 1. Привязываешь Image к правому нижнему краю формы, чтобы при resize'e формы он оставался в углу. 2. Вручную контролируешь нажатие левой кнопки мыши над Image'ем. Т.е. заводишь булевскую переменную, например IsResizerImageMouseDown. На onMouseDown Image'a ставишь ее в true, а на onMouseUp - false. 3. На onMouseMove Image'a проверяешь, нажата ли левая кнопка мыши. Если нажата - изменяешь размеры формы на величину смещения мыши. Что-то типа такого: if IsResizerImageMouseDown thenbegin Form1.Height := Form1.Width + X; Form1.Height := Form1.Height + Y;end; И все! P.S. Можно, конечно, воспользоваться параметром Shift для определения нажатости кнопки мыши, но тогда будут ложные срабатывания, когда кнопка мыши зажата над другим контролом, но при перемещении курсора к Image'у сработает наш механизм растягивания окна. P.P.S. Код не тестил, но должно работать. Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now