The Unofficial Newsletter of Delphi Users - by Robert Vivrette

Простое управление размером элементов

By Alan Lloyd - alanglloyd@aol.com

Перевод Руденко Е.В.   janerev@hotmale.ru    апрель 2001 года

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

 

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