+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يمكننا دعم خيار اللصق من Edit ؟ (/showthread.php?tid=4638)
كيف يمكننا دعم خيار اللصق من Edit ؟ - M_Mori2010 - 14-10-2012
السلآم عليكم ورحمة الله وبركاته ...
أخوتي الاعزاء ..
كيف يمكنني دعم خيار اللصق في Edit اذا كان مغلق على الرقام فقط في الـ Key Press
الكود :
PHP كود :
if not(Key in ['0'..'9', #8]) then
begin
Key := #0;
Beep;
end;
شكراً لكم
كيف يمكننا دعم خيار اللصق من Edit ؟ - Lam.Abdeldjalil - 14-10-2012
و عليكم السلام و رحمة الله وبركاته
أضف للقائمة #3 و #22 :
#3 و هي ctrl c
#22 وهي ctrl v
لكن عند اللصق عليك بالتحقق حرف حرف ( لا أدري إن كانت توجد طريقة أسهل )
بالتوفيق
كيف يمكننا دعم خيار اللصق من Edit ؟ - format82 - 01-11-2012
عادة اللصق يكون بالزر اليميني ثم لصق او ضغط ctrl+v
لمنع الزر اليميني
كود :
procedure TForm1.Edit1ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
Handled:= True;
end;نضع متحول عام
كود :
VAR
Paste: BOOL;كود :
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Shift= [ssCtrl]) and (Key= ord('V')) then
Paste:= false
else Paste:= true;
end;كود :
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not Paste then
Key:= #0;
end;كيف يمكننا دعم خيار اللصق من Edit ؟ - kachwahed - 02-11-2012
السلام عليكم
يمكنك إعادة تعريف أحداث النظام، مثال:
PHP كود :
procedure WMCopy(var Msg: TMessage); message WM_COPY;