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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Recently Browsing   0 members

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