23. november 2009 - 16:21
Der er
3 kommentarer og
1 løsning
Tpagecontrol i scrollbox - minHeight/widt
Hej,
Jeg har en form med en scrollbox.
I scrollbox'en er der en TpageControl med 2 tabs.
Scrollbox er anchoret til formen alle fire veje.
Tpagecontrol er align=alClient, og har minHeight = 200
Når formen resizes så resize alt som det skal.
Når formen bliver lille så forbliver Tpagecontrol på 200 som den skal, men scrollboxen får ikke scrollbars på.
Hvordan sætter man ovenståen rigtigt op, så scrollbox får scrollbars når Tpagecontrolen når minimum size?
23. november 2009 - 16:24
#1
Man kan også få samme resultat med en Tedit i scrollboxen.
Når editboxen når sit minimum, så stikker den uden for scrollboxen, uden at scrollbars enables.
23. november 2009 - 17:02
#2
Hvis du styre højden på din TpageControl manuelt i scrollbox'ens OnResize så virker det.
procedure TForm1.ScrollBox1Resize(Sender: TObject);
begin
PageControl1.Width:=ScrollBox1.ClientWidth;
if ScrollBox1.ClientHeight>200 then
PageControl1.Height:=ScrollBox1.ClientHeight;
end;
