我的窗體上有很多edit控件.我想當光標到達哪個edit,它的color就變為claqua.

Question

Edit的Enter事件中加入Edit.color:=claqua;
如果要在退出时返回为原来颜色则在Edit的Exit事件中加入Edit.color:=clWindow;(白色)

Answer 1

放到你想要处理的Edit控件任意一个中，然后其它控件的链接上就可以了procedure TForm1.Edit1Enter(Sender: TObject);
begin
  (Sender as TEdit).Color := claqua;end;procedure TForm1.Edit1Exit(Sender: TObject);
begin
    (Sender as TEdit).Color := clwhite;
end;

Answer 2

procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if sender is  Tedit then
   (sender as Tedit).Color:=claqua;end;其它edit 可以引用 Edit1MouseMove 事件
我試過是可以的 !

Answer 3

来晚了。procedure TForm1.Edit1Enter(Sender: TObject);
begin  if (Sender is TEdit) then
    (Sender as TEdit).Color := claqua;end;procedure TForm1.Edit1Exit(Sender: TObject);
begin
    
    if (Seder is TEdit) then
      (Sender as TEdit).Color := clwhite;
end;

Answer 4

在第一个edit1的onenter中写入：
Tedit(sender).Font.Color:=clblue;
然后其他的edit 的onenter事件都调用edit1的onenter就行

Answer 5

zj3164的意見可以考慮.
我在我的內容中說了.我不想用enter和exit事件.那樣的話要寫很多.我想有個過程或函數來寫.

Answer 6

你可以用一个For语句搞定链接
Procedure TFRM_Setup.FormCreate(Sender: TObject);
var
  i:integer;
begin
  For i := 1 To Self.ComponentCount - 1 Do
    If (Self.Components[i] Is TEdit)  Then //你可以在后面加一些判断
      begin
        (Self.Components[i] As TEdit).OnEnter:=Edit1Enter;
        (Self.Components[i] As TEdit).OnExit:=Edit1Exit;
      end;end;
然后接上以上的代码就可以了。

Answer 7

Edit控件不用烦，就只要下面三个过程搞定！！！unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Edit1Enter(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}
procedure TForm1.Edit1Enter(Sender: TObject);
begin
 if (Sender is TEdit) then
    (Sender as TEdit).Color := claqua;end;procedure TForm1.Edit1Exit(Sender: TObject);
begin
    if (Sender is TEdit) then
      (Sender as TEdit).Color := clwhite;end;procedure TForm1.FormCreate(Sender: TObject);
var
  i:integer;
begin
  For i := 1 To Self.ComponentCount - 1 Do
    If (Self.Components[i] Is TEdit)  Then //你可以在后面加一些判断
      begin
        (Self.Components[i] As TEdit).OnEnter:=Edit1Enter;
        (Self.Components[i] As TEdit).OnExit:=Edit1Exit;
      end;end;end.

Answer 8

xzhifei,thanks you for your help! you're right!