Изменение формы в Delphi

[Rina_Frost]

Доброго времени суток!
При решении задачи возникла заминка с одним из условий.
Задача:
Написать приложение, состоящее из 2-х форм. На первой расположить:
- два текстовых поля, в которых задаются размеры второй формы;
- кнопку «Форма 2», при нажатии на которую открывается вторая форма заданного размера;
- кнопку «Изменить», при нажатии на которую Форма 2 то увеличивает, то уменьшает размеры до определенных пределов.
Для первых двух условий все готово, но вот на третьем условии я встала.
Имеется кусочек кода, который просто увеличивает форму в два раза. НО из условия понятно, что форма должна увеличиваться плавно.
Есть предположение, что нужно использовать таймер. А вот как его использовать, предположений нет.
Помогте, пожалуйста разобраться с задачей.

[min@y™]

показывай.

[Rina_Frost]

procedure TForm2.btn_SizeClick(Sender: TObject);
begin
if NewSize
  then begin
        Form3.Width := Form3.Width div 2;
        Form3.Height := Form3.Height div 2;
       end
  else begin
        Form3.Width := Form3.Width * 2;
        Form3.Height := Form3.Height * 2;
       end;
 NewSize := not NewSize;
end;

[Stilet]

Могу предложить такое:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
      Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

			{ TAni }
      //Класс треада для изменения формы в анимации
      TAni=class(TThread)
        public
          w,h,step:integer;
          me:TForm;
        protected procedure execute; override;
      end;

			{ TForm1 }

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

var
      Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 //Включаем анимацию
  with TAni.Create(true) do begin
    me:=self;       //Указываем какую форму изменять
    w:=Width+100;   //До какой ширины
    h:=Height+500;  //До какой вышины
    step:=10;       //С каким шагом
    FreeOnTerminate:=true;
    Resume;
	end;
end;

{ TAni }

procedure TAni.execute;
var x,y:integer;
begin
 if w<me.Width then x:=-step else x:=step;
 if h<me.Height then y:=-step else y:=step;
 while (w<>me.Width) and (h<>me.Height) do begin
   if (w<>me.Width) then me.Width:=me.Width+x;
   if (h<>me.Height) then me.Height:=me.Height+y;
   sleep(10);
 end;
end;

end.

[Аватар]

А че плохому учить - синхронизация где? Лучше уж таймером

[Stilet]

Я синхор сюда специально не крутил. Он в такой задаче не нужен, и может даже мешать, поскольку тратит ресурсы на стопор других потоков.

[Аватар]

Да, он может работать, до поры до времени. Даже если юзер изъявит желание переместить форму в это время прога может не рухнет, а может рухнет

[Stilet]

переместить форму

Изменить размеры. Перемещение к краху не приведет.