Hallo allemaal,
Op het Form staan meerdere Panels.
Hoe kan ik op een Form in Runtime panels verwisselen? Dus Panel1 gaat naar de plaats van Panel2 en Panel2 komt op de plaats van Panel1 te staan.
Met een vriendelijke groet, Frans
Hallo allemaal,
Op het Form staan meerdere Panels.
Hoe kan ik op een Form in Runtime panels verwisselen? Dus Panel1 gaat naar de plaats van Panel2 en Panel2 komt op de plaats van Panel1 te staan.
Met een vriendelijke groet, Frans
Dit werkt bij mij (in Lazarus):
Code:procedure TForm1.btnPanelsClick(Sender: TObject); var Links, Boven : Integer; begin Links := Panel1.Left; Boven := Panel1.Top ; Panel1.Left := Panel2.Left; Panel1.Top := Panel2.Top; Panel2.Left := Links; Panel2.Top := Boven ; end;
Gebruik je ook nog alignment van die panels? Als ze bijvoorbeeld op Align = alLeft staan, dan kan je Rechter.Left := Linker.Left doen om ze te verwisselen.
1+1=b
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks