تشخیص کلیک روی یک پنجره دیگر [بایگانی]

View Full Version : تشخیص کلیک روی یک پنجره دیگر

houshmand

سه شنبه 28 مرداد 1382, 21:01 عصر

:?: چگونه می توان Click شدن یک دکمه روی یک پنجره دیگر را که شماره هندل دکمه آن را داریم تشخیص داد؟(یا کار های مشابه)

1-اگر بخواهیم روال عادی آن اجرا نشود چه کار کنیم؟
2- اگر بخواهیم روال ما+روال عادی اجرا بشود چه کار کنیم؟

با تشکر

Kambiz

جمعه 31 مرداد 1382, 03:35 صبح

راهنماییش با من نوشتنش با شما، قبول؟ :wink:

باید WindowProc مربوط به Parent کلید رو با مال خودتون عوض کنید. هر وقت در این WindowProc جدید WM_COMMAND دریافت شد که <span dir=ltr>HiWord(wParam)</span> اون برابر BN_CLICKED و lParam هم برابر با Handle کلید بود٬ معنی اون اینه که کلید فشرده شده. حالا اینجا می‌تونید کد دلخواه خودتون رو اجرا کنید یا اینکه اجازه بدید تا WindowProc اصلی پیام رو پردازش بکنه.

houshmand

جمعه 07 شهریور 1382, 15:37 عصر

باتشکر
من هر کاری کردم نتوانستم WindowProc قبلی برنامه را صدا بزنم
من این برنامه را سعی کردم به کمک راهنمای Windows SDK بنویسم لطفاً بگویید که چه اشتباه(هایی) کردم؟ :roll:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
end;

var
Form1: TForm1;
p:Longint;
implementation

{$R *.DFM}
function test(hwnd:HWND;uMsg:Longint;WPARAM:WPARAM ; LPARAM : LPARAM):Longint ;
begin
result:= CallWindowProc(pointer(p),hwnd,uMsg,WPARAM,LPARAM) ;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
SetWindowLong(Button1.Handle,GWL_WNDPROC,p);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
p:=GetWindowLong(Button1.Handle,GWL_WNDPROC);
SetWindowLong(Button1.Handle,GWL_WNDPROC,longInt(@ test));

end;

end.

(متشکرم) :oops:

Kambiz

جمعه 07 شهریور 1382, 20:11 عصر

WndProc جدید و در کل تمام توابع و Callbackهای ویندوز را باید با فراخوانی stdcall تعریف کنید.

function test(hwnd:HWND;uMsg:Longint;WPARAM:WPARAM ; LPARAM : LPARAM):Longint ; stdcall;
begin
result:= CallWindowProc(pointer(p),hwnd,uMsg,WPARAM,LPARAM) ;
end;