Какое событие происходит при переходе из оконного режима формы в полноэкраный (развернутый)?

[Luciferium]

Какое событие происходит при переходе из оконного режима формы в полноэкраный (развернутый)?

[ZhekON]

--OnResize--

[Fainder]

OnMaximize
А OnResize происходит при любом изменении размера формы.

[lamonana]

Это логично! Но его я что-то найти не могу в списке событий формы... OnResize есть, а OnMaximize нет!
Ну и где его можно найти???

[Карась]

Сообщение от lamonana

Это логично! Но его я что-то найти не могу в списке событий формы... OnResize есть, а OnMaximize нет!
Ну и где его можно найти???

OnMaximize - не событие.

Смотри параметр формы WindowState

[lamonana]

Дык, неет. Вы меня не поняли.
Мне нужно сделать так, чтобы при максимизировании окна произошло какое-то событие. Напр, параллельно изменился размер рисунка.

Как это сделать?

[mutabor]

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

[mihali4]

Сообщение от mutabor

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

А может, не стоит давать готовый код?
Может, достаточно подтолкнуть в нужном направлении?
Наверняка, автору доставит большее удовольствие дойти до всего самому...
Например, есть такая штука - WM_SIZE. Это сообщение, которое посылается форме опосля изменения ее размера. А среди значений ейного первого параметра есть и SIZE_MAXIMIZED, которое и нужно проанализировать...
Сдается мне все же, что автору будет небезынтересно самому решить эту малюсенькую проблемку...
Автору - не забывайте про существование целого сонма хэлп-файлов в каталоге ...Borland\Borland Shared\MSHelp. Наиболее для вас интересный - WIN32.HLP.
К сожалению, сам редко когда открывается по F1, нужно самому...

[mutabor]

И все же я приложу пример, без примера бывает трудно разобраться. Да и кому-то еще может пригодиться.

procedure OnMaximize(var msg: TMessage); message WM_SYSCOMMAND;

procedure TForm1.OnMaximize(var msg: TMessage);
begin
inherited;
if msg.wParam = SC_MINIMIZE then ...
if msg.wParam = SC_MAXIMIZE then ...
if msg.wParam = SC_RESTORE then ...
end;

[lamonana]

Спасибо! Приму к сведению.