Нажатие мышки

[ZotaC]

Здравствуйте, вот появился такой вопрос. Есть форма, на которой расположено несколько компонентов Image. Нужно проверить событие MouseDown на этой форме, но компоненты расположены так, что полностью ее перекрывают. Существует ли какое-либо свойство, которое показывает, какая кнопка у мышки в данный момент нажата?

[Stilet]

функция GetKeyState по-моему может показывать нажатие клавиш мышки.
Но ты вполне можешь описать OnMouseDown для всех Image так же как и для формы, или банальнее:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 self.MouseDown(Button,Shift,x,y);
end;

end.

[Selestis]

Только, если я не ошибаюсь, нужно изменить координаты, прибавив left и top объекта. Если точка нажатия имеет значение.