المشاركات : 245
المواضيع 69
:
: 12
الإنتساب : Jan 2013
بسم الله الرحمن الرحيم
رايت برامج ومواقع لا تسمح لك بعمل لصق فى الموقع او البرنامج لذلك هل يوجد حل لعمل paste غيرctrl + v
واستخدم مثلاّ بدلاّ عنها ctrl+o
> مبرمج مبتدئ < سبحان الله بحمده... سبحان الله العظيم
المشاركات : 71
المواضيع 17
:
: 0
الإنتساب : Dec 2013
السلام عليكم اخي .. بالنسبة للمواقع التي لا تسمح لك بعمل النسخ و اللصق .
الخاصية مركبها بصاحب الموقع بما يسمى الهاكات اي Add-ons .
نود لسؤال المتعلق بالدلفي مع العلم اني جد مبتدأ . كفكرة متواضعة من
MainMenu1 في الخاصية . Short cut . يمكنك تغير الخاصائص . و الله اعلى و اعلم
المشاركات : 3,703
المواضيع 101
:
: 579
الإنتساب : Feb 2008
السلام عليكم ورحمة الله وبركاته
إقتباس :رايت برامج ومواقع لا تسمح لك بعمل لصق فى الموقع
ان كانت لاتسمح فهناك سبب، اعرف السبب ثم... ابحث عن حل!
مثلا لا لزلت استعمل اختصارات قديمة لاتزال تعمل مثلا للصق SHIFT+INSERT
بعض الضفحات/المواقع لا تسمح لك بالنسخ،الحل بسيط Ctrl+U في متصفحي المفصل Opera وتظهر الشيفرة المصدرية للصفحة على شكل HTML انسخ/او اعدل/احذف الشوائب واحفظ الصفحة بملف.
المشاركات : 245
المواضيع 69
:
: 12
الإنتساب : Jan 2013
شكراّ اخوانى على المشاركة وقد ساعدنى احد الاصدقاء
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.
أذن أصبح ctrl+a = عملية اللصق :.
> مبرمج مبتدئ < سبحان الله بحمده... سبحان الله العظيم
