بدست آوردن نام کومپوننت فشرده شده در فرم

[seyed_farid]

چگونه میتوان بدون استفاده از OnClick یک کومپوننت، نام کومپوننت کلیک شده در یک فرم را بدست آورد؟

[mzjahromi]

توی چه شرایطی
هدف چیه؟
میخوای از MouseDown و MouseUp هم استفاده نکنی؟

[amin a.^2]

منظورتون از نام کامپوننت کلیک شده چیه ؟؟؟ خواهشاً بیشتر توضیح بدید
در ضمن من فکر کنم اگه بگید که این کار رو برای چی می خواهید انجام بدید بهتر میشه بهتون کمک کرد

[seyed_farid]

متشکر از دوستان.
من میخواهم با یک دستور خاص و فقط یکبار نوشتن کد در برنامم هر کمپوننت یا کلیدی را کلیک کردم نام اون کمپوننت کلیک شده را در جائی ثبت کنم و بعنوان یک استرینگ اونو داشته باشم.
در حقیقت میخوام هر اتفاقی رو لاگ بگیرم.

[vcldeveloper]

در حقیقت میخوام هر اتفاقی رو لاگ بگیرم.
بستگی داره منظورت از هر چیزی چی باشه. می تونی یک Hook برای کیبورد و موس بنویسی. می تونی از رویداد OnMessage کامپوننت ApplicationEvent استفاده کنی.


من میخواهم با یک دستور خاص و فقط یکبار نوشتن کد در برنامم هر کمپوننت یا کلیدی را کلیک کردم نام اون کمپوننت کلیک شده را در جائی ثبت کنم و بعنوان یک استرینگ اونو داشته باشم.

می تونی یک کد برای رویداد OnClick بنویسی و اونو به همه کامپوننت هایی که رویداد OnClick دارند اختصاص بدی (از طریق Object Inspector):


procedure TForm1.AllClicks(Sender: TObject);
begin
Your_String := TComponent(Sender).Name;
end;

[seyed_farid]

ممنون . تا حدودی این کد بدردم میخوره.