TabControlと他コンポーネントの連動(VBで曰くload関数) (ID：12626)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

ついでに TabSheetも作りました

procedure TForm1.Button1Click(Sender: TObject);
  var i : integer;
      CloneMemo : TMemo;
      MemoRect : TRect;
      s : string;
begin
  s := DateTimeToStr(Now);
  TabControl1.Tabs.add(s);

CloneMemo := nil;
  for i := 0 to TabControl1.ControlCount-1 do
   if TabControl1.Controls[i] is TMemo then
    begin
      CloneMemo := TMemo(TabControl1.Controls[i]);
      break;
    end;
  if CloneMemo=nil then
   begin
     CloneMemo := TMemo.Create(TabControl1);
     CloneMemo.Parent := TabControl1;
     MemoRect := TabControl1.DisplayRect;
     CloneMemo.Top    := MemoRect.Top;
     CloneMemo.Left   := MemoRect.Left ;
     CloneMemo.Height := MemoRect.Bottom - MemoRect.Top;
     CloneMemo.Width  := MemoRect.Right - MemoRect.Left;
   end;
  CloneMemo.Clear;
  CloneMemo.Lines.Add(s);
end;

procedure TForm1.TabControl1Change(Sender: TObject);
  var i : integer;
      CloneMemo : TMemo;
begin
  CloneMemo := nil;
  for i := 0 to TabControl1.ControlCount-1 do
   if TabControl1.Controls[i] is TMemo then
    begin
      CloneMemo := TMemo(TabControl1.Controls[i]);
      break;
    end;
  if CloneMemo<>nil then
   CloneMemo.Text := TabControl1.Tabs[TabControl1.TabIndex];
end;

←解決時は質問者本人がここをチェックしてください。

戻る