Проверить, можно ли отменить последнее действие в TMemo

Благодарю за поддержку!

		Новости сайта
		Новости форума

Архив исходников

Automatic translation

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

Проверить, можно ли отменить последнее действие в TMemo

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

procedure TForm1.Button1Click(Sender: TObject);
 begin
   if Memo1.Perform(EM_CANUNDO, 0, 0) <> 0 then
     ShowMessage('Undo is possible')
   else
     ShowMessage('Undo is not possible');
 end;