Edit فعال فرم

[Mohammad S]

سلام خدمت تمامی دوستان عزیز
من در برنامه خودم احتیاج دارم که بدانم در هر لحظه، شی ء فعال فرم یا Edit فعال فرم کدام است (Edit ی که با دستور ActiveControl تعیین شده)
لطفا کمکم کنید.
:shock:

[دلفی3000]

به آدرس زیر یک سری بزن

http://www.arianexpress.com/delphi/v....php?p=260#260

[مهدی کرامتی]

آقا این کار درستی نیست ها ؟!؟ این جوری member جمع کردن دیگه خیلی تابلو بازیه داداش.

در ضمن داشتن member‌ در یک forum شخصی نه به آدم افتخار میده، نه چیزی به آدم اضافه میکنه. فقط کار آدم رو زیاد میکنه.

اینو یادت باشه که بفرض اینکه معروفیت و محبوبیت کسب کردی مسئولیت‌ات چند برابر خواهد شد در حالی که عایدی‌ات ثابته.

بازم میگم. بهتره تو روشت صرف‌نظر کنی. :roll:

[Inprise]

میتونید از این کد در رویداد گردان OnMouseMove فرم مورد نظرت یا رخدادگردان های مناسب دیگر مثل OnKeyPress استفاده کنی . حرف E در کلمه TEdit باید با حروف بزرگ نوشته شود . مقایسه case sensitive است .

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

if form1.activecontrol.classname='TEdit' then

label1.caption:=Form1.ActiveControl.Name else

label1.caption:='No Editbox Selected';

end;

[Mohammad S]

منظورم اینه که در یک فرم که چند تا Edit داره کدام یک در حال حاضر فعاله

[amirrf]

ActiveControl کنترل فعال رو مشخص می کنه که ممکنه یک Edit باشه. اگر می خواهید با آن Edit کاری انجام دهید از (ActiveControl as TEdit) استفاده کنید.