подвижная форм

[echelone]

Возникла такая идея, кто подскажет как ее осуществить, есть форма, при нажатии на кнопку эта форма начинает увеличиваться до определенных размеров, и как достигает возвращается в исходное положение.

[type_Oleg]

Чтобы сделать буквально то, что написано, например так

procedure TForm1.Button1Click(Sender: TObject);
var w:Integer;
begin
 w:=Width;
 Width:=999; // ширина формы
 Width:=w;
end;

Только все это будет очень быстро. Наверное, надо с какой-то задержкой ?

[echelone]

ну да, а как сделать медленнее?

[type_Oleg]

Вот так, например.

procedure TForm1.Button1Click(Sender: TObject);
var w,i:Integer;
const MAX_WIDTH=999; // определенный размер
begin
 w:=Width;
 for i:=w to MAX_WIDTH do  Width:=i;
 for i:=MAX_WIDTH downto w do  Width:=i;
end;

Это только ширина. Если надо, там же высоту Height

[Аватар]

Так тоже очень быстро будет. Таймер придется осваивать

[type_Oleg]

Аватар, не, у меня наоборот медленно - секунд 6 расширяется.
Я даже придумал, как ускорить в 2 раза. Вместо первого цикла:

for i:=w to MAX_WIDTH do if Odd(i) then Width:=i;

Она же рисуется, поэтому долго

[echelone]

type_Oleg - спасибо большое, а вот в высоту примерно так будет?

procedure TForm1.Button1Click(Sender: TObject);
var w,i:Integer;
const MAX_Height=500;
begin
w:=Height;
for i:=w to MAX_Height do Height:=i;
for i:=MAX_Height downto w do Height:=i;

end;

end.

И к стати таймер не надо, он достаточно плавно ходит

[type_Oleg]

Да, так. А если форма квадратная, можно и одновременно и ширину и высоту:

for i:=w to MAX_W_H do
  begin
   Width:=i;
   Height:=i;
  end;

[echelone]

А может Вы еще подскажите какие нибудь процедуры по кнопкам мыши?
вот тема:
http://www.programmersforum.ru/showt...11#post1306611