Доброго времени суток) мне задали написать программку за день до экзамена, а занятий по программированию небыло(заочная форма обучения), так как еще очень плохо в этом разбираюсь решил спросить у вас)
Вот сама задача: На форме располагаются: главное меню с шестью опциями-названиями животных, контейнер Image, кнопка Close и радионабор для выбора животного. Выбор осуществляется мышью или клавишами клавиатуры (®, ¬ или *, ¯). Выбранное животное отображается на элементе Image, а соответствующая ему опция в меню становится невидимой. Кнопка Close заканчивает программу.
вот код что я заготовил, но немогу понять как сделать, прочитал уже 4 книги и про каждый оператор, но что только не делаю не выходит:
Код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, ExtCtrls, ImgList;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
Close1: TMenuItem;
Button1: TButton;
Image1: TImage;
OpenDialog1: TOpenDialog;
procedure Close1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Close1Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
end;
procedure TForm1.N5Click(Sender: TObject);
begin
end;
procedure TForm1.N6Click(Sender: TObject);
begin
end;
procedure TForm1.N7Click(Sender: TObject);
begin
end;
procedure TForm1.N2Click(Sender: TObject);
begin
end;
end.
Помогите сделать пожалуйста) уже и на курсы записался, но экзамен завтра.