掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
簡潔な記述 (ID：7386)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんなのは？ function GetScrollBox(TS:TTabSheet):TScrollBox; var i:integer; begin result := nil; for i := 0 to TS.ControlCount-1 do if TS.Controls[i] is TScrollBox then begin result := TScrollBox(TS.Controls[i]); exit; end; end; procedure TForm1.SpeedButton1Click(Sender: TObject); var SB:TScrollBox; begin SB := GetScrollBox(PageControl1.ActivePage); if Assigned(SB) then Label1.Caption := SB.Name; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.