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

[heny]

А если писать через событие OnChange, то ошибка следующая:

not enough actual parameters

[Stilet]

Покажи как пишешь.

[fenix-elite]

procedure TForm1.RichEdit1Change(Sender: TObject);
begin
  if RichEdit1.Modified then
      StatusBar1.Panels[0].Text := 'Изменен';
end;

Этот код рабочий. Скорее всего у вас при запуске уже происходят какие-то действия с RichEdit... Покажите код.

[heny]

unit Unit1;

interface

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

type
  TEditor = class(TForm)
    MainMenu1: TMainMenu;
    RichEdit1: TRichEdit;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    FontDialog1: TFontDialog;
    File1: TMenuItem;
    Create1: TMenuItem;
    Open1: TMenuItem;
    Save1: TMenuItem;
    SaveAs1: TMenuItem;
    Edit1: TMenuItem;
    Cut1: TMenuItem;
    Copy1: TMenuItem;
    Paste1: TMenuItem;
    Vid1: TMenuItem;
    Tools1: TMenuItem;
    Status1: TMenuItem;
    Format1: TMenuItem;
    Shrift1: TMenuItem;
    N6: TMenuItem;
    Exit1: TMenuItem;
    N11: TMenuItem;
    SelectAll1: TMenuItem;
    Clear1: TMenuItem;
    StatusBar1: TStatusBar;
    procedure SaveAs1Click(Sender: TObject);
    procedure Save1Click(Sender: TObject);
    procedure RichEdit1Change(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Editor: TEditor; FName: string;

implementation

{$R *.dfm}



procedure TEditor.SaveAs1Click(Sender: TObject);
begin
   if RichEdit1.Lines.Count > 0 then
  begin
     if SaveDialog1.Execute then
     begin
        RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);
        RichEdit1.Modified:=false;
        FName:=SaveDialog1.FileName;
        Editor.Caption:='Текстовый редактор - '+FName;
        StatusBar1.Panels[1].Text:='Текст сохранен';
     end;
  end
else StatusBar1.Panels[1].Text:='Количество строк в тексте 0';
end;

procedure TEditor.Save1Click(Sender: TObject);
begin
  if FName='' then
  begin
    if RichEdit1.Lines.Count > 0 then
     begin
      if SaveDialog1.Execute then
         begin
            RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);
            RichEdit1.Modified:=false;
            FName:=SaveDialog1.FileName;
            Editor.Caption:='Текстовый редактор - '+FName;
            StatusBar1.Panels[1].Text:='Текст сохранен';
         end;
     end;
     end
   else
    RichEdit1.Lines.SaveToFile(FName);
    StatusBar1.Panels[1].Text:='Текст сохранен';
end;

procedure TEditor.RichEdit1Change(Sender: TObject);
begin

  if RichEdit1.Modified then
  StatusBar1.Panels[0].Text:= 'Текст изменен';

end;

end.

Это пока что весь код.
В нем есть еще одна проблема. Процедуры SaveAs1Click и Save1Click, насколько я понимаю и хочу этого добиться, но пока не могу, что если в редакторе не набрано ни одного символа, то не должен открываться диалог сохранения, я пытаюсь этого достичь этом кодом:

if RichEdit1.Lines.Count > 0 then

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

А насчет кода "текст изменен" все остается без изменений, только запускаешь программу, а в строке состояния уже написано "Текст изменен".
Очень надеюсь на вашу помощь, потому что сама потеряла уже всякую надежду

[Karabash]

Нужен еще файл *.dfm. По приведенному коду нельзя узнать какие установки свойств компонентов были сделанны в design-time.
Или весь проект.

[Stilet]

if RichEdit1.Lines.Count > 0 then

if trim(RichEdit1.Lines.text)='' then Пусто

а в строке состояния уже написано "Текст изменен".

Криминала не вижу.

Очень надеюсь на вашу помощь, потому что сама потеряла уже всякую надежду

В таком случае прикрепи архив с проектом сюда. Вполне возможно что не в коде жук сидит а в настройках свойств в дизайне.

[heny]

Вот добавила архивом, правда код уже несколько изменен, пыталась написать код для пункта "Создать"

[Karabash]

Увы, прокол. В архиве нет нужных файлов (.dfm и .pas). Без них запустить проект невозможно.

[heny]

ой, как это я так ))))
исправляюсь

[Stilet]

heny

Хы... Впервые такой эффект вижу. Как я и предполагал баг в том что у тебя в дизайне выставлена одна пустая строка в РичЭдите. При запуске он определяет что произошла модификация потому что эта пустая строка помещается при создании РичЭдита вот и выплавает у тя надпись Текст изменен

Зайди в дизайнере в свойство Lines и убери там пустую строку - тогда не будет всплывать.