掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
メニューの作成について (ID：2378)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
アクティブウィンドウをクラス参照変数に入れておいて、 その変数.Undo でどうでしょう？ --------------------------------------------------------------------- var ActiveEdit: TCustomEdit; // TEdit,TRichEdit両方を参照できるようにするため procedure TForm1.EditEnter(Sender: TObject); begin ActiveEdit := TCustomEdit(Sender); // ActiveEdit変数参照先を、Sender(イベントを発生させたオブジェクト)に end; procedure TForm1.Undo1Click(Sender: TObject); begin ActiveEdit.Undo; // ActiveEdit変数の参照先にUndo end; --------------------------------------------------------------------- VCLリファレンスの『TEdit』あたり参照。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.