Edit فعال فرم [بایگانی]

Mohammad S

سه شنبه 16 اردیبهشت 1382, 14:46 عصر

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

دلفی3000

سه شنبه 16 اردیبهشت 1382, 16:31 عصر

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

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

مهدی کرامتی

سه شنبه 16 اردیبهشت 1382, 19:49 عصر

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

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

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

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

Inprise

سه شنبه 16 اردیبهشت 1382, 21:20 عصر

میتونید از این کد در رویداد گردان 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

سه شنبه 16 اردیبهشت 1382, 23:05 عصر

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

amirrf

جمعه 19 اردیبهشت 1382, 18:53 عصر

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