編譯沒通過
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, Calendar, ComCtrls, StdCtrls;
type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
DateTimePicker1: TDateTimePicker;
DateTimePicker2: TDateTimePicker;
Calendar1: TCalendar;
MonthCalendar1: TMonthCalendar;
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
procedure PageControl1Change(Sender: TObject);
procedure DateTimePicker1Change(Sender: TObject);
procedure Calendar1Change(Sender: TObject);
private
{ Private declarations }
procedure TForm1.pagecontrol1changing(sender:=Tobject;
var allowchange:boolean);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
DateTimePicker1.Date:=Date;
DateTimePicker2.Time:=Time;
MonthCalendar1.date:=Date;
end;
procedure TForm1.PageControl1Change(Sender: TObject);
begin
edit1.text:='當前顯示的是: '+pagecontrol1.ActivePage.Caption;
end;
procedure TForm1.DateTimePicker1Change(Sender: TObject);
var
y,m,d:word;
begin
DecodeDate(DateTimePicker1.Date,y,m,d);
Calendar1.Day:=d;
end;
procedure TForm1.Calendar1Change(Sender: TObject);
var
y,m,d:Word;
begin
DecodeDate(DateTimePicker1.Date,y,m,d);
d:=Calendar1.Day;
DateTimePicker1.Date:=EncodeDate(y,m,d);
end;
procedure TForm1.pagecontrol1changing(sender:=Tobject;
var allowchange:boolean);
var
y,m,d:Word;
begin
case pagecontrol1.activepageindex of
0:monthcalendar1.date:=datetimepicker1.date;
1:begin
datetimepicker1.date:=monthcalendar1.date;
DecodeDate(datetimepicker1.date,y,m,d);
calendar1.Day:=d;
end;
end;
end.
uj5u.com熱心網友回復：
uj5u.com熱心網友回復：
把高亮行中的“TForm1.”洗掉uj5u.com熱心網友回復：
uj5u.com熱心網友回復：
":="改":"uj5u.com熱心網友回復：
typeTForm1 = class(TForm)
內部宣告方法時，不能參考TForm1，（因為它就是TForm1上的方法）
修改：
private
{ Private declarations }
procedure pagecontrol1changing(sender:=Tobject; var allowchange:boolean);
即可。
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/91757.html
標籤：語言基礎/算法/系統設計