Программирование меню

[ГОСЕАН]

В меню я прописал процедуру сохранения акта Post. но вот вопрос, как сделать так, чтобы когда запись сохранена, то пункт меню не активно, а если запись не сохранена или изменена то активно?

[Alex21]

Вводишь переменную типа:boolean.
Нажатие на кнопку сохранить переводит ее в состояние true.
При внесении изменений, а также в начале работы (пока еще проект не сохранен) переменная = false;
А дальше, при например OnChange, отслеживаешь ее состояние и при необходимости меняешь активность кнопки "Save"

[ГОСЕАН]

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

Вводишь переменную типа:boolean.
Нажатие на кнопку сохранить переводит ее в состояние true.
При внесении изменений, а также в начале работы (пока еще проект не сохранен) переменная = false;
А дальше, при например OnChange, отслеживаешь ее состояние и при необходимости меняешь активность кнопки "Save"

А кодом это как выглядит?

[Alex21]

Нажимаем на кнопку сохранить:

var 
saveInd:boolean;
......
процедуры сохранения...
saveInd:=true; {показывает сохраненили или нет}
N003.Enabled:=false; {делаем неактивной}
{saveInd можно не использовать, 
а просто писать N003.Enabled:=false}

В событие SetEditText (в StringGrid), т.е. при редактировании :

procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,  ARow: Integer; const Value: String);
begin  
saveInd:=false;  
if saveInd=false then N003.Enabled:=true    
 else N003.Enabled:=false;{saveIndможно не использовать, а просто писать N003.Enabled:=true}
end;

[Pitbull]

Сообщение от ГОСЕАН

В меню я прописал процедуру сохранения акта Post. но вот вопрос, как сделать так, чтобы когда запись сохранена, то пункт меню не активно, а если запись не сохранена или изменена то активно?

Вот тебе код ,которій проверяет, были ли какие-то изменения в базе...

if table1.modifed then кнопка.enabled:=True
else кнопка.enabled:=false;

а можно ввести какую-то логическую перепенную.... И изменять ее значение, при выполнении функции сохранения...Но тут есть прикол, что сохранение происходит в базе не только ,когда выполняется Post(), но и когда переходишь на другую строку Table1.Next..... Т.ч учитівай єти приколі....

[ГОСЕАН]

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

Вот тебе код ,которій проверяет, были ли какие-то изменения в базе...

if table1.modifed then кнопка.enabled:=True
else кнопка.enabled:=false;

а можно ввести какую-то логическую перепенную.... И изменять ее значение, при выполнении функции сохранения...Но тут есть прикол, что сохранение происходит в базе не только ,когда выполняется Post(), но и когда переходишь на другую строку Table1.Next..... Т.ч учитівай єти приколі....

а в какой обработчик лучше вставить?

[Pitbull]

Сообщение от ГОСЕАН

а в какой обработчик лучше вставить?

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

[ГОСЕАН]

что-то ваши подсказки неработают с БД, StringGrid1SetEditText не так видимо организован. if table1.modifed then кнопка.enabled:=True
else кнопка.enabled:=false;- это ругается

[Pitbull]

xxx mn_fuzka xxx

Сообщение от ГОСЕАН

что-то ваши подсказки неработают с БД, StringGrid1SetEditText не так видимо организован. if table1.modifed then кнопка.enabled:=True
else кнопка.enabled:=false;- это ругается

Наверное, modified..... Букву пропустил.... Подсказкой пользуйтесь.... Я ж говорю, что сижу в клубе...Тут нет Delphi.... Наберите table1.mo и нажмите ALT+пробел......
xx mn_fuzka xx

[ГОСЕАН]

да нет, это вы пропустили, чему равно. Все равно спасибо, я решил проще.