[NumLock]

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

сделал по вашему варианту но все ровно происходит SC_RESTORE

Код:

procedure TProgramForm.wmsyscommand(var msg: TMessage);
var Sender:TObject;
begin
   if msg.WParam = SC_CLOSE  then
    bCloseClick(Sender)
      else
        inherited;
  if msg.WParam = SC_MAXIMIZE then
    begin
      ShowWindow(ProgramForm.Handle, SW_SHOWMAXIMIZED);
      ProgramForm.Align := alClient;
      Maximized := true;
      imResize.Visible := false;
    end;
  if msg.WParam = SC_RESTORE then
     msg.Result := 0
     else inherited;
end;

ну где же по моему то? красный инхерит вызовется перед проверкой SC_RESTORE.

Код:

if then
begin
end else if then
begin
end else if then
begin
end;

в помощь. перед вставкой в свой код хотя бы проверяй на пустом приложении работает или нет!