TabSheet i zmiana szerokości

Odpowiedz Nowy wątek
2005-01-28 18:23
0

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 :)

Pozostało 580 znaków

2005-01-28 22:33
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;

Pozostało 580 znaków

2005-01-29 11:54
0

Użyłem do tego Timera

A nie ma zdarzenia w stylu OnChange albo OnChanging?


Mam nadzieję, że pomogłem :)

Łukasz Brodny

Pozostało 580 znaków

2005-01-29 12:08
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.

Pozostało 580 znaków

Odpowiedz
Liczba odpowiedzi na stronę

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0