Printable View
سلام دوستان
برنامه ای درست کردم حالا یک کلید گذاشتم که اگه کلیک کنی فرم مخفی میشه
و یا کلید های دیگر برنامه Ctr + Alt + Z حالا من میخوام با کلید میانبر مثلا
دوباره ظاهر بشه لطفا بگید چیکار کنم
اصلا چطوری میشه با کلید های میانبر کار کرد کدش چیه و کجا قرار میدن :10:
با تشکر:5:
منتظرم
بای
:46:
از تابع RegisterHotKey که یک تابع API هست باید استفاده کنید.
Windows SDK رو بخون اگه نتونستی یه مثال ضمیمه می کنم .
یا حق ...
دوست عزیز لطف کن یه مثال بزن
اینجوری بهتره
با تشکر:11:
منتظرم:46:
بای:10:
یا حق ...کد:unit frm_main_unt;
{------------------------------------
=====================================
code by Hamid_PaK [PRAISER]
=====================================
------------------------------------}
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
Tfrm_main = class(TForm)
Label1: TLabel;
procedure FormCreate(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
protected
procedure WndProc(var Message: TMessage); override;
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_main: Tfrm_main;
implementation
{$R *.dfm}
procedure Tfrm_main.WndProc;
begin
//;
case Message.Msg of
WM_HOTKEY:
begin
if Message.WParam = 1002 then begin
SetForegroundWindow(Handle);
Label1.Caption := 'Key pressed !!!';
end;
end;
else
inherited WndProc(Message);
end;
end;
procedure Tfrm_main.FormCreate(Sender: TObject);
begin
if RegisterHotKey(Handle, 1002, MOD_WIN, ORD('Q')) then
Label1.Caption := 'Hot Key Registered.';
end;
procedure Tfrm_main.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := UnregisterHotKey(Handle, 1002);
end;
end.
با سلام
در بين ايونتها يك ايونت هست به نام keypress كه در بين بپارامترهاي اون يك key وجود داره شما بايك شرص اينطور مي نويسيد:
if key=vk_tab then
و بقيه دستورات در اين حالت اگر كليدي كه شما فشار ميديد مثلا tab باشه در اون صورت دستوراتي رو كه خواستيد رو براتون اجرا مي كنه . براي بقيه كد مي تونيد در قسمت help delphi توي find عبارتي مثل key رو سرچ كنيد
باي
چه ربطی داشت ؟نقل قول:
یا حق ...