//エディタ等で直前の操作を元に戻す。
//MEMOとBUTTONを置く、MEMOに書いた内容をBUTTONで取り消す。

procedure TForm1.Button1Click(Sender: TObject);
begin
       SendMessage(Memo1.Handle, WM_UNDO, 0, 0);  
end;
                                     97/10/21(火) 多摩の岳夫(GFA03144)
                                http://www.asahi-net.or.jp/~ij7t-snhr/

P.S 究極の「石」ですが、わたしゃこれで３日悩みました。

Original document by 多摩の岳夫      氏 ID:(GFA03144)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。