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

    unit movefrmunit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, jpeg, ExtCtrls, StdCtrls;
    
    type
      Tmovefrm = class(TForm)
        title_lb: TLabel;
        msg_lb: TLabel;
        date_lb: TLabel;
        procedure FormCreate(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      movefrm: Tmovefrm;
    
    implementation
    
    {$R *.dfm}
    
    procedure Tmovefrm.FormCreate(Sender: TObject);
    begin
    date_lb.Caption :='今天是'+datetostr(now);
    end;
    
    end.
    

上一篇：frm_gw.frm
下一篇：经典心理语录净化心灵