Код для события Click Компонента button1

procedure TForm1.Button1Click(Sender: TObject);

begin

memo1.lines.add(Edit1.text);

memo1.lines.add(listbox1.items[listbox1.itemindex]);

memo1.lines.add(combobox1.text);

end;

задействует выбранные кнопки (RadioButton, Checkbox);

Код для события Click Компонента button2

procedure TForm1.Button2Click(Sender: TObject);

begin

if checkbox1.checked then

begin

form1.font.color:=clnavy;

form2.font.color:=clnavy

end

else

begin

form1.font.color:=clblack;

form2.font.color:=clblack;

end;

if checkbox2.checked then

begin

form1.font.style:=[fsbold];

form2.font.style:=[fsbold]

end

else

begin

form1.font.style:=[];

form2.font.style:=[];

end;

if radiobutton1.checked then

memo1.color:=clwhite;

if radiobutton2.checked then

memo1.color:=cllime;

end;

очищает Memo поле.

Код для события Click Компонента button3

procedure TForm1.Button3Click(Sender: TObject);

begin

memo1.clear;

end;

закрывает программу.

Код для события Click Компонента button4

procedure TForm1.Button4Click(Sender: TObject);

begin

close;

end;

В форме использован компонент Tmainmenu. В который добавлены кнопки сервиса.

Добавлен компонент Button5 для перехода на следующую форму(Рисунок2)

Дата добавления: 2014-07-23; просмотров: 392; Нарушение авторских прав

Мы поможем в написании ваших работ!