Clipboard

[فریدی]

با سلام
چگونه میتوان یک پاپ اپ منو تعریف کرد و دستورات کپی و پیست و کات را برای تکست در آن تعریف کرد و از آن در جاهای مختلف استفاده نمود؟

[محمد میرمصطفی]

راه حل اول: استفاده از ActionLis.
دو: ClipBoard().Cop();

[فریدی]

با تشکر از جوابتون.
اگر لطف نمائید و برای اینکار مثالی بزنید ممنونم. من نتونستم اینکار رو انجام بدهم.

[روح الله دلفی]

برای کپی کردن :CopyToClipboard
برای پیست کردن : PasteFromClipboard
و برای کات کردن : CutToClipboard
به همین سادگی = به همین خوشمزگی :)

[فریدی]

آقا روح الله عزیز
این دستورها که شما مرقوم نموده اید را نمیتوان در یک پاپ آپ منو تعریف کرد و در جاهای مختلف استفاده کرد و این دستورات را باید همراه با نام محلی که میخواهیم عمل کپی و ... را انجام دهیم میآوریم. و یا اینکه راه دیگری دارد که این حقیر نمیدانم.
من میخواهم با یک پاپ آپ منو در editbox و ... بتوانم دستور اینکار را صادر کنم. :kaf:

[Hamid_PaK]

uses ClipBrd;



Clipboard.AsText := Edit1.SelText; // For copy to clipboard



Edit1.Text := Clipboard.AsText // For paste from clipboard



var

  tmp:String;

  a:Integer;

begin

  Clipboard.AsText := Edit1.SelText;

  tmp := Edit1.Text;

  a := Edit1.SelStart;

  Delete(tmp,pos(Edit1.SelText,tmp),leng  th(Edit1.SelText));

  Edit1.Text := tmp;

  Edit1.SelStart := a;

end; // For cut to clipboard

امید وارم بدردتون بخوره !
موفق باشید :flower:

[روح الله دلفی]

سلام
اگه درست فهمیده باشم.یک پاپ آپ منو در فرم قرار میدی.
بعد سه گزینه براش درست میکنی و دستورات لازم رو برای هر کدوم مینویسی.
برای فرا خوندنش هم خاصیت Popupmenu ادیت یا هر کامپوننتی رو به پاپ آپ منو مربوطه تغییر بده.
امیدوارم درست فهمیده باشم.
موفق باشی. :wink:

[فریدی]

بابا دوست عزیز این دستورات که نوشتید فقط در Edit1 اعتبار دارند.
من میخوام تو هر جا که پاپ آپ رو فعال کردم کار کنه. :mad:

[Hamid_PaK]

شما هر جا بخواهید Text رو به Clipboard ارسال یا دریافت کنید یه چیزی میشه شبیه همین !!!
ولی غیر ممکنه که یه کد بنویسید برای تمام Object ها استفاده کنید (حداقل من بلد نیستم) . . .
موفق باشید :flower: