Проверить событие нажатия кнопики!

[фЁдОр]

Здравствуйте, уважаемые программисты!
Столкнулся с небольшой, но пока не ясной мне проблемой:
Как можно проверить событие нажатия кнопки?
Вот, есть кнопка "Сохранить как..." и есть кнопка "Сохранить". Необходимо кнопки "Сохранить" установить свойство enable:=false до тех пор, пока не нажата или не создан файл кнопкой "Сохранить как...".
Думаю, что понимаете о чем идет речь.

[Air]

Есть такое событие кнопки "OnClick" специально для этого придумали.

[Killer_djon]

можно кончно зделать иначе, создаешь логическую переменную например flag, которая по умолчанию будет иметь значение false, т.е. соответственно при создании нового файла ты опять таки просто прсисваиваешь ей false, при первом нажатии на копку Сохранить как... ты этой переменной присваиваешь true и кнопку Сохранить активируешь, и еще при событии формы OnActivate формы пиши:

ButtonSave.enabled:= flag=true;

[фЁдОр]

Есть такое событие кнопки "OnClick" специально для этого придумали.

Я это первым делом пробывал, но очевидно я все же, что-то не так делаю:
if not N4.OnClick then
button1.enabled:=false
else
button1.enabled:=true;

где N4 - это "Сохранить как...", а button1 - "Сохранить"
но у меня компилятор ругается на условие.

[Air]

Ха,ха
прошу прошения.

Типы данных разные.

В событии N4.OnClick сделай те так как сказал "Killer_djon" и всё, далее в условии ориентируйтесь на переменную.

[фЁдОр]

я не могу понять Вашу мысль.
как это

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

... при создании нового файла ты опять таки просто прсисваиваешь ей false...

вяжется вот с этим

при первом нажатии на копку Сохранить как... ты этой переменной присваиваешь true

Ведь создание нового файла - это же и есть копка Сохранить как...

[alexBlack]

Вот такая схема:

// Начальное состояние кнопки
procedure TForm1.FormCreate(Sender: TObject);
begin
   button1.enabled := false;
end;

// Закрытие файла, если есть
procedure TForm1.CloseFile;
begin
   button1.enabled := false;
end;

// Обработка Save as...
procedure TForm1.N4Click(Sender: TObject);
begin
   button1.enabled := true;
end;

Только зачем ограничивать пользователя. Сделай обе кнопки всегда доступными и выбирай действие в зависимости от состояния.

// Нажатие Save as...
procedure TForm1.Button2Click(Sender: TObject);
begin
   doSaveAs;
end;

// Нажатие Save ...
procedure TForm1.Button3Click(Sender: TObject);
begin
   if { файл еще не сохранялся }
   then doSaveAs
   else doSave;
end;

[фЁдОр]

дело в том, что есть еще один недостаток:

procedure TForm1.FormCreate(Sender: TObject);   
begin   
   speedbutton2.enabled := false;   //кнопка "сохранить"
end;

procedure TForm1.N4Click(Sender: TObject);
begin
 speedbutton2.Enabled:=true;
 if SaveDialog1.Execute then
  Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;

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

Только зачем ограничивать пользователя. Сделай обе кнопки всегда доступными и выбирай действие в зависимости от состояния.

Так даже правильно будет, просто я хочу понять как все это работает

[alexBlack]

 if SaveDialog1.Execute then begin
    Memo1.Lines.SaveToFile(SaveDialog1.FileName);   

    // Запись была, ошибок не было, значит можно разрешить Save 
    speedbutton2.Enabled:=true;   
 end;

[фЁдОр]

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

...
    // Запись была, ошибок не было, значит можно разрешить Save 
...

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

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

Дело в том, что у меня в книге про SaveDialog кроме
if SaveDialog1.Execute then begin
Memo1.Lines.SaveToFile(SaveDialog1. FileName);
end;
больше ничего не сказано, поэтому и задаю такие глупые вопросы у Вас.