TheSlide.ru

LAZARUS Основы объектно-ориентированного программирования в среде

Содержание

1. LAZARUS Основы объектно-ориентированного программирования в среде
2. Компонент ListBoxКомпонент ComboBoxКомпонент GroupBoxКомпонент CheckGroup Компонент Panel
3. Слайд 3
4. Создаем тест в LazarusКомпонент MemoКомпонент RadioGroupprocedure TForm1.RadioGroup1Click(Sender: TObject);begin if Radiogroup1.ItemIndex=0 then begin ShowMessage('Верно!'); end;end;
5. Создаем тест в LazarusКомпонент MemoКомпонент CheckGroupprocedure TForm1.CheckGroup1Click(Sender:
6. Создаем тест в LazarusКомпонент MemoКомпонент ComboBoxprocedure TForm1.ComboBox1Change(Sender: TObject);begin if ComboBox1.ItemIndex=1 then begin ShowMessage('Верно!'); end;end;
7. Создаем тест в LazarusКомпонент MemoКомпонент ListBoxprocedure TForm1.ListBox1Click(Sender: TObject);begin if listbox1.ItemIndex=2 then begin showmessage('Верно!'); end;end;
8. Создаем тест в LazarusКомпонент EditКомпонент Panel
9. Создаем тест в Lazarusprocedure TForm1.FormCreate(Sender: TObject);begin sum:=0;end;
10. Создаем тест в Lazarusprocedure TForm1.Button1Click(Sender: TObject);begin Edit1.Text:=Edit1.Text+IntToStr(sum); button1.Enabled:=false;end;procedure TForm1.Button2Click(Sender: TObject);begin sum:=0; edit1.Text:='Ваш результат '; button1.Enabled:=true;end;
11. Скачать презентанцию

Компонент ListBoxКомпонент ComboBoxКомпонент GroupBoxКомпонент CheckGroup Компонент Panel

Главная
Разное
LAZARUS Основы объектно-ориентированного программирования в среде

Слайды и текст этой презентации

Слайд 1LAZARUS
Основы
объектно-ориентированного
программирования в среде

LAZARUSОсновы объектно-ориентированного программирования в среде

Слайд 2Компонент
ListBox
Компонент ComboBox
Компонент GroupBox
Компонент CheckGroup
Компонент Panel

Компонент ListBoxКомпонент ComboBoxКомпонент GroupBoxКомпонент CheckGroup Компонент Panel

Слайд 3

Слайд 4Создаем тест в Lazarus
Компонент
Memo
Компонент
RadioGroup
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
if Radiogroup1.ItemIndex=0

then begin ShowMessage('Верно!'); end;
end;

Создаем тест в LazarusКомпонент MemoКомпонент RadioGroupprocedure TForm1.RadioGroup1Click(Sender: TObject);begin if Radiogroup1.ItemIndex=0 then begin ShowMessage('Верно!'); end;end;

Слайд 5Создаем тест в Lazarus
Компонент
Memo
Компонент
CheckGroup
procedure TForm1.CheckGroup1Click(Sender: TObject);
begin
if

(CheckGroup1.Checked[0]) and (CheckGroup1.Checked[1]) then
begin

ShowMessage('Верно!'); end;
end;

Создаем тест в LazarusКомпонент MemoКомпонент CheckGroupprocedure TForm1.CheckGroup1Click(Sender: TObject);begin if (CheckGroup1.Checked[0]) and (CheckGroup1.Checked[1]) then

Слайд 6Создаем тест в Lazarus
Компонент
Memo
Компонент
ComboBox
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if

ComboBox1.ItemIndex=1 then begin ShowMessage('Верно!'); end;
end;

Создаем тест в LazarusКомпонент MemoКомпонент ComboBoxprocedure TForm1.ComboBox1Change(Sender: TObject);begin if ComboBox1.ItemIndex=1 then begin ShowMessage('Верно!'); end;end;

Слайд 7Создаем тест в Lazarus
Компонент
Memo
Компонент
ListBox
procedure TForm1.ListBox1Click(Sender: TObject);
begin
if listbox1.ItemIndex=2

then begin showmessage('Верно!'); end;
end;

Создаем тест в LazarusКомпонент MemoКомпонент ListBoxprocedure TForm1.ListBox1Click(Sender: TObject);begin if listbox1.ItemIndex=2 then begin showmessage('Верно!'); end;end;

Слайд 8Создаем тест в Lazarus
Компонент
Edit
Компонент
Panel

Создаем тест в LazarusКомпонент EditКомпонент Panel

Слайд 9Создаем тест в Lazarus
procedure TForm1.FormCreate(Sender: TObject);
begin
sum:=0;
end;

Создаем тест в Lazarusprocedure TForm1.FormCreate(Sender: TObject);begin sum:=0;end;

Слайд 10Создаем тест в Lazarus
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+IntToStr(sum);
button1.Enabled:=false;
end;
procedure TForm1.Button2Click(Sender:

TObject);
begin
sum:=0;
edit1.Text:='Ваш результат ';
button1.Enabled:=true;
end;

Создаем тест в Lazarusprocedure TForm1.Button1Click(Sender: TObject);begin Edit1.Text:=Edit1.Text+IntToStr(sum); button1.Enabled:=false;end;procedure TForm1.Button2Click(Sender: TObject);begin sum:=0; edit1.Text:='Ваш результат '; button1.Enabled:=true;end;

Скачать презентацию

Обратная связь

Если не удалось найти и скачать доклад-презентацию, Вы можете заказать его на нашем сайте. Мы постараемся найти нужный Вам материал и отправим по электронной почте. Не стесняйтесь обращаться к нам, если у вас возникли вопросы или пожелания:

Email: Нажмите что бы посмотреть

Что такое TheSlide.ru?

Это сайт презентации, докладов, проектов в PowerPoint. Здесь удобно хранить и делиться своими презентациями с другими пользователями.

Для правообладателей