delphi - System Menu for Layered Windows? -


we're having issue layered windows , system menus in delphi 2009. is, our layered windows (which have no border) have no system menu. when system menu, referring menu when clicking application's icon, right clicking it's title-bar or (in windows 7, addition of shift key,) right clicking application in task-bar:

control menus

when attempt access system menu, e.g. right-clicking on task-bar icon, of such layered window, instead layered window risen. why this? there sort of style set, or sort of event handle?

here's hastily made demo showing issue. can reproduced form bsnone borderstyle, though.

http://ompldr.org/vodd5dw

you need add ws_sysmenu style removed bsnone border style.

type   tlayeredform = class(tform)     procedure formcreate(sender: tobject);   protected     procedure createparams(var params: tcreateparams); override;   end;  ...  procedure tlayeredform.createparams(var params: tcreateparams); begin   inherited;   params.style := params.style or ws_sysmenu; end; 

Comments

Popular posts from this blog

php - What is the difference between $_SERVER['PATH_INFO'] and $_SERVER['ORIG_PATH_INFO']? -

fortran - Function return type mismatch -

queue - mq_receive: message too long -