Пәнінен оқу-әдістемелік кешен

жүктеу 0,82 Mb.

бет	35/41
Дата	23.11.2018
өлшемі	0,82 Mb.
	#24362

1 ... 31 32 33 34 35 36 37 38 ... 41

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-сурет. Файлдармен жұмыс істеуге арналған терезе.

жүктеу 0,82 Mb.

Достарыңызбен бөлісу:

1 ... 31 32 33 34 35 36 37 38 ... 41