掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Form1.ActiveControl.〜〜〜 について (ID：14012)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
はじめましてαと申します 一種のテキストエディタを作ろうと思っているのですが メニューバーの「編集」部分の「コピー」「貼り付け」等において procedure TForm1.mmnCopyClick(Sender: TObject); begin if Form1.ActiveControl.ClassName = 'TMemo' then Form1.ActiveControl.CopyToClipboard; end; としたのですが、『未定義の識別子 : 'CopyToClipboard'』と出てしまいます 複数あるTMemoのいづれにフォーカスがあっても良いようにしたいですが これを回避するにはどうすれば良いのでしょうか？ とりあえず臨時として procedure TForm1.mmnCopyClick(Sender: TObject); begin if Memo1.Focused = true then Memo1.CopyToClipboard; if Memo2.Focused = true then Memo2.CopyToClipboard; if Memo3.Focused = true then Memo3.CopyToClipboard; if Memo4.Focused = true then Memo4.CopyToClipboard; end; としております（貼り付け、カット、削除、やり直しも同様です）
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.