|
Вопрос # 5 411/ вопрос открыт / |
|
Салютище огромное, уважаемые эксперты! Рад приветствовать вас, и задать вопрос.
В общем как мне сделать на форме чтобы на клик создавалось заданное количество RadioButton ?
Из проделанное работы : НА форму кинул компонеты , button1, edit1, radiogroup1, radiobutton1.
Создал событие он клик на кнопку, и Хер Его Знает что писать туда чтобы у еня в радио групп создалось количество radiobutton заданное в едит1. Помогите пожалуйста , очень нужно =(
 |
Вопрос задал: winner13 (статус: 1-ый класс)
Вопрос отправлен: 15 июня 2011, 09:56
Состояние вопроса: открыт, ответов: 2.
|
Ответ #1. Отвечает эксперт: ierihon1
Здравствуйте, winner13!
procedure TForm3.Button1Click(Sender: TObject);
var i:integer;
begin
for i := 0 to StrToInt(Edit1.Text) - 1 do
Radiogroup1.Items.Add('')
end;
 |
Ответ отправил: ierihon1 (статус: 1-ый класс)
Время отправки: 15 июня 2011, 11:06
|
Ответ #2. Отвечает эксперт: min@y™
Предложу вариант немного понадёжнее:
procedure TForm1.Button1Click(Sender: TObject);
var
Index, Count: Integer;
begin
if TryStrToInt(Edit1.Text, Count) and (Count > 0)
then begin
Radiogroup1.Items.Clear();
for Index:= 0 to Count - 1 do
Radiogroup1.Items.Add(Format('RadioButton %d', [Index + 1]));
end
else Application.MessageBox(PChar('Введены неверные данные.'),
PChar('Ошибка'),
mb_Ok + mb_IconError);
end;
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 15 июня 2011, 14:17
Оценка за ответ: 5
|
Мини-форум вопроса
Всего сообщений: 4; последнее сообщение — 18 июня 2011, 19:54; участников в обсуждении: 3.
|
corban (статус: 2-ой класс), 15 июня 2011, 11:21 [#1]:
Вот есть такая книжка "Библия Дельфи" от Horrific'a, если б ты ее прочитал, то таких вопросов никогда не задавал
|
15 июня 2011, 16:21: Вопрос перемещён из тематического раздела Delphi » Общие вопросы по программированию в раздел Delphi » Работа с компонентами и библиотеками модератором Ерёмин А.А.
|
|
winner13 (статус: 1-ый класс), 16 июня 2011, 01:38 [#2]:
Получилось спасибо, только теперь на код
if радиобуттон1.чекед=труе then
операция1;
операция2;
end;
не получается обработчик сдлать на сгенерированные радиобуттоны ... ИЛИ чёт я не правлеьно сделал ...
Не решимых проблем нет, есть неприятные для нас решения.
|
|
|
min@y™ (статус: Доктор наук), 16 июня 2011, 08:25 [#3]:
Цитата (winner13):
только теперь на код
if радиобуттон1.чекед=труе then операция1; операция2; end;
не получается обработчик сдлать на сгенерированные радиобуттоны ... ИЛИ чёт я не правлеьно сделал ..
Ясен пень, неправильно. Можно, конечно, и до этих радиобатонов добраться через приведение типов, но, имхо, быстрее и проще сделать обработчик для RadioGroup1.OnClick:
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0: begin
операция1;
операция2;
end;
1: begin
операция3;
операция4;
end;
// ...и так далее...
end;
end;
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
winner13 (статус: 1-ый класс), 18 июня 2011, 19:54 [#4]:
Спасибо большущие !!! Особенно min@y™, репа плюсь, постараюсь быть таким же полезным тут !!! (УРА УРА УРА)
Не решимых проблем нет, есть неприятные для нас решения.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
