Question

Delphi中form create 一直不制动执行，看看我代码有什么错误

建了一个窗体 就加了一个PageControl控件 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls; type TForm1 = class(TForm) PageControl1: TPageControl; procedure FormCreate(Sender: TObject); procedure PageControl1Change(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); var i:integer; begin for i:=0 to 9 do with TTabSheet.Create(self) do begin PageControl:=PageControl1; caption:='TabSheet #'+IntToStr(i); end; end; procedure TForm1.PageControl1Change(Sender: TObject); var prevcaption,nextcaption:shortstring; begin with (sender as tpagecontrol) do begin prevcaption:=findnextpage(activepage,false,false).caption; nextcaption:=findnextpage(activepage,true,false).caption; end; showmessage('previous tab caption:"'+prevcaption+ '" next tab caption: "'+nextcaption+'"') ; end; end.

Answer 1

点击pagecontrol控件，在属性框中点击事件标签页，看看它的OnChange事件是否和这个方法绑到了一起，如果没有，把这个方法名PageControl1Change粘贴到OnChange事件中试试吧。