PageControlにて、切替え前ページの取得は？

解決

なべなべ 2003-12-24 22:52:36 No: 6385

PageControlについて、教えて下さい。

ページの切替を行った場合に発生するイベント(Changing、Change)等で、
切替前のページ番号の取得は可能でしょうか？

よろしくお願いします。

Halbow 2003-12-24 23:36:25 No: 6386

Halbow です。

> 切替前のページ番号の取得は可能でしょうか？

OnChanging では可能なようです。

procedure TForm1.PageControl1Changing(Sender: TObject;
var AllowChange: Boolean);
begin
Label1.Caption := PageControl1.ActivePage.Name;
end;

Halbow 2003-12-25 00:29:02 No: 6387

Halbow です。

> 切替前のページ番号の取得は可能でしょうか？

ページ番号でしたね。

procedure TForm1.PageControl1Changing(Sender: TObject;
var AllowChange: Boolean);
begin
Label1.Caption := IntToStr(PageControl1.ActivePage.PageIndex);
end;

なべなべ 2003-12-25 02:46:42 No: 6388

Halbowさんありがとう御座いました。