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

Материал из DRKB

Проверить, можно ли отменить последнее действие в TMemo[править | править код]

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;


Source: Взято с сайта: http://www.swissdelphicenter.ch
ID: 01007