Ы маамммтттттngy s,,,,,,,,,,,C, xf

end;
procedure TForm1.Cut1Click(Sender: TObject);

begin

ShowMessage('New punkti');

end;
procedure TForm1.Copy1Click(Sender: TObject);

begin

ShowMessage('New punkti');

end;
procedure TForm1.Past1Click(Sender: TObject);

begin

ShowMessage('New punkti');

end;
procedure TForm1.Delete1Click(Sender: TObject);

begin

ShowMessage('New punkti');

end;
procedure TForm1.RunF91Click(Sender: TObject);

begin

ShowMessage('New punkti');

end;
procedure TForm1.StepOver1Click(Sender: TObject);

begin

ShowMessage('New punkti');

end;
procedure TForm1.Help1Click(Sender: TObject);

begin

ShowMessage('New punkti');

end;
end.
M i s o l 10.

Open, Save va Font strukturaga ega kontekstli menyu (PopupMenu) yaratilsin. Yuqoridagi 8-misoldagi proekt uchun qo’shimcha kontekstli menyu punktlarining dastursi tuzilsin.

E ch i sh

1.Yangi ilova yaratamiz.

2.Misol -8 dagi formaga Standart komponentalar palitrasidan PopupMenu komponentasini ham PopupMenu1 nom bilan o’rnatamiz. Buning uchun bu komponenta ikki marta tez-tez bosiladi.

3.PoupMenu1komponentasining Items xossasiga o’tamiz va uning uch nuqtali tugmasini bosamiz. Kontekst menyu elementlarini kiritamiz: Open, Save va Font.

4.Menyu konstruktoridan chiqmasdan Open, Save va Font buyruqlari uchun dastur kodi muharririni chaqiramiz. Ularning har biri uchun quyidagi dastur kodlarini kiritamiz.

procedure TForm1.Open1Click(Sender: TObject);

begin