-=Вопросы от Хамана по поводу Дельфей=-

[HAMMAN]

Подскажите пожалуйста: в общем я застрял вот на этом:

1)Выберите в форме все кнопки опций (щелкая по каждой из них при нажатой клавише Shift) и введите имя метода TForm1.ChangeText в окне Object Inspector после события OnClick. Код этого метода представлен ниже.



Ввожу имя метода в событие OnClick - выходит ошибка 'TForm1.ChangeText' is not valied identifier! может надо что-то прописать?



2) Одну из кнопок опций в каждой группе нужно обязательно пометить, установив свойство Checked в True, соответствующее значение должно иметь и свойство ItemIndexгруппы опций (которое указывает на текущий выбор).


Этих свойств нету!Что делать?

[pu4koff]

это че за мысли в слух были? или выкинь книгу, где это взял или ты что-то не понял и нам недосказал

[HAMMAN]

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

это че за мысли в слух были? или выкинь книгу, где это взял или ты что-то не понял и нам недосказал

Задание № 2

Выполнить построитель английских предложений по типу The book is on the table. Цель данного прмера состоит в том, чтобы создать инструмент для построения подобных фраз путем выбора из различных доступных опций.
1)Поместите в форму компонент GroupBox с заголовком First Object и затем кнопки опций с заголовками The book, The pen, The pencil, The chair.
2)Поместите еще один компонент GroupBox с заголовком Position c опциями on, under, near.
3)Поместите компонент RadioGroup с заголовком Second Object c опциями the table, the big box, the carpet, the computer. В этом случае для создания элементов вы должны ввести список значений в свойство Items (тип TStringList).
4)Одну из кнопок опций в каждой группе нужно обязательно пометить, установив свойство Checked в True, соответствующее значение должно иметь и свойство ItemIndex группы опций (которое указывает на текущий выбор).
5)Поместите в верхнюю часть формы компонент Label, где будет отображаться построенная фраза.
6)Выберите в форме все кнопки опций (щелкая по каждой из них при нажатой клавише Shift) и введите имя метода TForm1.ChangeText в окне Object Inspector после события OnClick. Код этого метода представлен ниже.

procedure TForm1.ChangeText (Sender: TObject);
var
Phrase:String;
I:Integer;
begin
For i:=0 to GroupBox1.ControlCount - 1 do
if (GroupBox1.Controls[ i ] as TRadioButton).Checked then
Phrase:= (GroupBox1.Controls[ i ] as TRadioButton).Caption;
Phrase:= Phrase + ' is ';
For i:=0 to GroupBox2.ControlCount-1 do
with GroupBox2.Controls[ i ] as TRadioButton do
if Checked then
Phrase:= Phrase + Caption;
Label1.Caption:= Phrase + ' ' + RadioGroup1.Items[RadioGroup1.ItemIndex];
end;

Короче не получается 4 и 6 пункт!!! В 4 -м я не нашёл свойство Checked а в 6 не вводится TForm1.ChangeText в окне Object Inspector после события OnClick.