DelFusa Blog 総本山

プログラミングの話題とかです。

NEW | PAGE-SELECT | NEXT

≫ EDIT

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

| スポンサー広告 | --:-- | comments(-) | trackbacks(-) | TOP↑

≫ EDIT

タブ幅を調整するコード


 ∫,,,,,,,,,∧,,∧  ちょっとしたことですが
⊂,,,,,,,,,つ,,゚Д゚ミつ

タブコントロールを使ってみました。
ページコントロールとたぶん制御は同じだと思うが

タブをスクロール切り替えとか多段表示したくなかったので
全体の横幅が狭くなったらそれに合わせてタブの幅を調整するコード書いてみた。




procedure TForm1.TabControl1Resize(Sender: TObject);
begin
 TabWidthAdjust;
end;

//タブ幅調整
procedure TForm1.TabWidthAdjust;
var
 AllTabWidth: Integer;
const
 WideTabWidth: Integer = 100;
begin
 AllTabWidth := TabControl1.Width-10;

 if (AllTabWidth) <= (TabControl1.Tabs.Count * WideTabWidth) then
 begin
  TabControl1.TabWidth := (AllTabWidth) div TabControl1.Tabs.Count;
 end else
 begin
  TabControl1.TabWidth := WideTabWidth;
 end;
end;

えっと、、、、こんなコード書かなきゃ出来ないの...かな?
プロパティ設定を一カ所いじるだけでコード書かなくても実現。

とかに、なりませんか??
スポンサーサイト

| 未分類 | 00:08 | comments:0 | trackbacks:0 | TOP↑

COMMENT















非公開コメント

TRACKBACK URL

http://delfusa.blog65.fc2.com/tb.php/41-bc3317d5

TRACKBACK

PREV | PAGE-SELECT | NEXT

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。