Kolejny raz kiedy piszę progam to znajduję jakiś problem - teraz nie wiem jak ustawić oddzielną szerokość dla każdego z TabSheet-ów z PageControl.
Wszelka pomoc mile widziana :)
0
0
Wymyśliłem banalny sposób, ale działający jak chcesz :) Mam nadzieję, że o to Ci chodzi. Użyłem do tego Timera i ustawiłem reakcję 10ms. Nic innego nie byłem w stanie wymyśleć.
//Interval timera ustaw na 10ms
procedure TForm1.Timer1Timer(Sender: TObject);
begin
//tabsheet1
if pagecontrol1.ActivePage=tabsheet1 then
pagecontrol1.Width:=250;
//tabsheet2
if pagecontrol1.ActivePage=tabsheet2 then
pagecontrol1.Width:=300;
//tabsheet3
if pagecontrol1.ActivePage=tabsheet3 then
pagecontrol1.Width:=420;
end;
0
Użyłem do tego Timera
A nie ma zdarzenia w stylu OnChange albo OnChanging?
0
Nie - niestety nie o ten efekt mi chodziło. Chciałbym aby długość tabSheet-a była ustalana po długości tekstu - tak jak to mam miejsce podczas dodawania itemów do PageControl. Wygląda to wtedy tak, że np. TabSheet1 ma długość 50, a TabSheet2, który ma krótszą nazwę, ma 30. Niestety u mnie nie da się wstawić itemów w PageControl w czasie projektowania programu ponieważ wszystki TabSheet-y są generowane dynamicznie, podczas działania programu.