примагничевание главного окна своего приложения к окнам чюжих приложений

[beegl]

подскажите, как оформить примагничевание главного окна своего приложения к окнам чюжих приложений?

[Kix.IV]

Можно использовать компоненты JEDI. Там точно было что-то подобное.

[Аватар]

Ну если без хука, то в таймере с помощью GetWindowRect отслеживать положение чужого окна и цеплять к нему свое окно

[beegl]

в архиве два компонента, они, только магнетят к краям роб. стола, но не к чужим окнам

[superedward]

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

в архиве два компонента, они, только магнетят к краям роб. стола, но не к чужим окнам

Так, начиная с Delphi 7 у формы есть свойство ScreenSnap...

[beegl]

Так, начиная с Delphi 7 у формы есть свойство ScreenSnap...

не магнетит к чужим окнам, только к краям рабочего стола.
А в прикрепленном файле компонент ALScreenSnap, магнетит к краям раб. стола и в случае ухода окна за пределы рабочего стола, возвращает окно, Может кто модифицирует этот компонент, чтоб к чужим окнам магнитил.
см. вложенный фай:

unit ALScreenSnap;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ShellAPI;

type
  TALScreenSnap = class(TComponent)
  private
    OldWndProc, NewWndProc: Pointer;
    fActive: Boolean;
    fThreshold: Integer;
    procedure NewWndMethod(var Msg: TMessage);
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property Active: Boolean    read fActive    write fActive    default True;
    property Threshold: Integer read fThreshold write fThreshold default 30;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Standard', [TALScreenSnap]);
end;

{ TALScreenSnap }

constructor TALScreenSnap.Create(AOwner: TComponent);
var
  i: Integer;
begin
  // Only allow one instance per form
  for i := 0 to AOwner.ComponentCount-1 do
    if AOwner.Components[i] is TALScreenSnap then
      raise Exception.Create('TALScreenSnap component cannot be duplicated in ' + AOwner.Name);

  inherited;

  // Check if the owner is a form
  if (Owner = nil) or not(AOwner is TForm) then
    raise Exception.Create('Owner of TALScreenSnap component must be a form');

  // Form subclassing
  if not(csDesigning in ComponentState) then
  begin
    NewWndProc := MakeObjectInstance(NewWndMethod);
    OldWndProc := Pointer(SetWindowLong(TForm(Owner).Handle, gwl_WndProc, Longint(NewWndProc)));
  end
  else
  begin
    NewWndProc := nil;
    OldWndProc := nil;
  end;

  fActive := True;
  fThreshold := 30;
end;

destructor TALScreenSnap.Destroy;
begin
  if Assigned(NewWndProc) then
    FreeObjectInstance(NewWndProc);

  inherited;
end;

procedure TALScreenSnap.NewWndMethod(var Msg: TMessage);
var
  Pabd: APPBARDATA;
  ScreenWidth, ScreenHeight: Integer;
  ScreenRect, TaskBarRect: TRect;
begin
  if (Msg.Msg = WM_EXITSIZEMOVE) and Active then
  begin
    Pabd.cbSize := SizeOf(APPBARDATA);
    SHAppBarMessage(ABM_GETTASKBARPOS, Pabd);

    ScreenWidth := GetSystemMetrics(SM_CXSCREEN);
    ScreenHeight := GetSystemMetrics(SM_CYSCREEN);
    ScreenRect := Rect(0, 0, ScreenWidth, ScreenHeight);
    TaskBarRect := Pabd.rc;

    if (TaskBarRect.Left = -2) and (TaskBarRect.Bottom = ScreenHeight+2) and (TaskBarRect.Right = ScreenWidth+2) then
      // Bottom
      ScreenRect.Bottom := TaskBarRect.Top
    else if (TaskBarRect.Top = -2) and (TaskBarRect.Left = -2) and (TaskBarRect.Right = ScreenWidth+2) then
      // Top
      ScreenRect.Top := TaskBarRect.Bottom
    else if (TaskBarRect.Left = -2) and (TaskBarRect.Top = -2) and (TaskBarRect.Bottom = ScreenHeight+2) then
      // Left
      ScreenRect.Left := TaskBarRect.Right
    else if (TaskBarRect.Right = ScreenWidth+2) and (TaskBarRect.Top = -2) and (TaskBarRect.Bottom = ScreenHeight+2) then
      // Right
      ScreenRect.Right := TaskBarRect.Left;

    // Position form
    if TForm(Owner).Left < ScreenRect.Left + fThreshold then
      TForm(Owner).Left := ScreenRect.Left;
    if TForm(Owner).Top < ScreenRect.Top + fThreshold then
      TForm(Owner).Top := ScreenRect.Top;
    if TForm(Owner).Left+TForm(Owner).Width > ScreenRect.Right-fThreshold then
      TForm(Owner).Left := ScreenRect.Right-TForm(Owner).Width;
    if TForm(Owner).Top+TForm(Owner).Height > ScreenRect.Bottom-fThreshold then
      TForm(Owner).Top := ScreenRect.Bottom-TForm(Owner).Height;
  end;

  Msg.Result := CallWindowProc(OldWndProc, TForm(Owner).Handle, Msg.Msg, Msg.WParam, Msg.LParam);
end;
end.

[Kix.IV]

Может кто модифицирует этот компонент, чтоб к чужим окнам магнитил.

Тогда уж создавать новый. Если тут ты просто сравнивал положения окна и границы экрана, то там необходимо сравнивать с каждым видимым окном.

[beegl]

Kix.IV, тогда как это делается? если Вам не трудно и есть свободное время переделайте