[Edit1]

Сообщение от DJ PhoeniX

Как-то слышал фразу: компьютер делает не то, что вы от него хотите, а то, что вы ему приказываете. Пока что я вижу, что вы не можете чётко сформировать приказ даже на русском языке. Сделайте это - и мы попробуем перевести на язык компьютера.

Вроде как я чётко сформулировал

[PhoeniX]

Тогда почему вам предлагают вариант за вариантом, а вам ни один не подходит?

[Edit1]

Прошу прощения, не туда вставил. Сейчас всё работает, но при нажимание на 1 линию, ничего не происходит.

[Edit1]

Сообщение от DJ PhoeniX

Тогда почему вам предлагают вариант за вариантом, а вам ни один не подходит?

Наверно вы правы, что не могу точно сформулировать, просто я недавно в delphi, 2 слова связать не могу.

[poli-smen]

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

Почему то ошибку выдаёт.

Значит нужно её исправлять.

[PhoeniX]

А при чём тут Delphi? Вы хотите получить результат (программу), ну так и опишите принцип её работы с точки зрения пользователя.

[Edit1]

Сообщение от DJ PhoeniX

А при чём тут Delphi? Вы хотите получить результат (программу), ну так и опишите принцип её работы с точки зрения пользователя.

Программа выводит список опкодов, нажимая на любой опкод в списке в поле Memo выводиться информация об этом опкоде, как его использовать и т.п. Надеюсь поняли.

[poli-smen]

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

Программа выводит список опкодов, нажимая на любой опкод в списке в поле Memo выводиться информация об этом опкоде, как его использовать и т.п. Надеюсь поняли.

Откуда берётся информация об опкодах?

[PhoeniX]

Код:

procedure TForm1.ComboBox1Select(Sender: TObject);
begin
  case ComboBox1.ItemIndex of
    0: Memo1.Lines.Text := 'Выбран первый пункт';
    1: Memo1.Lines.Text := 'Выбран второй пункт';
    2: Memo1.Lines.Text := 'Выбран третий пункт';
    // ...
  else
    Memo1.Lines.Text := 'Вы выбрали что-то не то...';
  end;

end;

Писал на коленке, точно не помню. Вроде не OnSelect, а OnChange. Но могу ошибаться.

[Edit1]

Сообщение от DJ PhoeniX

Код:

procedure TForm1.ComboBox1Select(Sender: TObject);
begin
  case ComboBox1.ItemIndex of
    0: Memo1.Lines.Text := 'Выбран первый пункт';
    1: Memo1.Lines.Text := 'Выбран второй пункт';
    2: Memo1.Lines.Text := 'Выбран третий пункт';
    // ...
  else
    Memo1.Lines.Text := 'Вы выбрали что-то не то...';
  end;

end;

Писал на коленке, точно не помню. Вроде не OnSelect, а OnChange. Но могу ошибаться.

Ошиблись немного, но я исправил.
Спасибо большое, как то отблагодарить вас могу?

[poli-smen]

Сообщение от DJ PhoeniX

Писал на коленке, точно не помню. Вроде не OnSelect, а OnChange. Но могу ошибаться.

PHP код:

TCustomCombo.OnChange
Occurs when the user changes the text displayed in the edit region. 


PHP код:

TCustomCombo.OnSelect
Occurs when the user selects a string in the drop-down list. 


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

Ошиблись немного, но я исправил.

А в чём ошибка была?

[Edit1]

А вот ещё один вопрос. Можно сделать так, что бы в редакторе можно было писать в несколько строк? А то всё некрасиво и в 1 строку получается.

[Edit1]

Сообщение от poli-smen

PHP код:

TCustomCombo.OnChange
Occurs when the user changes the text displayed in the edit region. 


PHP код:

TCustomCombo.OnSelect
Occurs when the user selects a string in the drop-down list. 


А в чём ошибка была?

Вместо OnSelecte нужно было OnChange.

[poli-smen]

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

А вот ещё один вопрос. Можно сделать так, что бы в редакторе можно было писать в несколько строк? А то всё некрасиво и в 1 строку получается.

Код:

  Memo1.Lines.Text:='Первая строка'#13#10'Вторая строка';

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

Вместо OnSelecte нужно было OnChange.

У тебя не срабатывает OnSelect когда ты выбираешь в ComboBox линию? Странно...