Как использовать событие WM_GETMINMAXINFO?

[xterro]

Приветствую, на WinAPI создаю окно, пытаюсь с помощью события WM_GETMINMAXINFO ограничить его максимальный и минимальный размер, но ничего не выходит, помогите примером:

Код: Выделить всё

function wnd_proc(window: hwnd; amessage, wparam, lparam: longint): longint; stdcall; export;
    var
        pmmi : ^MINMAXINFO;
    begin
 
    . . .
    WM_GETMINMAXINFO:
            begin
                pmmi := MINMAXINFO(lparam);  // тут ругается, типа не могу привести LongInt к MINMAXINFO :(
               // mmi.ptMinTrackSize.x = 450;
               
                exit;
            end;
    end;


Пытался ещё так:
pmmi := ^MINMAXINFO(lparam);
говорит, мол Incompatible types: got "Char" expected "^MINMAXINFO"

Как правильно преобразовывать?

[CynicRus]

М-м-м-м....ну как-то примерно так оно работает:

Код: Выделить всё

WM_GETMINMAXINFO: begin
        with PMinMaxInfo(lParam)^ do begin
          ptMinTrackSize.X := Data.Width;
          ptMinTrackSize.Y := Data.Height;
        end;


[xterro]

О чудо, оно работает! Спасибо. Интересно, а без PMinMaxInfo никак не обойтись или обязательно через промежуточный тип присваивать?

[Дож]

Интересно, а без PMinMaxInfo никак не обойтись или обязательно через промежуточный тип присваивать?

Можно обойтись:

Код: Выделить всё

MINMAXINFO(Pointer(lParam)^)


Но непонятно зачем.

[xterro]

Привык к Си-стилю

[Дож]

В Си стиле всегда не получится, а иногда будет некрасиво

[bormant]

Код: Выделить всё

WM_GETMINMAXINFO: begin
        with PMinMaxInfo(lParam)^ do begin
          ptMinTrackSize.X := Data.Width;
          ptMinTrackSize.Y := Data.Height;
        end;

Практичнее:

Код: Выделить всё

      WM_GETMINMAXINFO:
        with PMinMaxInfo(lParam)^.ptMinTrackSize do begin
          X := Data.Width;
          Y := Data.Height;
        end;

[xterro]

Спасибо