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

Posted by obzor under Delphi

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

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.

тема на форуме

Случайные статьи

• Удаление файла без возможности восстановления
• Язык программирования Суржи
• Глобальный хук
• Получить иконку файла
• Checkbox в javascript
• Копирование страниц PageControl
• Convert(array of byte, real48)
• C# проблема с GetTickCount
• Мониторинг Counter Strike
• Hint на Edit