【delphi开源代码栏目提醒】：以下是网学会员为您推荐的delphi开源代码-Frlb.pas，希望本篇文章对您学习有所帮助。

    unit Frlb;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, Fbase, StdCtrls, Buttons, ExtCtrls, ComCtrls;
    
    type
      TF_rlb = class(TF_base)
        MonthCalendar1: TMonthCalendar;
        Bevel1: TBevel;
        Edit1: TEdit;
        SpeedButton1: TSpeedButton;
        Label1: TLabel;
        Label2: TLabel;
        ComboBox1: TComboBox;
        procedure SpeedButton1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      F_rlb: TF_rlb;
    
    implementation
    
    {$R *.dfm}
    
    procedure TF_rlb.SpeedButton1Click(Sender: TObject);
    begin
      inherited;
      try
        MOnthCalendar1.Date:=strtodate(Formatdatetime('yyyy-mm-dd',strtodatetime(Edit1.Text+'-'+ComboBox1.Text+'-'+'1')));
      except
        Application.MessageBox('请输入正确的日期。','提示！',mb_ok);
      end;
    end;
    
    end.