Mega Code Archive

 

Categories / Delphi / VCL

 

How to check, if Undo is possible in a TMemo

Title: How to check, if Undo is possible in a 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;