Загрузка текста с помощю radiogroup
От: room  
Дата: 19.03.07 20:11
Оценка:
Помогите пожалуйста на 1 форме у меня radiogroup и кнопка на 2 форме Мемо.Как сделать так чтобы я выберал нужный Items radiogroupа и нажимал на кнопку эта форма исчезала появлялась 2 форма с нужным текстом. Я скинул Не доработанный исходник посмотрите пожалуйста
Re: Загрузка текста с помощю radiogroup
От: Tilir Россия http://tilir.livejournal.com
Дата: 20.03.07 07:40
Оценка:
Здравствуйте, room, Вы писали:

R>Помогите пожалуйста на 1 форме у меня radiogroup и кнопка на 2 форме Мемо.Как сделать так чтобы я выберал нужный Items radiogroupа и нажимал на кнопку эта форма исчезала появлялась 2 форма с нужным текстом. Я скинул Не доработанный исходник посмотрите пожалуйста


Хм... Исходника мне чего-то не видно. Но что-то внутри подсказывает, что строчки вида:
Form1.Hide;
Form2.Memo.Lines.Clear;
if radiobutton1.Checked then Form2.Memo.Lines.Add('Нужный текст')
else
  if radiobutton2.Checked then Form2.Memo.Lines.Add('Другой, не менее нужный текст'); 
//После чего:
Form2.Show;

спасут отца русской демократии...
Re: Загрузка текста с помощю radiogroup
От: room  
Дата: 20.03.07 12:23
Оценка:
Спасибо добрые люди помогли уже

[i]procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
i:=0;
while (i<RadioGroup1.Items.Count) do
begin
if RadioGroup1.Buttons[i].Checked then
begin
form2.visible:=true;
form2.Memo1.Text:=RadioGroup1.Buttons.Caption;
form1.Visible :=false;
end;
Inc(i);
end;
end;
Re[2]: Загрузка текста с помощю radiogroup
От: room  
Дата: 20.03.07 12:24
Оценка:
Tilir спасибо
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.