Перехват CheckBox, а не RadioButton

@vlados2441 · Регистрация: 11.01.2015

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

Загрузка фото на форму зависит от ComboBox, RadioButton. Но в РБ1 фото еще и зависит ЧекБокс.
При клике на картинку она открывается на новой форме в полный размер экрана.

Delphi

procedure TForm1.Image1Click(Sender: TObject);
begin
  form3:=TForm3.Create(Form3);
      form3.ShowModal;
  if Form1.CheckBox1.Checked=True  and Form1.RadioButton1.Checked=True
then
 begin
  Form3.Image1.Picture.LoadFromFile('Ночь\'+ComboBox1.Items[ComboBox1.ItemIndex]+'.jpg');
  {Программа перехватывает значение РБ-1, а не ЧБ-1}
 end
  else
   if Form1.RadioButton1.Checked=True and Form1.CheckBox1.Checked=False
then Form3.Image1.Picture.LoadFromFile('Превью\'+ComboBox1.Items[ComboBox1.ItemIndex]+'.jpg')
  else
  if Form1.RadioButton2.Checked
then  Form3.Image1.Picture.LoadFromFile('Голд\'+ComboBox1.Items[ComboBox1.ItemIndex]+'.jpg')
  else
  if Form1.RadioButton3.Checked
then Form3.Image1.Picture.LoadFromFile('Схема\'+ComboBox1.Items[ComboBox1.ItemIndex]+'.jpg');
end;

Проблема по сути, состоит в алгоритме, загрузка фото происходит не по ЧБ1, а по РБ1. (Выбирает просто РБ1)
Помогите, пожалуйста решить эту проблему ...

@krapotkin · 14.04.2015, 17:28

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

form3:=TForm3.Create(Form3);

здрасте, это старый я, я владелец нового себя )))

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

if Form1.CheckBox1.Checked=True *and Form1.RadioButton1.Checked=True

это компилируется?

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

procedure TForm1.Image1Click(Sender: TObject);
...
* if Form1.CheckBox1.Checked=True *and Form1.RadioButton1.Checked=True

использование переменной Form1 в методе класса TForm1 - грубая ошибка

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

@vlados2441 · 14.04.2015, 17:44 **[ТС]**

С Form3 это я случайно, раньше form1 было ...
Прога компилится нормально.

Вобщем, чтоб было понятней, если превью и ЧБ-фолс = грузит одну картинку, если превью и ЧБ-тру = грузит другую картинку.
Но, когда кликаю на картинку, она должна открыться на новой форме в полный размер монитора. Вот как раз тут то и не перехватывает

@northener · 14.04.2015, 18:16

Delphi

if RadioButton1.Checked then begin
  if CheckBox1.Checked then
    Form3.Image1.Picture.LoadFromFile('Ночь\'+ComboBox1.Items[ComboBox1.ItemIndex]+'.jpg')
  else
    Form3.Image1.Picture.LoadFromFile('Превью\'+ComboBox1.Items[ComboBox1.ItemIndex]+'.jpg');
end else if RadioButton2.Checked
  then  Form3.Image1.Picture.LoadFromFile('Голд\'+ComboBox1.Items[ComboBox1.ItemIndex]+'.jpg')
  else if RadioButton3.Checked
    then Form3.Image1.Picture.LoadFromFile('Схема\'+ComboBox1.Items[ComboBox1.ItemIndex]+'.jpg');

Так?

@krapotkin 5786 / 4528 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	14.04.2015, 17:28	2
	Сообщение от vlados2441 form3:=TForm3.Create(Form3); здрасте, это старый я, я владелец нового себя ))) Сообщение от vlados2441 if Form1.CheckBox1.Checked=True and Form1.RadioButton1.Checked=True это компилируется? Сообщение от vlados2441* procedure TForm1.Image1Click(Sender: TObject); ... * if Form1.CheckBox1.Checked=True *and Form1.RadioButton1.Checked=True использование переменной Form1 в методе класса TForm1 - грубая ошибка и, так как в этой каше сознания ничего понять не удается просто понятными словами расскажи, что есть на экране? что должно произойти ? по какому событию это должно произойти? 0

@vlados2441 3 / 3 / 4 Регистрация: 11.01.2015 Сообщений: 126
	14.04.2015, 17:44 [ТС]	3
	С Form3 это я случайно, раньше form1 было ... Прога компилится нормально. Вобщем, чтоб было понятней, если превью и ЧБ-фолс = грузит одну картинку, если превью и ЧБ-тру = грузит другую картинку. Но, когда кликаю на картинку, она должна открыться на новой форме в полный размер монитора. Вот как раз тут то и не перехватывает Миниатюры 0

	14.04.2015, 18:16