procedure TMainForm.HelpAboutExecute(Sender: TObject);
begin
Application.CreateForm(Tfrm_About, frm_About);
frm_About.ShowModal;
end;
procedure TMainForm.Tools_SortExecute(Sender: TObject);
begin
OpenForm(Tfrm_Sort,frm_Sort, self);
end;
procedure TMainForm.Tools_ChartExecute(Sender: TObject);
begin
OpenForm(Tfrm_Chart,frm_Chart, self);
end;
procedure TMainForm.N0Click(Sender: TObject);
begin
//打开记事本
if sender=N11 then
begin
Winexec('Notepad.exe',sw_Normal);
end;
//打开计算器
if sender=N10 then
begin
Winexec('CALC.EXE',sw_Normal);
end;
end;
procedure TMainForm.N12Click(Sender: TObject);
begin
N12.Checked:=not N12.Checked;
if N12.Checked then ToolBar2.Visible:=True else ToolBar2.Visible:=False;
end;
procedure TMainForm.N13Click(Sender: TObject);
begin
N13.Checked:=not N13.Checked;
if N13.Checked then StatusBar.Visible:=True else StatusBar.Visible:=False;
end;
procedure TMainForm.Tools_Chart1Execute(Sender: TObject);
begin
OpenForm(Tfrm_Chart1,frm_Chart1, self);
end;
procedure TMainForm.Tools_Chart2Execute(Sender: TObject);
begin
OpenForm(Tfrm_Chart2,frm_Chart2, self);
end;
procedure TMainForm.FormShow(Sender: TObject);
begin
YQ_LabExecute(Sender);
end;
