Label の文字列をコピーするには？

解決

lale  2007-01-28 08:38:41  No: 24628  IP: [192.*.*.*]

初歩的な質問なのですが、
label に表示されている文字列を
ドラッグしてクリップボードにコピーするには
どのようにすればよいのでしょうか？

編集    削除
HOta  2007-01-28 17:21:58  No: 24629  IP: [192.*.*.*]

labelはWindowsのハンドルがありませんので、Windowsのハンドルがあるコントロールを使いましょう。

編集    削除
クリップボードは何処  2007-01-29 06:43:38  No: 24630  IP: [192.*.*.*]

>ドラッグしてクリップボードにコピーする...
クリップボードは画面上に存在しないんで、一体マウスをどこに動かすの？
ダブルクリックでよければ、
procedure TForm1.Label1DblClick(Sender: TObject);
begin
  Clipboard.AsText := TLabel(Sender).Caption;
end;

編集    削除
まこと  2007-01-29 08:10:33  No: 24631  IP: [192.*.*.*]

TMemoあたりのBorderStyleをbsNone，ReadOnlyをTrueにする
というようなイメージでしょうか？
背景色を親フォームの色に合わせるとよいと思います。

編集    削除
lale  2007-02-02 06:33:09  No: 24632  IP: [192.*.*.*]

HOtaさん、クリップボードは何処 さん、まことさん、
ありがとうございました。
いずれもなるほどという感じです。
label はいかにもコピーできそうなので
自分が知らないだけかと思っていたのですが、
こうした方法があるのでしたね。
大変参考になりました。

編集    削除