Delphi 7.0 DBGrid Ms-Word超鏈接

Question

Delphi，DBGrid，右鍵單擊，複製 我想要做的是在剪貼板上創建一個超鏈接，然後可以將其粘貼到Word中 掛鉤到DBGrid點擊事件

Answer 1

如果您要做的是複製存儲在DBGrid字段中的URL，則可以執行以下操作;

BEGIN 
    IF DBGrid1.Fields[YourFieldIndex].IsNull THEN 
     ShowMessage('Empty field, nothing to copy!') 
    ELSE 
     clipboard.astext := DBGrid1.fields[YourFieldIndex].asstring 
    END; 

包括在您的用途clipbrd;

如果你不想包括clipbrd你可以用一個標準的編輯框快速和骯髒的方式。

Begin 
    Edit1.text := DBGrid1.fields[YourFieldIndex].asstring; 
    Edit1.CopyToClipboard 
End; 

把選擇的方法到OnClick事件的彈出菜單或在任何你需要它。

假設該字段的內容是一個有效的URL，你可以把它粘貼到你想要的任何地方，word文檔，excel等等。