...prüfen, ob Undo beim TMemo möglich ist?

Autor: Vertex
Homepage: http://buerger.metropolis.de/vertex

Kategorie: VCL

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;

 

printed from
www.swissdelphicenter.ch
developers knowledge base