Создать MDI окно с координатами 0,0

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

Создать MDI окно с координатами 0,0

Code:

procedure TFormX.FormCreate(Sender:  TObject);

        Var

          r:  TRect;

           client: HWND;

        Begin

          client  := application.mainform.clienthandle;

           Windows.GetClientRect( client, r );

           MapWindowPoints( client, HWND_DESKTOP, r, 2  );

           BoundsRect := r;

        End;

Статья Создать MDI окно с координатами 0,0 раздела Программа и Интерфейс MDI приложения может быть полезна для разработчиков на Delphi и FreePascal.

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

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

:: Главная :: MDI приложения ::

19.04.2024 12:03:33/0.061983108520508/2