main.pas

delphi的学习资料

unit Main;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, ComCtrls;
type
  TfmMain = class(TForm)
    Panel1: TPanel;    LBox: TListBox;
    GroupBox1: TGroupBox;   rbtnY: TRadioButton;  rbtnNo: TRadioButton;
    cb0: TComboBox;
    LbCbText: TLabel;    edt0: TEdit;
    Memo: TMemo;
    btnUp: TBitBtn;  btnDel: TBitBtn;  btnDown: TBitBtn;  btnDel0: TBitBtn;
    btnDel2: TBitBtn;
    btnClose: TBitBtn;
    LbCopy: TLabel;  Bevel1: TBevel;
    Button1: TButton;
    procedure FormActivate(Sender: TObject);
    procedure edt0KeyDown(Sender:TObject; var Key:Word; Shift:TShiftState);
    procedure cb0Change(Sender: TObject);
    procedure rbtnKey(Sender: TObject);
    procedure LbCopyClick(Sender: TObject);
    procedure btnUpClick(Sender: TObject);
    procedure btnDownClick(Sender: TObject);
    procedure btnDelClick(Sender: TObject);
    procedure btnDel0Click(Sender: TObject);
    procedure btnCloseClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  end;
var
  fmMain: TfmMain;
  

implementation  ////////////////////////////////////////////
{$R *.DFM}

procedure TfmMain.FormActivate(Sender: TObject);
begin
  LBox.MultiSelect:=True;
  LBox.Items.Text:='';
  rbtnY.Checked:=True;
  cb0.Items.Clear;
  cb0.DropDownCount:=5;
  rbtnY.Checked:=True;
  try
    Memo.Lines.LoadFromFile('D:\MyD\001.txt');
  except
    Application.MessageBox(' 文件未找到！ ','  提示',MB_IconInformation+MB_OK);
  end;
end;

procedure TfmMain.edt0KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then
    begin
      cb0.Items.Add(edt0.Text);
      cb0.DroppedDown:=True;
      LBox.Items.Add('#'+edt0.Text);
      edt0.Text:='';
    end
  else
    cb0.DroppedDown:=False;
  cb0.ItemIndex:=cb0.Items.Count-1;
end;

procedure TfmMain.cb0Change(Sender: TObject);
begin
  LbCbText.Caption:=cb0.Text; // 或 :=cb0.Items[cb0.ItemIndex];
  Memo.Text:=cb0.Items.Text;
end;

procedure TfmMain.rbtnKey(Sender: TObject);
begin
  if rbtnY.Checked then
    cb0.Style:=csDropDown
  else
    begin
      cb0.Style:=csDropDownList;
      cb0.ItemIndex:=0;
    end;
end;

procedure TfmMain.LbCopyClick(Sender: TObject);
var i: word;
begin
  for i:=0 to LBox.Items.Count-1 do
  begin
    if LBox.Selected[i] then
      Memo.Lines.Add(LBox.Items[i]);
  end;
end;

procedure TfmMain.btnUpClick(Sender: TObject);
begin
  if LBox.ItemIndex > 0 then
    LBox.Items.Move(LBox.ItemIndex,LBox.ItemIndex-1);
end;

procedure TfmMain.btnDownClick(Sender: TObject);
begin
  if LBox.ItemIndex < LBox.Items.Count-1 then
    LBox.Items.Move(LBox.ItemIndex,LBox.ItemIndex+1);
end;

procedure TfmMain.btnDelClick(Sender: TObject);
begin
  LBox.Items.Delete(LBox.ItemIndex);
end;

procedure TfmMain.btnDel0Click(Sender: TObject);
begin
  if LBox.Items.Count<>0 then
    LBox.Items.Delete(0);
end;

procedure TfmMain.btnCloseClick(Sender: TObject);
begin
  Close;
end;

procedure TfmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if Trim(Memo.Lines.Text)='' then
    Exit;
  if Application.MessageBox('Memo内容是否保存到文件？ ',
      '提示',MB_IconInformation+MB_YesNo+MB_DefButton2)=IDYes then
    Memo.Lines.SaveToFile('D:\MyD\001.txt');
end;

procedure TfmMain.Button1Click(Sender: TObject);
begin
  LBox.Items.Insert( LBox.ItemIndex,'#######');
end;

end.