ｿｽ@ ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

ｿｽｿｽｿｽc 2009/02/08(ｿｽｿｽ) 18:28:23

WindowsXPｿｽ@DelphiｿｽUpersonalｿｽﾅゑｿｽｿｽB
ｿｽｿｽ{ｿｽIｿｽﾈゑｿｽｿｽﾆでゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
Pagecontrolｿｽﾅ難ｿｽｿｽIｿｽﾉ包ｿｽｿｽｿｽｿｽﾌタｿｽuｿｽｿｽ成ｿｽｿｽｿｽAｿｽEｿｽ[ｿｽﾌタｿｽuｿｽｿｽ除ｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽ[ｿｽﾌ０ｿｽﾔのタｿｽuｿｽｿｽｿｽAｿｽNｿｽeｿｽBｿｽuｿｽﾉなゑｿｽﾜゑｿｽｿｽB
ｿｽrｿｽｿｽｿｽﾌタｿｽuｿｽｿｽ除ｿｽｿｽｿｽｿｽﾆアｿｽNｿｽeｿｽBｿｽuｿｽﾔ搾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ^ｿｽuｿｽｿｽAｿｽNｿｽeｿｽBｿｽuｿｽﾉゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽdｿｽlｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽEｿｽ[ｿｽﾌタｿｽuｿｽｿｽ除ｿｽｿｽｿｽｿｽｿｽ邇滂ｿｽﾉゑｿｽﾍゑｿｽEｿｽ[ｿｽﾌタｿｽuｿｽｿｽ
ｿｽAｿｽNｿｽeｿｽBｿｽuｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽ
PageControl1.ActivePageIndex:=PageControl1.PageCount-1;
ｿｽﾅ具ｿｽｿｽｿｽｿｽIｿｽﾉ戻ゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽ¥ｿｽ[ｿｽXｿｽﾌ残ｿｽ閧ｪｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ^ｿｽuｿｽｿｽ除ｿｽｿｽｿｽｿｽﾌに擾ｿｽｿｽｿｽｿｽｿｽｿｽﾔのゑｿｽｿｽｿｽｿｽｿｽ謔､ｿｽｿｽ
ｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾈどゑｿｽ¥ｿｽｿｽtｿｽｿｽｿｽﾄ難ｿｽｿｽｿｽｿｽｿｽｿｽdｿｽｿｽｿｽﾆゑｿｽｿｽﾍ、
ｿｽﾍゑｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽOｿｽﾔゑｿｽAｿｽNｿｽeｿｽBｿｽuｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽｿｽ
ｿｽEｿｽ[ｿｽｿｽAｿｽNｿｽeｿｽBｿｽuｿｽﾉゑｿｽｿｽｿｽﾌゑｿｽｿｽﾚに鯉ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽiｿｽｿｽﾊの揺ｿｽ轤ｬｿｽﾌ鯉ｿｽｿｽｿｽｿｽﾉゑｿｽﾈゑｿｽﾜゑｿｽｿｽj
ｿｽrｿｽｿｽｿｽﾌタｿｽuｿｽｿｽ除ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾌようｿｽﾉスｿｽｿｽｿｽ[ｿｽXｿｽﾉゑｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽｿｽｿｽLｿｽﾍボｿｽ^ｿｽｿｽｿｽﾆ２ｿｽﾂゑｿｽPageControlｿｽｿｽ¥ｿｽｿｽtｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌテｿｽXｿｽgｿｽRｿｽ[ｿｽhｿｽﾅゑｿｽｿｽB
//ｿｽVｿｽKｿｽyｿｽ[ｿｽWｿｽ成
procedure TForm1.Button1Click(Sender: TObject);
begin
    with TTabSheet.Create(PageControl1) do
    begin
        PageControl := PageControl1;
        Name := 'ts' + inttostr(Form1.PageControl1.PageCount);
        Caption := inttostr(Form1.PageControl1.PageCount);
   end;
end;
//ｿｽ^ｿｽuｿｽﾌ削除ｿｽiｿｽEｿｽ[ｿｽﾌタｿｽuｿｽｿｽ除ｿｽｿｽｿｽｿｽﾆ搾ｿｽｿｽ[ｿｽﾌタｿｽuｿｽｿｽｿｽAｿｽNｿｽeｿｽBｿｽuｿｽﾉなゑｿｽj
procedure TForm1.Button2Click(Sender: TObject);
var
  i:integer;
begin
  i:=PageControl1.ActivePageIndex;
  PageControl1.Pages[i].Free;
ｿｽ@//PageControl1.ActivePageIndex:=PageControl1.PageCount-1;//ｿｽｿｽｿｽｿｽｿｽIｿｽﾉ右ｿｽ[ｿｽﾉ戻ゑｿｽ
end;

para 2009/02/08(ｿｽｿｽ) 20:43:10

ｿｽｿｽﾉ右ｿｽ[-1ｿｽｿｽAｿｽNｿｽeｿｽBｿｽuｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽｿｽEｿｽ[ｿｽｿｽ除ｿｽｿｽｿｽｿｽﾌではゑｿｽｿｽﾟなゑｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB

ｿｽｿｽｿｽc 2009/02/09(ｿｽｿｽ) 01:10:21

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ早托ｿｽｿｽｿｽｿｽXｿｽLｿｽｿｽうｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾛのプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾅは、ｿｽｿｽｿｽﾌようｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽ黷ｪｿｽｿｽｿｽﾌとゑｿｽｿｽｿｽｿｽﾔ揺ｿｽ黷ｪｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽuｿｽﾅゑｿｽｿｽｿｽｿｽｿｽﾍゑｿｽOｿｽﾔゑｿｽｿｽAｿｽNｿｽeｿｽBｿｽuｿｽﾉなゑｿｽ謔､ｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽﾅでゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾆ考ｿｽｿｽｿｽｿｽｿｽ閧ｵｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽB
ｿｽLｿｽｿｽうｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

monaa 2009/02/09(ｿｽｿｽ) 02:34:14

ｿｽpｿｽbｿｽﾆ思ｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽﾆ、ｿｽｿｽｿｽｿｽﾈ包ｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽTｿｽｿｽｿｽﾎ托ｿｽｿｽﾉゑｿｽｿｽｿｽ驍ｩｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
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;//ｿｽｿｽｿｽｿｽｿｽIｿｽﾉ右ｿｽ[ｿｽﾉ戻ゑｿｽ
  LockWindowUpdate(0);
end;

ｿｽｿｽｿｽc 2009/02/10(ｿｽｿｽ) 21:44:57

monnaｿｽｿｽｿｽｿｽAｿｽLｿｽｿｽうｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾌ鯉ｿｽAｿｽﾇゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌゑｿｽ
ｿｽｿｽｿｽｿｽｿｽqｿｽｿｽｿｽgｿｽﾍなゑｿｽｿｽｿｽｿｽﾆ再びゑｿｽｿｽｿｽｿｽｿｽKｿｽ黷ｽｿｽｿｽRｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ
ｿｽﾇゑｿｽﾒゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽﾓゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾔゑｿｽSleipnirｿｽｿｽｿｽｿｽﾌようｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽｿｽﾌでは？ｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB

  2009/02/11(ｿｽｿｽ) 11:37:13

ｿｽｿｽｿｽｿｽAVCLｿｽﾌソｿｽ[ｿｽXｿｽｿｽｿｽｿｽｿｽｿｽﾎ、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;

ｿｽｿｽｿｽｿｽｿｽﾌ最擾ｿｽｿｽﾌ行ｿｽｿｽA
  NextSheet := FindNextPage(Page, False{not(Pages[PageCount-1]=Page)}{True}, not (csDesigning in ComponentState));
ｿｽﾆゑｿｽｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎ、ｿｽvｿｽｿｽｿｽﾌまま趣ｿｽｿｽRｿｽﾉ難ｿｽｿｽｿｽﾉ変ゑｿｽｿｽｿｽｿｽ驍ｯｿｽﾇ、
ｿｽｿｽ...ｿｽ¥ｿｽ[ｿｽXｿｽﾌなゑｿｽD6Personalｿｽｿｽｿｽ癘ｳｿｽｿｽｿｽｿｽ...

Created by board of various Programming Library.