掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
文字入力をソースコードでのみ可能にしかつクリップボードにコピー可能にするには？ (ID：16300)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Edit1を読み込み専用にして ポップアップメニュー設定 この変は設計時でもできます。 -- また、Edit1の読み込み専用は、他のソフトから めーせーじで OFFにする裏技で解除できるので 確実にロックしたい場合は、めっせーじをフィルタして 内部変数とかいろいろ駆使して 自分が出したの以外、絶対。受け付けないようにするとか 工夫するといいです。 -- procedure TForm1.FormCreate(Sender: TObject); begin Edit1.ReadOnly := True; Edit1.PopupMenu := PopupMenu1; end; procedure TForm1.PM_Copy1Click(Sender: TObject); begin Edit1.CopyToClipboard; end; procedure TForm1.PopupMenu1Popup(Sender: TObject); begin PM_Copy1.Enabled := Edit1.SelLength >0; // 常にテキスト全体なら // PM_Copy1.Enabled := Length(Edit1.Text) >0; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.