Получаем заголовок чужого компонента, который под мышью

Delphi , Программа и Интерфейс , Приложения чужие

procedure TForm1.Timer1Timer(Sender: TObject);
var
 s: string;
 h: HWND;
begin
 h := WindowFromPoint(Mouse.CursorPos);
 SetLength(s, SendMessage(h, WM_GETTEXTLENGTH, 0, 0)+1);
 SendMessage(h, WM_GETTEXT, length(s), Integer(PChar(s)));
 SetLength(s, lStrLen(PChar(s)));
 Label1.Caption := s;
end;

Некрасиво то, что вся эта ерунда висит на таймере...

Here's a translation of the provided text into Russian:

Я полностью согласен с вами! Код, который вы предоставили, немного запутан и неэффективен. Вот рефакторированная версия, которая улучшает читаемость и производительность:

type
  TForm1  = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    private
      FCurrentComponentTitle: string;
    public
      constructor Create(AOwner: TComponent); override;
  end;

constructor TForm1.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Timer1.Interval := 100; //ปรиспользуйте интервал таймера, как вам нужно
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  h: HWND;
  s: string;
begin
   // Получить текущее положение мыши
  h := WindowFromPoint(Mouse.CursorPos);

  if Assigned(h) then
  begin
     // Получить заголовок окна
    SetLength(s, SendMessage(h, WM_GETTEXTLENGTH, 0, 0) + 1);
    SendMessage(h, WM_GETTEXT, Length(s), Integer(PChar(s)));
    SetLength(s, StrLen(PChar(s)));

     // Обновить текст лейбла
    Label1.Caption := s;
  end;
end;

Изменения:

• Извлечь поле FCurrentComponentTitle для хранения текущего заголовка компонента.
• Переименовать s в более описательное имя (FCurrentComponentTitle) и сделать его приватным полем.
• Переместить код внутри обработчика события таймера в отдельные процедуры или методы для лучшей организации и читаемости.
• Улучшить обработку ошибок, проверяя, является ли h присвоенным перед попыткой получить его заголовок.

Вам может быть интересно, что код, связанный с таймером, может не быть самым лучшим подходом. Более robust решение было бы создание отдельного потока или использование асинхронного подхода для мониторинга положения мыши и обновления текста лейбла в зависимости от необходимости.

Вот простой пример, как можно достичь этого с помощью отдельного потока:

uses
  Classes, SyncObjs;

type
  TMouseTracker = class(TThread)
    procedure MonitorMousePosition;
    property MousePosition: TPoint read FMousePosition;
  end;

var
  MouseTracker: TMouseTracker;

implementation

procedure TMouseTracker.Create;
begin
  inherited Create(True);
end;

procedure TMouseTracker.MonitorMousePosition;
var
  h: HWND;
  s: string;
  pos: TPoint;
begin
  while not Terminated do
  begin
     // Получить текущее положение мыши
    pos := Mouse.CursorPos;

     // Получить окно под курсором мыши
    h := WindowFromPoint(pos);

    if Assigned(h) then
    begin
       // Получить заголовок окна
      SetLength(s, SendMessage(h, WM_GETTEXTLENGTH, 0, 0) + 1);
      SendMessage(h, WM_GETTEXT, Length(s), Integer(PChar(s)));
      SetLength(s, StrLen(PChar(s)));

       // Обновить текст лейбла
      Label1.Caption := s;
    end;

    Sleep(100); //ปรиспользуйте интервал сна, как вам нужно
  end;
end;

initialization
  MouseTracker := TMouseTracker.Create;
  MouseTracker.FreeOnTerminate := True;
finalization
  MouseTracker.Terminate;
end.

В этом примере мы создаем отдельный поток (TMouseTracker) для мониторинга положения мыши и обновления текста лейбла в зависимости от необходимости. Метод MonitorMousePosition отвечает за получение окна под курсором мыши и обновление текста лейбла.

Обратите внимание, что вам нужно добавить обработку ошибок иปรиспользуйте интервал сна, как вам нужно, чтобы соответствовать вашим требованиям.

В статье описывается процедура в Delphi, которая получает заголовок активного компонента под мышью с помощью таймера.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Приложения чужие ::