|
| |
Home Up
Form verplaatsen zonder gebruik van titelbalk
Hoe kan ik een formulier versplaatsen zonder de titelbalk te gebruiken. Ik heb al wat source alleen daarmee kan ik het form verplaatsen door het form zelf aan te klikken. Maar in mijn programma is het form verborgen achter panels(align = allclient) en in die panels zitten weer images.
Hoe moet ik dit doen?
Alvast bedankt,
Mark
--
Mark,
de code :
Procedure form1.WmNCHitTest ( var Msg : TWMNCHitTest);
begin
defaultHandler(Msg);
if Msg.Result = HTCLIENT then
Msg.Result := HTCaption;
end;
werkt voor het form. Wellicht kan je dit ombuigen naar je images ?!?!?
Uiteraard in je 'private' deel ook opnemen :
procedure WmNCHitTest( var Msg : TWMNCHitTest); message WM_NCHITTEST;
Hans |