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 ???