Jump to content

размеры формы


Recommended Posts

как изменять размеры формы за какой-нибудь другой объект, если свойство BorderStyle=bsNone (предположим за объект Image, кот находится в правом нижнем углу формы)

Link to comment
Share on other sites

  • 1 month later...

LomaK.XP

в свойстве Image1 OnResize
Form1.Width:=Image1.Width;Form1.Height:=Image1.Height;

И что мы получим? Форму, которая изменяет свои размеры при изменении размеров Image. А кто будет изменять размеры Image? :bleh:

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;

И все! :bleh:

P.S. Можно, конечно, воспользоваться параметром Shift для определения нажатости кнопки мыши, но тогда будут ложные срабатывания, когда кнопка мыши зажата над другим контролом, но при перемещении курсора к Image'у сработает наш механизм растягивания окна.

P.P.S. Код не тестил, но должно работать.

Link to comment
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...