delphi中,在Edit中的字体,怎么样改变当鼠标置于字体上时,字体的颜色?

来源：百度知道 编辑：UC知道 时间：2024/05/25 06:52:16

procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
edit1.Color :=Clred;
end;

procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
edit1.font.Color :=Clred;
end;

在放它的控件的mousemove中写
edit1.font.Color :=Clgreed;
比如他放在panel1上或窗体上