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



жүктеу 3,5 Mb.
бет35/41
Дата29.05.2018
өлшемі3,5 Mb.
#18220
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-сурет. Файлдармен жұмыс істеуге арналған терезе.

жүктеу 3,5 Mb.

Достарыңызбен бөлісу:
1   ...   31   32   33   34   35   36   37   38   ...   41




©g.engime.org 2024
әкімшілігінің қараңыз

    Басты бет
рсетілетін қызмет
халықаралық қаржы
Астана халықаралық
қызмет регламенті
бекіту туралы
туралы ережені
орталығы туралы
субсидиялау мемлекеттік
кеңес туралы
ніндегі кеңес
орталығын басқару
қаржы орталығын
қаржы орталығы
құрамын бекіту
неркәсіптік кешен
міндетті құпия
болуына ерікті
тексерілу мемлекеттік
медициналық тексерілу
құпия медициналық
ерікті анонимді
Бастауыш тәлім
қатысуға жолдамалар
қызметшілері арасындағы
академиялық демалыс
алушыларға академиялық
білім алушыларға
ұйымдарында білім
туралы хабарландыру
конкурс туралы
мемлекеттік қызметшілері
мемлекеттік әкімшілік
органдардың мемлекеттік
мемлекеттік органдардың
барлық мемлекеттік
арналған барлық
орналасуға арналған
лауазымына орналасуға
әкімшілік лауазымына
инфекцияның болуына
жәрдемдесудің белсенді
шараларына қатысуға
саласындағы дайындаушы
ленген қосылған
шегінде бюджетке
салығы шегінде
есептелген қосылған
ұйымдарға есептелген
дайындаушы ұйымдарға
кешен саласындағы
сомасын субсидиялау