Delphi Gebruikersgroep

 

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