Отключить пункт меню (Программно)
Здравствуйте.. Подскажите мне пожалуйста.
Есть пунк меню, допустим "Вырезать", Name = TextCut. По умолчанию он включен (Активен).
Если отключать его программно, то есть, (TextCut.Enabled:=False; )
// Процедура TextCutClick
procedure TForm1.TextCutClick(Sender: TObject);
begin
TextCut.Enabled:=False;
begin
Memo1.CutToClipboard;
end;
end;
То получается что при запуске приложения, пункт меню "Вырезать", остается включенным, пока на него не нажмешь.
Когда на него нажмешь, только тогда он выключается (Становится неактивным).
Как сделать чтобы он был неактивен сразу после запуска приложения?
..........
А вообще мне нужно сделать чтобы он был неактивен, если нечего вырезать.
То есть если в Memo есть текст, но он не выделен, то пункт меню "Вырезать" неактивен. Если же в Memo есть текст, и он выделен, то пункт меню "Вырезать" включается (Становится активным)
Процедура вроде бы простая. Блин но не могу я сообразить.
Помогите?
Заранее спасибо!
|