объектно-ориентированное программирование

[maxim93dd]

Напишите пожалуйста, как создать приложение, в которром форма изменяет свои размеры (подобно биению сердца, увеличиваясь и уменьшаясь в размерах, центр симметрии должен оставаться на месте). Использовать компонент TTimer.

[DiemonStar]

по событию OnTimer изменяете размеры формы на фиксированный шаг и сдвигаете форму на половину шага. При достижении минимума/максимума изменяете знак шага на противоположный.

[VIK_aka_TOR]

уточню:
изменять на половину "шага" ширину и высоту (Width, Height), и отступ вормы слева и сверху (Left , Top).
если отступы плюсуются, то размеры минусуются, и наоборот....

[maxim93dd]

Написал код программы, но окошко очень быстро прыгает, что сделать нужно?
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
Timer2: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
width:=640;
Height:=480;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
width:=200;
Height:=200;
end;

end.

[Utkin]

Сделать постепенное изменение формы . Вы сразу делаете окно маленьким, а надо постепенно - сначала до 400 точек, потом до 300, потом до 200. А можно и еще плавней, чтобы на глаз не было заметно скачков.

[eval]

Зачем тут 2 таймера? Одного достаточно.

[maxim93dd]

Я сделал чтобы справа и слева форма сжимается и разжимается...А как сделать чтобы сверху и снизу...??
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
N,s,w0,l0:integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
w0:=width;
l0:=Left;
ShowMessage(IntToStr(l0));
N:=0; s:=1;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
n:=n+s; // inc(n)

width:=w0+2*n;
Height:=Height;
Left:=l0-n;
Top:=Top;
if (n=20) or (n=0) then s:=-s;

end;

end.