TSizeGrip компонент

[VirusZ2D]

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

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

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

[POV]

Если касаемо формы, то тут хелпер выкладывали

 

[VirusZ2D]

С формой проблем нет касаемо TPopup

[POV]

 

[AngryOwl]

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. И старайтесь пользоваться поиском. Здесь это уже обсуждалось.

Изменено 12 августа, 2016 пользователем AlexG

[VirusZ2D]

Спасибо