4.8-сурет. Меню құру терезесі.
Жоғарыда келтірілген компоненттерді орналастырып, қасиеттерін тағайындап болғанннан кейін программалар коды терезесіне көшіп, төмендегі программа мәтінін енгіземіз:
Unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,
Dialogs, Menus;
type
TForm1=class(TForm)
MainMenu1:T MainMenu;
OpenDialog1:TOpenDialog;
file1:TMenuItem;
new1:TMenuItem;
open1:TMenuItem;
exit1:TMenuItem;
windows1:TMenuItem;
cascade1:TMenuItem;
tile1:TMenuItem;
procedure new1Click(Sender; TObject);
procedure open1Click(Sender; TObject);
procedure FormClick(Sender; TObject);
procedure tile1Click(Sender; TObject);
private
{Private declarations}
public
{Public declarations}
End;
var
Form1:TForm1;
Implementaion {$R *.dfm}
procedure TForm1.open1Click(Sender; TObject);
begin
with TForm2.Create(self) do
if opendialog1.Execute then
richEdit1.Lines.LoadFormFile(opendialog1.fileName);
end;
procedure TForm1.cascade1Click(Sender; TObject);
begin
cascade;
end;
procedure TForm1.tile1Click(Sender; TObject);
begin
tile;
end;
procedure TForm1.new1Click(Sender; TObject);
begin
TForm2.Create(self);
end;
end.
Екінші формаға арналған программа мәтіні:
Unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,
Dialogs, Menus, StdCtrls, ComCtrls;
type
TForm2=class(TForm)
OpenDialog1:TOpenDialog;
RichEdit1:TRichEdit;
MainMenu1:T MainMenu;
file1:TMenuItem;
new1:TMenuItem;
open1:TMenuItem;
save1: TMenuItem;
exit1:TMenuItem;
cut1: TMenuItem;
cut2: TMenuItem;
copy1: TMenuItem;
paste1: TMenuItem;
delete1: TMenuItem;
procedure open1Click(Sender; TObject);
procedure new1Click(Sender; TObject);
procedure save1Click(Sender; TObject);
procedure close1Click(Sender; TObject);
procedure cut1Click(Sender; TObject);
procedure copy1Click(Sender; TObject);
procedure paste1Click(Sender; TObject);
procedure delete1Click(Sender; TObject);
private
{Private declarations}
public
{Public declarations}
end;
var
Form2:TForm2;
Implementaion {$R *.dfm}
procedure TForm2.open1Click(Sender; TObject);
begin
TForm1.Open1Click(Sender);
end;
procedure TForm2.new1Click(Sender; TObject);
begin
TForm1.New1Click(Sender);
end;
procedure TForm2.save1Click(Sender; TObject);
begin
if Savedialog1.Execute then
richEdit1.Lines.SaveToFile(savedialog1.fileName);
Form2.Caption:=savedialog1.fileName;
end;
procedure TForm2.close1Click(Sender; TObject);
begin
Action:=caFree;
end;
procedure TForm2.cut1Click(Sender; TObject);
begin
RichEdit1.CutToClipboard;
end;
procedure TForm2.Copy1Click(Sender; TObject);
begin
RichEdit1.CopyToClipboard;
end;
procedure TForm2.paste1Click(Sender; TObject);
begin
RichEdit1.PasteFromClipboard;
end;
procedure TForm2.delete1Click(Sender; TObject);
begin
RichEdit1.ClearSelection;
end; end.
Программаны орындағанда файлдармен жұмыс істеуге арналған терезе ашылады. Оның көрінісі 4.9-суретте келтірілген.
4.9-сурет. Файлдармен жұмыс істеуге арналған терезе.
Достарыңызбен бөлісу: |