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:

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.
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
Post a Comment