تغییر رنگ ادیت هنگام فوکوس

[Delphi7_love]

چطور میشه با کد نویسی کمتر در یک فرم زمانی که یک ادیت فوکوس دارد رنگ آن تغییر پیدا کند و رنگ بقیه ادیت ها به حالت اولیه برگردد

[pezhvakco]

درود :
با رویدادهای OnEnter و OnExit کار کن .

procedure TForm1.Edit1Enter(Sender: TObject);
begin
Edit1.Color:=clGreen;
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
Edit1.Color:=clWindow;
end;


فکر خوش .

[baran_2005]

کامپوننت tms ابزاری به اسم focushelper داره که تنها کافی روی فرم قرار بگیرد نیازی به کدنویسی هم ندارد .

[MOJTABAATEFEH]

کامپوننت tms ابزاری به اسم focushelper داره که تنها کافی روی فرم قرار بگیرد نیازی به کدنویسی هم ندارد .

این کامپوننت رجیستر نشده است و در صورتی که قبل از اجرای برنامه دلفی باز باشه پیغام Trial بودن رو نمی ده


موفق باشید

[Felony]

کد زیر رو در رویداد OnEnter یکی از Edit هاتون بنویسید و رویداد onEnter باقی Edit ها رو هم به همون رویداد اختصاص بدید :

var
i: Integer;
begin
for i:= 0 to Self.ComponentCount - 1 do
if Components[i] is TEdit then
(Components[i] as TEdit).Color:= clWhite;

TEdit(Sender).Color:= clRed;
end;

[SAASTN]

type
TFocusedEdit = class(TEdit)
private
FFocusedColor: TColor;
procedure SetFocusedColor(const Value: TColor);
published
protected
procedure DoEnter; override;
procedure DoExit; override;
published
property FocusedColor: TColor read FFocusedColor write SetFocusedColor;
end;

{ TFocusedEdit }

procedure TFocusedEdit.DoEnter;
begin
inherited;
Self.Color := FFocusedColor;
end;

procedure TFocusedEdit.DoExit;
begin
inherited;
Self.Color := clWindow;
end;

procedure TFocusedEdit.SetFocusedColor(const Value: TColor);
begin
if FFocusedColor <> Value then
begin
FFocusedColor := Value;
if Self.Focused then
Color := FFocusedColor;
end;
end;

[baran_2005]

این کامپوننت رجیستر نشده است و در صورتی که قبل از اجرای برنامه دلفی باز باشه پیغام Trial بودن رو نمی ده


نسخه full sourc اگر دریافت کنید نیازی به رجیستر شدن نداره