Delphi PPT第6章 常用组件..ppt

常用组件 面板组件Panel的常用属性 使用组件的例子 下面给出一个例子，将上面介绍的各种输入组件的使用作一个介绍。 首先新建一个工程，然后往里面加入Edit组件，Memo组件、MaskEdit组件和RichEdit组件以及几个Button组件。窗体如下图所示： 首先为Edit组件添加OnKeyDown事件： procedure TForm4.mEditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin //当按下回车后把Edit组件中的文本添加到给Memo组件里 if(Key=13) then mMemo.Lines.Add(mEdit.Text); end; 为其他按钮的时间添加如下代码： procedure TForm4.Button3Click(Sender: TObject); begin //当Memo组件中有文本时，把Memo组件中的文本的最后一行删除 if(mMemo.Lines.Count0) then mMemo.Lines.Delete(mMemo.lines.Count-1); end; procedure TForm4.Button1Click(Sender: TObject); begin //当M