我有一個Edit元件，但只希望使用者能全選，複制上面的資料，但不讓使用者去更改Edit的內容，可以嗎！？

謝謝

<textarea class="delphi" rows="10" cols="60" name="code"> var Old : String; procedure TForm1.FormCreate(Sender: TObject); begin Old := Edit1.Text;; end; procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin Edit1.Text:=Old; end; </textarea> 或改用 Label, 不用 Edit

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

可能沒辦法改Label耶…因為我是在Grid上的某個Cell，要能讓user複制那個Cell裡面的內容...~.~

原則上如果沒有 禁止修改或寫入的 屬性, 就是要將資料先備份
另外建立一個 Grid 備份整個 Grid

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

ReadOnly 設為 true;

===================引 用 文 章===================
我有一個Edit元件，但只希望使用者能全選，複制上面的資料，但不讓使用者去更改Edit的內容，可以嗎！？

謝謝

yes：ReadOnly 設為 true;