Приостановить resize.

[Kotofff]

Подключи модуль Messages - все это там ...

[Deight]

Вот с этим еще можно поработать, интересно какое событие первее canresize или это.

[Kotofff]

Сообщение от Deight

.... интересно какое событие первее canresize или это.

А зачем тебе - ведь по этому событию все прекрасно работает ...

[Deight]

Блин этот dynamic тупой, без него всё норм а с ним глюки с прорисовкой, вообще я хочу прилипание для изменения размеров намутить.

[Kotofff]

На счет прилипания :
сначала как всегда объявляем перехват системного события для нашей формы :

private
  procedure WMWINDOWPOSCHANGING(var Msg: TWMWINDOWPOSCHANGING); message WM_WINDOWPOSCHANGING;

А потом собственно сама процедура :

procedure TForm1.WMWindowPosChanging(var Msg: TWMWindowPosChanging);
var
  WorkArea: TRect;
  StickAt : Word;
begin
  StickAt := 10;// Размер дистанции для прилипания 
  SystemParametersInfo(SPI_GETWORKAREA, 0, @WorkArea, 0);
  with WorkArea, Msg.WindowPos^ do
  begin
    // Сдвигаем границы для сравнения с левой и верхней сторонами
    Right:=Right-cx;
    Bottom:=Bottom-cy;
    if abs(Left - x) <= StickAt then  x := Left;
    if abs(Right - x) <= StickAt then  x := Right;
    if abs(Top - y) <= StickAt then  y := Top;
    if abs(Bottom - y) <= StickAt then  y := Bottom;
  end;
  inherited;
end;

Блин этот dynamic тупой, без него всё норм а с ним глюки с прорисовкой....

А чего же AlphaSkins не попробуешь ? Я с их помощью уже несколько проектов сделал - никогда и ни с чем проблем не было ...

[Deight]

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