为什么我没次都要输入两次!
我先前曾修改过TEDIT,使其数据右对齐,可是每次我都要输入一次,然后跳到其他文本框后,再回来之后才可以正常有对齐(开始运行初期都是默认对齐方式).还有我在设计登录窗口的时候,想开始'登录'按钮不可用,每次我都要输入一次,还是不可用,再输入一次才正常显示,这是怎么回事!
设计登录窗口的时候,想开始'登录'按钮不可用,每次我都要输入一次,还是不可用,再输入一次才正常显示,这是怎么回事!
================================================================================
那要看你自己是怎么控制按钮的Enabled属性的,又是在哪个事件中控制的。
procedure TForm3.Edit1Change(Sender: TObject);
var
lStyle:Integer;
begin
lStyle:=GetWindowLong(edit1.Handle,GWL_STYLE);
SetWindowLong(edit1.Handle, GWL_STYLE,lStyle or ES_RIGHT );
end;
那上面的问题是,文本框内容居右对齐,开始时还是左对齐,后来从别的文本框条回来之后,才可以右对齐是怎么回事!非常感谢!
果然厉害!谢谢阿发伯,我还有一点问题,就是我所有的edit都要在FORMCREATE里面吗
==================================================================================
是啊,如果Edit太多,可以做个循环
for I := 0 to ComponentCount - 1 do
if Components[I] is TEdit then
with Components[I] as TEdit do
begin
lStyle:=GetWindowLong(Handle,GWL_STYLE);
SetWindowLong(Handle, GWL_STYLE,lStyle or ES_RIGHT );
end;