[sariman]

Здравствуйте, как нибудь можно реализовать красивое, плавное изменение формы? заранее благодарен
P.S. таймер не предлогать)

[YVitaliy]

Вообще-то

красивое, плавное изменение формы

уже реализовано по-умолчанию: ставишь свойство формы BorderStyle в bsSizeable и потом левой клавишей мыши за края формы изменяешь ее размеры.
P.S А при чем здесь таймер?



Вопрос яснее пожалуйста, и обьяснение, чем таймер не устраивает. Если установить значение Interval таймера <10 то плавнее будет уже некуда.

[sariman]

я имею ввиду программно, например когда пытаюсь ширину формы сделать больше)

[lmikle]

Че сложного-то? Головой немного подумать всего-то надо...

Код:

procedure TForm1.MyResize(NewWidth : Integer);
var
  I : Integer;
  N : Integer;
  S : Integer;
begin
  N := Abs(NewWidth - Self.Width);
  S := Sign(NewWidth - Self.Width);
  For I := 1 To N Do
    Begin
       Self.Width := Self.Width + S;
       Sleep(100);                          // <-- задержка
       Application.ProcessMessages;  // <-- обработать сообщения, чтоб все не висло
       // Self.Update; // <-- иногда само не отрисовывается. тогда - раскоменнтировать.
    End;
end;

[sariman]

ругается на Sigh

[angvelem]

Поиск по папке Source, в будущем всегда выручит. Используй юнит Math.