Через комбобокс выбрать цвет формы

@ModestImp · Регистрация: 06.11.2013

Author24 — интернет-сервис помощи студентам

Дорогие форумчане, прошу у вас помощи! Задали программу написать. Нужно, чтобы через комбобокс выбрать цвет формы. Выбрать цвет - голубой, зеленый и другой любой. Я пытаюсь прописать код на комбобокс, мне выдают ошибку в end. помогите пожалуйста, написать с нуля.

@Waddonator · 07.11.2013, 11:47

Пример с использованием ComboBox и ColorBox.

@ModestImp · 07.11.2013, 11:55 **[ТС]**

А вы не могли бы здесь же написать код программы? а у меня с этим архивом какие-то проблемы, везде ошибку выдает. Заранее спасибо!

@Waddonator · 07.11.2013, 12:01

ModestImp, на форму кладете одни ComboBox. В ComboBox добавляете 4 элемента: "Синий", "Зеленый", "Красный" и "Желтый", свойство Style устанавливаете csDropDownList, ItemIndex - 0. Кладете на форму один ColorBox. Код процедур на событие OnChange данных компонентов:

Delphi

procedure TForm1.ColorBox1Change(Sender: TObject);
begin
  Form1.Color:=ColorBox1.Selected;
end;
 
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  case ComboBox1.ItemIndex of
    0: Form1.Color:=clBlue;
    1: Form1.Color:=clGreen;
    2: Form1.Color:=clRed;
    3: Form1.Color:=clYellow;
  end;
end;

@ModestImp · 07.11.2013, 12:03 **[ТС]**

А как добавить строки и прочее? Я вообще в этой программе не бум-бум, а вот надо, я не про итемы и про остальное ничего не знаю (((

@Waddonator · 07.11.2013, 12:10

Сообщение от ModestImp

у меня с этим архивом какие-то проблемы, везде ошибку выдает.

Без слов.

Сообщение от ModestImp

как добавить строки и прочее?

Окно "Object Inspector", вкладка "Properties". Это и есть список свойств. Найдите в списке "Items", нажмите [...] и заполняйте. Думаю, Вам стоит начать с изучения книжек по Delphi.

@ModestImp · 07.11.2013, 12:15 **[ТС]**

Снова почему-то выдает ошибку.
end.
[Error] Unit1.pas(42): ';' expected but '.' found
Вчера по разному писала коды, и все равно ответ, энд выделяют как ошибку и все и программа не запускается. Помогите пожалуйста!

@Waddonator · 07.11.2013, 12:16

ModestImp, полностью код программы скопируйте сюда.

@ModestImp · 07.11.2013, 12:17 **[ТС]**

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
ComboBox1: TComboBox;
ColorBox1: TColorBox;
procedure ColorBox1Change(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ColorBox1Change(Sender: TObject);
begin
Form1.Color:=ColorBox1.Selected;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
case ComboBox1.ItemIndex of
0: Form1.Color:=clBlue;
1: Form1.Color:=clGreen;
2: Form1.Color:=clRed;
3: Form1.Color:=clYellow;
end;

end.

@Waddonator · 07.11.2013, 12:19

ModestImp, вы пропустили одни end; после строки 3: Form1.Color:=clYellow;. Нехорошо копировать с ошибками.

@ModestImp · 07.11.2013, 12:22 **[ТС]**

Простите, какие энд? Где именно?

@Waddonator · 07.11.2013, 12:26

Сообщение от ModestImp

Простите, какие энд? Где именно?

Сообщение от Waddonator

вы пропустили один end; после строки 3: Form1.Color:=clYellow;

ModestImp, возьмите и сравните свой вариант и мой, и найдите, где не хватает слова end; По моему, я Вам даже указал после какой строки пропущен.

@ModestImp · 07.11.2013, 12:34 **[ТС]**

но ведь после строчки с желтым цветом энд есть... Вы можете как совсем маленькому ребенку объяснить, по пальцам?

@northener · 07.11.2013, 12:37

Сообщение от ModestImp

но ведь после строчки с желтым цветом энд есть

Одного энда там маловато будет.

@Waddonator · 07.11.2013, 12:38

Сообщение от ModestImp

Вы можете как совсем маленькому ребенку объяснить, по пальцам?

Могу. Структура Case нуждается в конечном end;, и сама процедура нуждается в конечном end;. 1+1=2, т.е. должно быть 2 end;. Вот вам компилятор и говорит, что должен быть end; с точной с запятой, а находит конец программы end. с точкой.

@ModestImp · 07.11.2013, 12:47 **[ТС]**

ААААААААА, спасибо вам огроменное! вы меня спасли! А то если я не сделаю программу и по ней подробный отчет, ну из колледжа не выгнали бы, но нервов на зачеты я бы потратила прилчно! Еще раз большое вам спасибо!

Добавлено через 7 минут
А зачем в таком случае добавлять калорбокс?

@northener · 07.11.2013, 12:52

Сообщение от ModestImp

А зачем в таком случае добавлять калорбокс?

Чтобы преподу было легче вас поймать.

@Waddonator · 07.11.2013, 12:52

ModestImp, это пример использования одного из двух вариантов. Можно с ComboBox, что задано по условию, а можно с ColorBox. С ColorBox удобнее - не надо прописывать элементы, код в одну строчку и т.д. Он специально "заточен" под выбор цвета. Если он Вам не нужен - можете его удалить (вместе с его частью кода).

@northener пофигист широкого профиля 4735 / 3168 / 860 Регистрация: 15.07.2013 Сообщений: 18,255
	07.11.2013, 12:37	14
	Сообщение от ModestImp но ведь после строчки с желтым цветом энд есть Одного энда там маловато будет. 0

@Waddonator 969 / 644 / 97 Регистрация: 01.11.2012 Сообщений: 1,447
	07.11.2013, 12:52	18
	ModestImp, это пример использования одного из двух вариантов. Можно с ComboBox, что задано по условию, а можно с ColorBox. С ColorBox удобнее - не надо прописывать элементы, код в одну строчку и т.д. Он специально "заточен" под выбор цвета. Если он Вам не нужен - можете его удалить (вместе с его частью кода). 1

@ModestImp 0 / 0 / 0 Регистрация: 06.11.2013 Сообщений: 17
		1
	Через комбобокс выбрать цвет формы 07.11.2013, 11:13. Показов 5063. Ответов 17 Метки нет (Все метки) Дорогие форумчане, прошу у вас помощи! Задали программу написать. Нужно, чтобы через комбобокс выбрать цвет формы. Выбрать цвет - голубой, зеленый и другой любой. Я пытаюсь прописать код на комбобокс, мне выдают ошибку в end. помогите пожалуйста, написать с нуля. 0

@ModestImp 0 / 0 / 0 Регистрация: 06.11.2013 Сообщений: 17
	07.11.2013, 11:55 [ТС]	3
	А вы не могли бы здесь же написать код программы? а у меня с этим архивом какие-то проблемы, везде ошибку выдает. Заранее спасибо! 0

@ModestImp 0 / 0 / 0 Регистрация: 06.11.2013 Сообщений: 17
	07.11.2013, 12:03 [ТС]	5
	А как добавить строки и прочее? Я вообще в этой программе не бум-бум, а вот надо, я не про итемы и про остальное ничего не знаю ((( 0

@Waddonator 969 / 644 / 97 Регистрация: 01.11.2012 Сообщений: 1,447
	07.11.2013, 12:10	6
	Сообщение от ModestImp у меня с этим архивом какие-то проблемы, везде ошибку выдает. Без слов. Сообщение от ModestImp как добавить строки и прочее? Окно "Object Inspector", вкладка "Properties". Это и есть список свойств. Найдите в списке "Items", нажмите [...] и заполняйте. Думаю, Вам стоит начать с изучения книжек по Delphi. 0

@ModestImp 0 / 0 / 0 Регистрация: 06.11.2013 Сообщений: 17
	07.11.2013, 12:15 [ТС]	7
	Снова почему-то выдает ошибку. end. [Error] Unit1.pas(42): ';' expected but '.' found Вчера по разному писала коды, и все равно ответ, энд выделяют как ошибку и все и программа не запускается. Помогите пожалуйста! 0

@Waddonator 969 / 644 / 97 Регистрация: 01.11.2012 Сообщений: 1,447
	07.11.2013, 12:16	8
	ModestImp, полностью код программы скопируйте сюда. 0

@ModestImp 0 / 0 / 0 Регистрация: 06.11.2013 Сообщений: 17
	07.11.2013, 12:17 [ТС]	9
	unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) ComboBox1: TComboBox; ColorBox1: TColorBox; procedure ColorBox1Change(Sender: TObject); procedure ComboBox1Change(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.ColorBox1Change(Sender: TObject); begin Form1.Color:=ColorBox1.Selected; end; procedure TForm1.ComboBox1Change(Sender: TObject); begin case ComboBox1.ItemIndex of 0: Form1.Color:=clBlue; 1: Form1.Color:=clGreen; 2: Form1.Color:=clRed; 3: Form1.Color:=clYellow; end; end. 0

@Waddonator 969 / 644 / 97 Регистрация: 01.11.2012 Сообщений: 1,447
	07.11.2013, 12:19	10
	ModestImp, вы пропустили одни end; после строки 3: Form1.Color:=clYellow;. Нехорошо копировать с ошибками. 0

@ModestImp 0 / 0 / 0 Регистрация: 06.11.2013 Сообщений: 17
	07.11.2013, 12:22 [ТС]	11
	Простите, какие энд? Где именно? 0

@Waddonator 969 / 644 / 97 Регистрация: 01.11.2012 Сообщений: 1,447
	07.11.2013, 12:26	12
	Сообщение от ModestImp Простите, какие энд? Где именно? Сообщение от Waddonator вы пропустили один end; после строки 3: Form1.Color:=clYellow; ModestImp, возьмите и сравните свой вариант и мой, и найдите, где не хватает слова end; По моему, я Вам даже указал после какой строки пропущен. 0

@ModestImp 0 / 0 / 0 Регистрация: 06.11.2013 Сообщений: 17
	07.11.2013, 12:34 [ТС]	13
	но ведь после строчки с желтым цветом энд есть... Вы можете как совсем маленькому ребенку объяснить, по пальцам? 0

@Waddonator 969 / 644 / 97 Регистрация: 01.11.2012 Сообщений: 1,447
	07.11.2013, 12:38	15
	Сообщение от ModestImp Вы можете как совсем маленькому ребенку объяснить, по пальцам? Могу. Структура Case нуждается в конечном end;, и сама процедура нуждается в конечном end;. 1+1=2, т.е. должно быть 2 end;. Вот вам компилятор и говорит, что должен быть end; с точной с запятой, а находит конец программы end. с точкой. 0

@ModestImp 0 / 0 / 0 Регистрация: 06.11.2013 Сообщений: 17
	07.11.2013, 12:47 [ТС]	16
	ААААААААА, спасибо вам огроменное! вы меня спасли! А то если я не сделаю программу и по ней подробный отчет, ну из колледжа не выгнали бы, но нервов на зачеты я бы потратила прилчно! Еще раз большое вам спасибо! Добавлено через 7 минут А зачем в таком случае добавлять калорбокс? 0

@northener пофигист широкого профиля 4735 / 3168 / 860 Регистрация: 15.07.2013 Сообщений: 18,255
	07.11.2013, 12:52	17
	Сообщение от ModestImp А зачем в таком случае добавлять калорбокс? Чтобы преподу было легче вас поймать. 1