как узнать свойство формы TForm1.Height

[sermaxim]

Не ругайтесь, уже глаза болят искать(((
как узнать свойство TForm1.Height чтобы им потом манипулировать?
такой код ни в какую не пашет

Код: Выделить всё

H := TForm1.Height;
TForm1.Height := H + 10;


подскажите, плиз!!!

[minoshi]

Чёй-то вдруг?

Вот это работает

Код: Выделить всё

  { TForm1 }

  TForm1 = class(TForm)
    Button1 : TButton;
    procedure Button1Click(Sender : TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1 : TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender : TObject);
var h : integer;
begin
  H := Form1.Height;
Form1.Height := H + 10;
end; 

Я не знаю, конечно, как у Вас (я не телепат), но по дефолту Tform1 - это класс, а окно приложения это - Form1. Поэтому работать надо с Form1 , а не Tform1

[sermaxim]

спасибо!!!

[minoshi]

не во что обращайтесь