delphiÈçºÎʹÏÂÀ­¿ò£¨combobox£©Ä¬ÈÏÑ¡ÔñΪµ±Ç°Ê±¼ä

delphiÈçºÎʹÏÂÀ­¿ò£¨combobox£©Ä¬ÈÏÑ¡ÔñΪµ±Ç°Ê±¼ä

---

ComboBox1.Text := TimeToStr(Now);//·ÅÔÚºÏÊʵĵط½£¬±ÈÈçonclickʼþ

²»¹ý£¬ÎªÊ²Ã´²»ÓÃTDateTimePicker

---

Delphi(Pascal) code:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
ComboBox1: TComboBox;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
combobox1.Text:=datetostr(now);
end;

end.

---

ÒýÓÃ

Delphi(Pascal) codeunit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1= class(TForm)
    ComboBox1: TComboBox;pr?-

  combobox1.Text:=datetimetostr(now);

---

formµÄoncreateʼþÀ
combobox1.itemindex:=3; //Èç¹ûµ±Ç°Ê±¼äΪµÚ4Ïî

---

combobox1.Text:=DateTimeToStr(now); °üº¬ÈÕÆÚºÍʱ¼ä
combobox1.Text:=DateToStr(now); Ö»ÒªÈÕÆÚ
combobox1.Text:=TimeToStr(now); ֻҪʱ¼ä

---

¿¿£¡