【delphi开源代码栏目提醒】:以下是网学会员为您推荐的delphi开源代码-ChildUnit.pas,希望本篇文章对您学习有所帮助。
unit ChildUnit;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdActns, ActnList, Menus, StdCtrls, ComCtrls;
type
TChildForm = class(TForm)
MainMenu1: TMainMenu;
EditMenu: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
colorMenu: TMenuItem;
red: TMenuItem;
blue: TMenuItem;
black: TMenuItem;
green: TMenuItem;
ActionList1: TActionList;
Copy1: TEditCopy;
Cut1: TEditCut;
Paste1: TEditPaste;
RichEdit: TRichEdit;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure redClick(Sender: TObject);
procedure blueClick(Sender: TObject);
procedure blackClick(Sender: TObject);
procedure greenClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
ChildForm: TChildForm;
implementation
{$R *.DFM}
procedure TChildForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TChildForm.redClick(Sender: TObject);
begin
RichEdit.SelAttributes.Color := clRed;
end;
procedure TChildForm.blueClick(Sender: TObject);
begin
RichEdit.SelAttributes.Color := clBlue;
end;
procedure TChildForm.blackClick(Sender: TObject);
begin
RichEdit.SelAttributes.Color := clBlack;
end;
procedure TChildForm.greenClick(Sender: TObject);
begin
RichEdit.SelAttributes.Color := clGreen;
end;
end.
上一篇:
frmCheck2.frm
下一篇:
如何当一个轻松的班主任