مشكل در كپي كردن TEdit

[nickandish]

با سلام به دوستان
من با كپي و پيست توي TEdit مشكل دارم.
از كد CopyToClipboard و pastToClipboard در رويداد keydown اديتم استفاده مي كنم . ولي وقتي از يك اديت تو اديت ديگه كپي مي كنم دو بار كپي ميشه. در واقع كد زير رو در رويداد keydown هر دو تا اديت نوشتم ولي براي هر كدوم مخصوص خودش يعني نام اديت خودش رو استفاده كردم.
حالا وقتي از يكي در ديگري كپي مي كنم دو بار كپي ميشه. هر چه بررسي كردم به نتيجه نرسيدم.
نيازمند پاسخ فوري شما عزيزان هستم.








if(Shift.Contains(ssCtrl))

{
if((Key == 'c') || (Key == 'C'))
{
EdtTel->CopyToClipboard();
}
else if((Key == 'v') || (Key == 'V'))
EdtTel->PasteFromClipboard();
else if((Key == 'a') || (Key == 'A'))
{
EdtTel->SelectAll();
}
else if((Key == 'x') || (Key == 'X'))
{
EdtTel->CutToClipboard();
}
}

[sasan_vm]

سلام
دوست عزیز کلاس TEdit, TMemo, TRichEdit هر سه، این دستورات را پشتیبانی میکنند و نیازی نیست شما برای آن کد بنویسید. بر روی یک Editbox در زمان اجرا Right Click کنید تا لیست کامل دستورات را ببینید.