unit1.pas

学籍管理系统 学籍管理系统 学籍管理系统 学籍管理系统

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    FontDialog1: TFontDialog;
    ColorDialog1: TColorDialog;
    PrintDialog1: TPrintDialog;
    PrinterSetupDialog1: TPrinterSetupDialog;
    FindDialog1: TFindDialog;
    ReplaceDialog1: TReplaceDialog;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    procedure N2Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N25Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  formopened: integer;

implementation
 uses unit2;
{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);
begin
   form2:=tform2.create(self);
   formopened := formopened + 1 ;
   form2.Show;
   form2.Caption:='新文档'+inttostr(formopened);
end;

procedure TForm1.N14Click(Sender: TObject);
begin
  close;
end;

procedure TForm1.N9Click(Sender: TObject);
begin
if opendialog1.Execute then
  begin
     form2.RichEdit1.Lines.LoadFromFile(opendialog1.FileName);
     form2.Caption:=opendialog1.FileName;
     form2.show;
  end;
end;
procedure TForm1.N10Click(Sender: TObject);
begin
  if savedialog1.Execute then
  begin
    tform2(ActiveMDIChild).RichEdit1.Lines.SaveToFile(savedialog1.FileName);
  end;
end;

procedure TForm1.N11Click(Sender: TObject);
begin
 if savedialog1.Execute then
  begin
    tform2(ActiveMDIChild).RichEdit1.Lines.SaveToFile(savedialog1.FileName);
  end;
end;

procedure TForm1.N12Click(Sender: TObject);
begin
 activeMDIchild.Close;
end;

procedure TForm1.N13Click(Sender: TObject);
var
  i,n : integer;
begin
  n := MDIchildcount;
  for i := n-1 downto 0 do
    MDIchildren[i].Close;
end;
procedure tform1.FormCreate(Sender: TObject);
begin
  formopened := 0;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
    tform2(ActiveMDIChild).RichEdit1.Undo;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
  tform2(ActiveMDIChild).RichEdit1.cuttoclipboard;
end;

procedure TForm1.N6Click(Sender: TObject);
begin
  tform2(ActiveMDIChild).RichEdit1.copytoclipboard;
end;

procedure TForm1.N7Click(Sender: TObject);
begin
   tform2(ActiveMDIChild).RichEdit1.pastefromclipboard;
end;

procedure TForm1.N16Click(Sender: TObject);
begin
  tile;
end;

procedure TForm1.N17Click(Sender: TObject);
begin
  cascade;
end;

procedure TForm1.N24Click(Sender: TObject);
begin
  with tform2(ActiveMDIChild).RichEdit1.SelAttributes do
  begin
    if colordialog1.Execute then
    begin
      color:=colordialog1.Color;
    end;
  end;
end;

procedure TForm1.N23Click(Sender: TObject);
begin
  with tform2(ActiveMDIChild).RichEdit1.SelAttributes do
  begin
    if fontdialog1.Execute then
    begin
    Tform2(activeMDIchild).richedit1.SelAttributes.Name := fontdialog1.Font.Name;
    tform2(activeMDIchild).richedit1.SelAttributes.Size := fontdialog1.Font.Size;
    tform2(activeMDIchild).richedit1.SelAttributes.Style := fontdialog1.Font.Style;
    tform2(activeMDIchild).richedit1.SelAttributes.Color := fontdialog1.Font.Color;

    end;
  end;
end;
procedure TForm1.N19Click(Sender: TObject);
var
  S : string;
  I,J : integer;
begin
  if MDIchildcount > 0 then
  begin
    S := UpperCase(TForm2(activeMDIchild).richedit1.SelText);
    Tform2(activeMDIchild).richedit1.SelText := s;
    I := tform2(activeMDIchild).richedit1.SelStart;
    J := TForm2(activeMDIchild).richedit1.SelLength;
    TForm2(activeMDIchild).richedit1.perform(em_setsel,I,J);
  end;
 end;
procedure TForm1.N20Click(Sender: TObject);
var
  S : string;
  I,J : integer;
begin
  if MDIchildcount > 0 then
  begin
    S := LowerCase(TForm2(activeMDIchild).richedit1.SelText);
    I := TForm2(activeMDIchild).richedit1.SelStart;
    J := TForm2(activeMDIchild).richedit1.SelLength;
    TForm2(activeMDIchild).richedit1.SelText := s;
    TForm2(activeMDIchild).richedit1.SelStart := i;
    TForm2(activeMDIchild).richedit1.SelLength := j;
    {TForm2(activeMDIchild).richedit1.perform(em_setsel,I,J);}
  end;
end;
procedure TForm1.N22Click(Sender: TObject);
begin
 next;
end;

procedure TForm1.N21Click(Sender: TObject);
begin
   Previous;
end;

procedure TForm1.N8Click(Sender: TObject);
var
  FoundAt: LongInt;
  StartPos, ToEnd: Integer;
begin
  if MDIchildcount = 0 then exit;
  finddialog1.Execute;
  TForm2(activeMDIchild).activecontrol := TForm2(activeMDIchild).richedit1;
end;

procedure TForm1.N25Click(Sender: TObject);
begin
  if MDIchildcount = 0 then exit;
  replacedialog1.Execute;
  TForm2(activeMDIchild).activecontrol := TForm2(activeMDIchild).richedit1;
end;

end.