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

解決


なべなべ  2003-12-24 22:52:36  No: 6385  IP: [192.*.*.*]

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

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

よろしくお願いします。

編集    削除
Halbow  2003-12-24 23: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-25 00: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-25 02:46:42  No: 6388  IP: [192.*.*.*]

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

編集    削除