Создание модальных окон в консольных приложениях на Delphi и Pascal

Delphi , ОС и Железо , DOS и Консоль

Консольные приложения, написанные на Delphi, обычно используют текстовый интерфейс для взаимодействия с пользователем. Однако иногда возникает необходимость добавить графический интерфейс, например, модальное окно, которое будет работать в контексте консольного приложения. В этом руководстве мы рассмотрим, как создать и показать собственное модальное окно, которое будет модальным относительно окна консоли.

Проблема

Разработчики консольных приложений на Delphi и Pascal могут столкнуться с задачей интеграции графического интерфейса в консольное приложение таким образом, чтобы модальное окно отображалось поверх консоли. Это может быть необходимо, например, для добавления функциональности, для которой уже существует готовое графическое решение.

Решение

Для реализации модального окна, которое будет отображаться поверх консольного приложения, можно использовать следующий подход:

1. Определить консольное окно как родительское для вашего модального окна.
2. Отключить консольное окно, пока модальное окно отображается.

Вот пример кода, который демонстрирует этот подход:

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils,
  Windows,
  Forms,
  Unit1 in 'Unit1.pas' {Form1};
const
  ConsoleClass = 'ConsoleWindowClass';
var
  console: HWND;
  len: DWORD;
  title: array [0 .. MAX_PATH] of Char;
begin
  try
    len := GetConsoleTitle(title, SizeOf(title));
    Win32Check(Bool(len));
    console := FindWindow(ConsoleClass, title);
    Win32Check(Bool(console));
    Form1 := TForm1.Create(nil);
    try
      EnableWindow(console, False);
      try
        Form1.HandleNeeded;
        SetWindowLongPtr(Form1.Handle, GWLP_HWNDPARENT, console);
        Form1.ShowModal;
      finally
        EnableWindow(console, True);
      end;
    finally
      Form1.Free;
    end;
  except
    on E: Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.

После запуска этого кода, модальное окно (Form1) будет отображаться поверх консольного окна, и пользователь не сможет взаимодействовать с консолью до тех пор, пока модальное окно не будет закрыто.

Комментарии к решению

• Вызов HandleNeeded в коде не является обязательным, так как он обычно вызывается автоматически при обращении к свойству Handle.
• Функция DisableTaskWindows, вызываемая внутри ShowModal, не перечисляет окна консоли, поэтому консольное окно действительно отключается отдельно.

Заключение

Создание модального окна в консольном приложении на Delphi и Pascal возможно, и для этого необходимо использовать родительское окно консоли для модального диалога. Это позволяет интегрировать графический интерфейс в существующее консольное приложение, сохраняя при этом его функциональность и добавляя новые возможности.

Создано по материалам из источника по ссылке.

Создание модальных окон в консольных приложениях на Delphi и Pascal позволяет интегрировать графический интерфейс в текстовую консоль для добавления новых функциональных возможностей.

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

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

:: Главная :: DOS и Консоль ::