掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
PageControlの右端のタブを削除したときアクティブタブを右端にするには。 (ID：33296)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
パッと思いつく方法だと、こんな方法があります。 探せば他にもあるかもしれません。 procedure TForm1.Button2Click(Sender: TObject); var i:integer; begin LockWindowUpdate(PageControl1.Handle); i:=PageControl1.ActivePageIndex; PageControl1.Pages[i].Free; if (i= PageControl1.PageCount) and (i<>0) then PageControl1.ActivePageIndex:=i-1;//強制的に右端に戻す LockWindowUpdate(0); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.