delphin代码.docVIP

颜色： if colordialog1.Execute then memo1.Color:=colordialog1.Color; 字体： if fontdialog1.Execute then memo1.Font:=fontdialog1.Font; 工具栏：左对齐：memo1.Alignment:=taleftjustify; m_optionleft.Checked:=true; m_optioncenter.Checked:=false; m_optionright.Checked:=false; radiogroup1.ItemIndex:=0; 居中：memo1.Alignment:=tacenter; m_optionleft.Checked:=false; //选中标记 m_optioncenter.Checked:=true; m_optionright.Checked:=false; radiogroup1.ItemIndex:=1; //单选按钮组第一项被选中 右对齐：memo1.Alignment:=tarightjustify; m_optionleft.Checked:=false; //选中标记 m_optioncenter.Checked:=false; m_optionright.Checked:=true; radiogroup1.ItemIndex:=2; //单选按钮组第一项被选中 //设置颜色 procedure TForm1.btn_colorClick(Sender: TObject); begin if colordialog1.Execute then memo1.Color:=colordialog1.Color; end; //设置字体 procedure TForm1.btn_fontClick(Sender: TObject); begin if fontdialog1.Execute then memo1.Font:=fontdialog1.Font; end; //更改内容 procedure TForm1.btn_textClick(Sender: TObject); begin memo1.ReadOnly:=not memo1.ReadOnly; end; //按钮组中设定对齐方式 procedure TForm1.RadioGroup1Click(Sender: TObject); begin case radiogroup1.ItemIndex of 0: begin //左对齐 memo1.Alignment:=taleftjustify; m_optionleft.Checked:=true; //菜单项选中标记 m_optioncenter.Checked:=false; m_optionright.Checked:=false; end; 1: begin //居中 memo1.Alignment:=tacenter; m_optionleft.Checked:=false; m_optioncenter.Checked:=true; m_optionright.Checked:=false; end; 2: begin //右对齐 memo1.Alignment:=tarightjustify; m_optionleft.Checked:=false; m_optioncenter.Checked:=false; m_optionright.Checked:=true; end; //居中菜单命令项 procedure TForm1.m_optioncenterClick(Sender: TObject); begin memo1.Alignment:=tacenter; m_optionleft.Checked:=false; //选中标记 m_optioncenter.Checked:=true; m_optionright.Checked:=false; radiogroup1.ItemIndex:=1; //单选按钮组第一项被选中 end; //左对齐菜单命令项 procedure TForm1.m_optionleftClick(Sender: TObject); begin memo1.Alignment:=taleftjustify; m_optionleft.Checked:=true; m_optioncenter.Checked:=false; m_opti