[PaHaNjkee]

На форме у меня лежат Edit1 и ComboBox1
У меня в ComboBox1 В Items написано:
Код1
Код2
Код3

Как сделать чтобы при нажатии на Код1 в Edit1 написалось ОтветКод1
а при нажатии на Код2 написалось ОтветКод2?

Вот КОД:

Код:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if Form1.ComboBox1.Items.NewInstance='Код1' then
edt1.Text='ОтветКод1';
end;

end.

В чем ошибка?


Пишет вот что:
[Ошибка] Unit1.pas(29): Incompatible types: 'TStrings' and 'String'
[Фатальная Ошибка] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

[NumLock]

Код:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  Edit1.Text:='Ответ'+ComboBox1.Items[ComboBox1.ItemIndex];
end;

[PaHaNjkee]

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

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Edit1.Text:='Ответ'+ComboBox1.Items[ComboBox1.ItemIndex];
end;

А подскажите пожалуйста как сделать так чтобы при нажатии на Код1 в Edit1 выводилось Привет! на Код2 выводилось Пока, на Код3 выводилось Приветствую


И ЕЩЕ: Как сделать чтобы Форму нельзя было расстягивать?

[NumLock]

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, CheckLst;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    ComboBox1: TComboBox;
    Memo1: TMemo;
    procedure ComboBox1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  Edit1.Text:=Memo1.Lines[ComboBox1.ItemIndex];
//  'Îòâåò'+ComboBox1.Items[ComboBox1.ItemIndex];
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  BorderStyle:=bsSingle;
  Memo1.Visible:=False;
end;

end.

http://data.cod.ru/71192

[PaHaNjkee]

БОЛЬШОЕ СПАСИБО!

И ЕЩЕ: Как сделать чтобы Форму нельзя было расстягивать?

[v1s2222]

Код:

Self.BorderStyle := bsSingle;
// self - имя твоей формы (пиши в форм крейте), или изменяй свойство в десигн тайме

[PaHaNjkee]

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

Код:

Self.BorderStyle := bsSingle;
// self - имя твоей формы (пиши в форм крейте), или изменяй свойство в десигн тайме

Спасибо+) Помог

[NumLock]

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

Как сделать чтобы Форму нельзя было расстягивать?

см. procedure TForm1.FormCreate(Sender: TObject); из 4 поста