Строка состояния в Delphi

[heny]

Здравствуйте
Учусь на заочном отделении, вот пишу контрольную работу и тут возникла проблема. Мне нужно создать текстовый редактор в Delphi. Вот...
Делать только начала, слава богу сама еле как разобралась и написала код для пункта "сохранить как", так что по истине считаю, что я не совсем пропащая
Но возникла проблема, не могу сообразить. В задании написано следующее:
17. В событии OnChange компонента RichEdit1 напишите код, который выдает на вторую панель строки состояния сообщение «Текст изменен». Таким образом, при изменении хотя бы одного знака в тексте будет выдаваться это сообщение.

Ничего другого мне не приходит в голову как написать это так:

procedure TEditor.RichEdit1Change(Sender: TObject);
begin
  if RichEdit1.OnChange then
  StatusBar1.Panels[0].Text:= 'Текст изменен'
  else StatusBar1.Panels[0].Text:= '';
end;

либо так:

procedure TEditor.RichEdit1Change(Sender: TObject);
begin
  if RichEdit1.Modified then
  StatusBar1.Panels[0].Text:= 'Текст изменен'
  else StatusBar1.Panels[0].Text:= '';
end;

Но мне пишут, что это ошибка и все дальше ступор.
Помогите пожалуйста, разъясните ошибку

[Grag]

В СтатусБар можно сделать несколько панелей... Вам нужно выводить сообщение во вторую панель, т.е. StatusBar1.Panels[1].Text:='Изменен...'

[heny]

У меня есть панель 1 - в ней я пишу что текст сохранен (после сохранения), и как раз думала, что в панельке, которая слева, будет текст изменен.
То есть как я поняла в панель 0 не получится записать?

[Скандербег]

Дело в том, панели эти надо создать, тогда не будет ошибки.
На статусбаре двойной клик, появится окно редактора панелей.
Или в Object Inspector'е нажать на кнопку с тремя точками в свойстве Panels.
В редакторе надо создать парочку (желтая кнопка, нажать два раза или столько сколько надо панелей).
После этого можно из программы обращаться к панелям без ошибок.

[Grag]

Допустим, статусбар имеет 3-и панели... Тогда панель 1-я будет иметь индекс 0 (StatusBar1.Panels[0].text:=), панель 2-я будет иметь индекс 1 (StatusBar1.Panels[1].Text:=) и т.д. Так что, разберитесь что и в какую панель Вам нужно выводить и, соответственно, с каким индексом...

[Stilet]

Можешь. Установи StatusBar1.SimplePanel:=true;
И пиши

StatusBar1.SimpleText:='dasdasd';

Это если никаких дополнительных панелей ты не создавала

[heny]

У меня 2 панельки, StatusBar1.Panels[0] (в которую я хочу записать "Текст изменен") и StatusBar1.Panels[1] (тут у меня пишет "Текст сохранен" при изменении)
И между прочим я не совсем уж)))) так что обе панели у меня созданы, в этом не может быть ошибки

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

Можешь. Установи StatusBar1.SimplePanel:=true;
И пиши

StatusBar1.SimpleText:='dasdasd';

Это если никаких дополнительных панелей ты не создавала

А куда это надо написать?

[Grag]

17. В событии OnChange компонента RichEdit1 напишите код, который выдает на вторую панель строки состояния сообщение «Текст изменен».

Если строго соответствовать требованиям задания, то поменяйте индексы панелей...

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

А куда это надо написать?

Лучше этого не делай, иначе прощайте Ваши две (и более) панелей...

[heny]

Забыла сказать, этот код работает, но не правильно:

procedure TEditor.RichEdit1Change(Sender: TObject);
begin
  if RichEdit1.Modified then
  StatusBar1.Panels[0].Text:= 'Текст изменен'
  else StatusBar1.Panels[0].Text:= '';
end;

Как только запускается редактор, и еще не внесено ни одного изменения в панеле уже написано "Текст изменен", а надо же после изменения

[Stilet]

А куда это надо написать?

Ну если действительно нужно две панели то пиши

StatusBar1.Panels[1].Text:= 'Текст изменен'