The Unofficial Newsletter of Delphi Users - by Robert Vivrette

Простой способ изменения размеров компонента

By Alan Lloyd - alanglloyd@aol.com

Перевод Руденко Е.В.   janer@newmail.ru    август 2001 года

 

Если вы хотите регулировать размеры панели, сетки и т.д. во время работы приложения, то разместите на свободном месте формы Метку со следующим кодом :

 

procedure TForm1.Label1Click(Sender: TObject);
begin

  {меняем высоту  TPageControl }
  with PageControl do begin
    if GetKeyState(VK_SHIFT) < 0 then
      Height := Height + 1
    else
      Height := Height - 1;
    Label1.Caption := IntToStr(Height);
  end;
end;
Щелчок на метке  уменьшает размер, а щелчок с нажатой кнопкой shift  увеличивает размер, при этом Метка отображает текущий размер.

Возврат в Tips&Tricks