Студопедия

Главная страница Случайная лекция


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

Порталы:

БиологияВойнаГеографияИнформатикаИскусствоИсторияКультураЛингвистикаМатематикаМедицинаОхрана трудаПолитикаПравоПсихологияРелигияТехникаФизикаФилософияЭкономика



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




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

Читайте также:
  1. Вероятность случайного события
  2. Дефекты и уязвимости в программных компонентах
  3. Жизненный путь: события жизни, психологическая биография. Стили жизни. Жизненное пространство личности.
  4. Зависимые и независимые события.
  5. Зависимые и независимые события. Условная вероятность события
  6. Код для события Click Компонента button10
  7. Код для события Click Компонента button4
  8. Код для события Click Компонента button5
  9. Код для события Click Компонента button5

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)


<== предыдущая страница | следующая страница ==>
Базовые Компоненты Delphi | Код для события Click Компонента button5

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




Мы поможем в написании ваших работ!
lektsiopedia.org - Лекциопедия - 2013 год. | Страница сгенерирована за: 0.005 сек.