Как нажать на кнопку вопроса (та, что слева от кнопок минимизации на форме)

Delphi , Программа и Интерфейс , Заголовок формы

Perform(WM_SYSCOMMAND,SC_CONTEXTHELP,100);  

Проблема старой доброй - как симулировать клик мыши на кнопке "Вопрос" (той, которая находится рядом с кнопками минимизации на форме).

В Windows можно использовать сообщение WM_ SYSCOMMAND с параметром SC_CONTEXTHELP, чтобы запросить контекстное помошь. Однако это не будет кликать кнопку "Вопрос" для вас.

Чтобы сделать это, вам нужно использовать функцию MouseClick или отправлять последовательность сообщений WM_LBUTTONDOWN и WM_LBUTTONUP в окно.

Вот пример, как можно это сделать:

[StructLayout(LayoutKind.Sequential)]
public struct Point
{
    public int X;
    public int Y;
}

[DllImport("user32.dll")]
static extern bool SetCursorPos(int X, int Y);

// Получить handle формы
IntPtr hWnd = (IntPtr)Form.Handle;

// Получить координаты кнопки "Вопрос"
Point questionButtonLocation = new Point(10, 20); // Замените на актуальные координаты

// Переместить курсор в положение кнопки
SetCursorPos(questionButtonLocation.X, questionButtonLocation.Y);

// Симулировать левый клик мыши
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);

Обратите внимание, что код выше предполагает, что вы уже создали форму и получили ее handle. Также замените (10, 20) на актуальные координаты вашей кнопки "Вопрос".

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

Для вызова контекстного меню на форме, содержащей кнопки вопроса и минимизации, необходимо использовать функцию Perform(WM_SYSCOMMAND, SC_CONTEXTHELP, 100).

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

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

:: Главная :: Заголовок формы ::