Конференция "KOL" » WS_SYSMENU style cause Resize disappear [Delphi, Windows]
 
  • nhatdung (04.05.09 20:35) [0]
    Hello,

    I'm trying to create a form with no border + can resize + have sysmenu + can minimize

    However when i set the :

    Form.HasBorder := False;

    and Form.Style := Form.Style or WS_SYSMENU then the size mouse icon dissapear! does anyone know how to get it back ?

    Btw : I control the size mouse icon use this :

    function FormProcAfter(Sender: PControl; var Msg: TMsg; var Rslt: Integer): Boolean;
    var X, Y, L, R, B, T : integer;
    begin
     Result := False;
     if Msg.message = WM_NCHITTEST then
        begin
          Result := True;
          Sender.CallDefWndProc( Msg );
          Rslt := HTTOPLEFT;
       end;
    end;

    Form.AttachProc(@FormProc);


    hmm, did i do something wrong ???
 
Конференция "KOL" » WS_SYSMENU style cause Resize disappear [Delphi, Windows]
Есть новые Нет новых   [134431   +12][b:0][p:0.001]