Перейти к содержанию
  • Регистрация
  • 0
Авторизация  
VirusZ2D

TSizeGrip компонент

Вопрос

Как ограничить изменение размера например только по высоте или по ширине

к примеру есть форма 100 x 100 нужно растягивать ее только по высоте до 200

меньше 100 нельзя больше 200 нельзя  помогите люди

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Рекомендуемые сообщения

  • 1
type
  TForm2 = class(TForm)
    SizeGrip1: TSizeGrip;
    procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer); override;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

...........

procedure TForm2.SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
begin
  if AWidth > 800 then
    AWidth := 800;

  if AWidth < 300 then
    AWidth := 300;

  if AHeight > 600 then
    AHeight := 600;

  if AHeight < 200 then
    AHeight := 200;

  inherited SetBounds(ALeft, ATop, AWidth, AHeight);
end;

Пример проекта прилагаю

SetBounds.zip

P.S. И старайтесь пользоваться поиском. Здесь это уже обсуждалось.

Изменено пользователем AlexG

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

Авторизация  

  • Последние посетители   0 пользователей онлайн

    Ни одного зарегистрированного пользователя не просматривает данную страницу

×
×
  • Создать...