Проверить, можно ли отменить последнее действие в TMemo
Falk0ner, вс, 06/07/2008 - 15:34.
Проверить, можно ли отменить последнее действие в 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;
begin
if Memo1.Perform(EM_CANUNDO, 0, 0) <> 0 then
ShowMessage('Undo is possible')
else
ShowMessage('Undo is not possible');
end;
Взято с сайта: http://www.swissdelphicenter.ch
Отправить комментарий