سؤال حول كيفية استعمال حدث داخل حدث آخر

قم بتعريف متحول بوليان IsAbovePicture و تقوم بإسناد القيمة له في الحدث MouseMove للصورة الاولى

و متحول اخر IsPicture2Clicked و تقوم بإسناد القيمة له في الحدث Onclick للصورة الثانية

وفي OnTimer تقوم بفحص هذين المتحولين و تقوم بتنفيذ المطلوب...

شكرا الأخ

Wael Dalloul

لكن واجهتني صعوبة في تنفيذ الشيفرة ، ياريت لو تكرمت وأدرجتها هنا

وشكرا

السلام عليكم

أعرف أن الرد جاء متأخر لكن السؤال لم يتم الرد عليه بشكل كامل

أخي الكريم هذا الحل مشابه لحل الأخ وائل لكني أعتمدت فيه على متحول رقمي واحد

أتطلع على الكود و أرجو أن يفيدك كما قمت بوضع المحاولة في المرفقات ( بإستخدام دلفي 7)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls;

type
  TForm1 = class(TForm)
	Image1: TImage;
	Image2: TImage;
	Timer1: TTimer;
	procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
	  Y: Integer);
	procedure Image2Click(Sender: TObject);
	procedure Timer1Timer(Sender: TObject);
  private
	{ Private declarations }
  public
	{ Public declarations }
  end;

var
  Form1: TForm1;
  a : integer = 0;

implementation

{$R *.dfm}

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   a := 1;
   timer1.Enabled := true;
end;

procedure TForm1.Image2Click(Sender: TObject);
begin
  a := 2;
  timer1.Enabled := true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if a = 1 then
  begin
	timer1.Enabled := false;
	a := 0;
	showmessage('pass at picture no 1');
  end;
  if a = 2 then
  begin
	timer1.Enabled := false;
	a := 0;
	showmessage('click on picutre no 2');
  end;
end;

end.

أرجو أن يفيدك

1.rar

شكرا الأخ rober لقد تم تجربة الكود وهو يعمل ، جزاك الله كل خير