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

解決

なべなべ  2003-12-24 13:52:36  No: 6385  IP: 192.*.*.*

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

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

よろしくお願いします。

編集 削除
Halbow  2003-12-24 14:36:25  No: 6386  IP: 192.*.*.*

Halbow です。

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

OnChanging では可能なようです。

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

編集 削除
Halbow  2003-12-24 15:29:02  No: 6387  IP: 192.*.*.*

Halbow です。

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

ページ番号でしたね。

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

編集 削除
なべなべ  2003-12-24 17:46:42  No: 6388  IP: 192.*.*.*

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

編集 削除