掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
PageControlの右端のタブを削除したときアクティブタブを右端にするには。 (ID：33298)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
もし、VCLのソースがあれば、ComCtrls.pasの procedure TPageControl.RemovePage(Page: TTabSheet); var NextSheet: TTabSheet; begin NextSheet := FindNextPage(Page, True, not (csDesigning in ComponentState)); if NextSheet = Page then NextSheet := nil; if PageCount > 1 then if ActivePage = Pages[PageCount-1] then NextSheet := Pages[PageCount-1] else NextSheet := Page; Page.SetTabShowing(False); Page.FPageControl := nil; FPages.Remove(Page); SetActivePage(NextSheet); end; ここの最初の行を、 NextSheet := FindNextPage(Page, False{not(Pages[PageCount-1]=Page)}{True}, not (csDesigning in ComponentState)); とかに書き換えれば、思いのまま自由に動作に変えられるけど、 あ...ソースのないD6Personalじゃ無理か...
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.