Выбор окна мышкой

[Altera]

Всем привет!
Это знаете, о чём?
Вот например в SpyXX или ProcessExplorer-е так окно выбирается.

Это как-то просто реализуется?

[Пепел Феникса]

этот курсор это кружок с активной точкой мыши в центре.
а вообще там юзаются SetCapture(установка захвата мыши) и SetCursor(смена курсора) при нажатии на этот значок(потом у него картинка меняется на картинку без кружка)
и при отпускании кнопки мыши(при захвате мы получим это сообщение) ReleaseCapture для освобождения от захвата, ну и ClientToScreen для получения координат

[Altera]

Сообщение от Пепел Феникса

этот курсор это кружок с активной точкой мыши в центре.
а вообще там юзаются SetCapture(установка захвата мыши) и SetCursor(смена курсора) при нажатии на этот значок(потом у него картинка меняется на картинку без кружка)
и при отпускании кнопки мыши(при захвате мы получим это сообщение) ReleaseCapture для освобождения от захвата, ну и ClientToScreen для получения координат

Что-то с WM_CAPTURECHANGED проблемы

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Panel1: TPanel;
    Label1: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure wmCaptureChanged(var msg: tMessage);
    message WM_CAPTURECHANGED;
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
  form2.Show;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  setCapture(handle);
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  caption := format('X: %d; Y: %d;', [X, Y]);
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  releaseCapture;

  Panel1.caption := format('X: %d; Y: %d;', [X, Y]);
end;

procedure TForm1.wmCaptureChanged(var msg: tMessage);
var
  caption: array [0 .. MAX_PATH] of char;
begin

  msg.Result := 0;
  getWindowText(msg.LParam, @caption[0], MAX_PATH);
  Label1.caption := caption;
end;

end.

А вот как реализовать то, что вокруг окна появляется рамка, как при перетаскивании или изменении размеров?

[Пепел Феникса]

а я про то сообщение не говорил между прочим=)
оно нужно лишь для того чтоб отслеживать что у вас сперли захват мыши
TForm1.FormMouseUp, все нормально, срабатывает же?
так вот именно в нем и определяйте по координатам(WindowFromPoint)

[Altera]

А рамку то как вокруг окна отобразить?

[Пепел Феникса]

через GetWindowDC, GetWindowRect берем контекст окна и его полные размеры.
далее через АПИ функции рисования с помощью таймера рисуем