как обработать нажатие клавиши когда курсор на объекте?

[БулатМастер]

на форме некий объект. необходимо уничтожить объект когда на него наводиться мышь и нажимаеться клавиша DEL.
как лучше всего реализовать?

[0nni]

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
var
  Control : TControl;
begin
  case msg .message of
    WM_KEYDOWN :
      begin
        if (msg.wParam = VK_DELETE)  then
        begin
          Control := TForm1.ControlAtPos(TForm1.ScreenToClient(Mouse.CursorPos), true, true, true);
          if Control = Form1 then Control := nil;
          if Control <> nil then
          Control.Free
          else
          inherited;
        end
          else
       inherited;
      end;
    else
      inherited;
  end;
end;

Тебе прийдется добавить еще несколько проверок. Если нужно удалять объекты, которые находятся не на самой форме, а на каком-то объекте сверху формы - нужно сделать небольшой цикл с применениме

ParentControl := Control.ControlAtPos(Control.ScreenToClient(Mouse.CursorPos), true, true, true);

[0nni]

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
var
  Control : TControl;
begin
  case msg .message of
    WM_KEYDOWN :
      begin
        if (msg.wParam = VK_DELETE)  then
        begin
          Control := TForm1.ControlAtPos(TForm1.ScreenToClient(Mouse.CursorPos), true, true, true);
          if Control = Form1 then Control := nil;
          if Control <> nil then
          Control.Free
          else
          inherited;
        end
          else
       inherited;
      end;
    else
      inherited;
  end;
end;

Тебе прийдется добавить еще несколько проверок. Если нужно удалять объекты, которые находятся не на самой форме, а на каком-то объекте сверху формы - нужно сделать небольшой цикл с применениме

ParentsControl := Control.ControlAtPos(Control.ScreenToClient(Mouse.CursorPos), true, true, true);