+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف أعمل paste دون أستعمال الماوس أو ctrl+v (/showthread.php?tid=6543)
كيف أعمل paste دون أستعمال الماوس أو ctrl+v - karika2 - 08-11-2014
بسم الله الرحمن الرحيم
رايت برامج ومواقع لا تسمح لك بعمل لصق فى الموقع او البرنامج لذلك هل يوجد حل لعمل paste غيرctrl + v
واستخدم مثلاّ بدلاّ عنها ctrl+o
كيف أعمل paste دون أستعمال الماوس أو ctrl+v - أحمد 13 - 09-11-2014
السلام عليكم اخي .. بالنسبة للمواقع التي لا تسمح لك بعمل النسخ و اللصق .
الخاصية مركبها بصاحب الموقع بما يسمى الهاكات اي Add-ons .
نود لسؤال المتعلق بالدلفي مع العلم اني جد مبتدأ . كفكرة متواضعة من
MainMenu1 في الخاصية . Short cut . يمكنك تغير الخاصائص . و الله اعلى و اعلم
كيف أعمل paste دون أستعمال الماوس أو ctrl+v - محمد عبد العزيز - 09-11-2014
السلام عليكم ورحمة الله وبركاته
إقتباس :رايت برامج ومواقع لا تسمح لك بعمل لصق فى الموقعان كانت لاتسمح فهناك سبب، اعرف السبب ثم... ابحث عن حل!
مثلا لا لزلت استعمل اختصارات قديمة لاتزال تعمل مثلا للصق SHIFT+INSERT
بعض الضفحات/المواقع لا تسمح لك بالنسخ،الحل بسيط Ctrl+U في متصفحي المفصل Opera وتظهر الشيفرة المصدرية للصفحة على شكل HTML انسخ/او اعدل/احذف الشوائب واحفظ الصفحة بملف.
كيف أعمل paste دون أستعمال الماوس أو ctrl+v - karika2 - 21-11-2014
شكراّ اخوانى على المشاركة وقد ساعدنى احد الاصدقاء smart والحل كان عبارة أجراء للـ TWMHotKey :.
كود :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Clipbrd;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
private
id1:Integer;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
clp:TClipboard;
implementation
{$R *.dfm}
procedure TForm1.WMHotKey(var Msg: TWMHotKey);
var
Str:string;
hFocus: hWnd;
begin
if Msg.HotKey = id1 then
begin
AttachThreadInput(GetCurrentThreadId, GetWindowThreadProcessId(GetForegroundWindow), true);
hFocus:= GetFocus;
Str:=clp.AsText;
SendMessage(hFocus, WM_PASTE , Length(Str), integer(@Str[1]));
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
const
MOD_CONTROL = 2;
VK_A = $41;
begin
clp:=TClipboard.Create;
id1 := GlobalAddAtom('Hotkey1');
RegisterHotKey(Handle,id1,MOD_CONTROL, VK_A);
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnRegisterHotKey(Handle, id1);
GlobalDeleteAtom(id1);
clp.Free;
end;
end.