지금 Del3를 쓸 수 없지만, 제 생각에는 Del3에두 TMonthCalendar가 있을거구요..

아래소스를 참고하셔서 사용해 보세요...



type

TForm1 = class(TForm)

Button1: TButton;

Label1: TLabel;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

MonthCalendar : TMonthCalendar;

procedure CalendarClick(Sender : TObject);

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation



{$R *.DFM}



procedure TForm1.Button1Click(Sender: TObject);

begin

if MonthCalendar = nil then

begin

MonthCalendar := TMonthCalendar.Create(Self);

MonthCalendar.Parent := Self;

MonthCalendar.OnClick := CalendarClick;

MonthCalendar.Left := 20;

MonthCalendar.Top := 20;

MonthCalendar.Show;

end

else

begin

MonthCalendar.Free;

MonthCalendar := nil;

end;

end;



procedure TForm1.CalendarClick(Sender : TObject);

var

ADate : TDate;

begin

ADate := MonthCalendar.Date;

Label1.Caption := DateToStr(ADate);

end;







초보자 wrote:

>

> 임의로 만든 버튼을 클릭시 DateTimePicker에서 달력보여주는

> 기능을 대신하고 싶거든요...

> 물어보니 TMonthCalendar를 사용하라고 하시는데

> 전 del3이라 그 컴포넌트가 없는 것 같애요...

> 어쩌죠....

> 무슨 함수를 써야 그 기능을 대신할 수 있죠?

>