Примагничивание формы

[dmitriegorovih]

Всем добрый вечер! У меня такой вопрос как сделать примагничивание формы и если можно, то, как сделать примагничивание объекта к объекту?

[BOBAH13]

Поиском "липкие окна"

[ex.cluz]

Недавно выложил тут:
http://www.programmersforum.ru/showthread.php?t=111417

[dmitriegorovih]

Сообщение от ex.cluz

Недавно выложил тут:
http://www.programmersforum.ru/showthread.php?t=111417

ex.cluz жутко тормозит и мигает, а нет ли альтернативы?

[ZvEr_HaCkEr]

procedure TForm4.lipkoeokno(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;

private

    procedure lipkoeokno(var Msg: TWMWindowPosChanging);  message WM_WINDOWPOSCHANGING;

[spamer]

Вот еще один вариант:

Form1.ScreenSnap:=True;
Form1.SnapBuffer:=15;

[Nester]

Когда то экспериментировал на эту тему исходники уже не помню где-надо искать

[ex.cluz]

А сколько контролов на форме?
Кстати, можно DoubleBuffered в true выставить.

[dmitriegorovih]

Сообщение от ex.cluz

можно DoubleBuffered в true выставить.

Именно с этим и работал всё также тормозит и мигает
Nester найдите пожалуйста исходники очень нужно как раз то
P.S. А не кто не подскажет как это сделать для визуальных компонентов, а точнее для image(ов)?

[BOBAH13]

P.S. А не кто не подскажет как это сделать для визуальных компонентов, а точнее для image(ов)?

Для начала понять логику действий этого самого "прилипания". Далее не будет вопросов как обработать событие этих Images на подобии OnLButtonDown и OnLButtonUp ну и OnMouseMove.