讨论一下,这种提示效果是如何实现的?
讨论一下,这种提示效果是如何实现的?
如果输入错误,动态创建一个image和lable,然后确定他们的位置,然后显示吗?
这样的话,如果下次输入正确的话,还得隐藏掉image和lable,
这样比较麻烦,有什么好的办法?
[解决办法]
应该是放一个固定的image和lable,并设置其VISIBLE为FALSE,然后出错则显示,较简单些
[解决办法]
Visible属性而已
[解决办法]
就是Visible,在onchange事件中判断
[解决办法]
[解决办法]
[解决办法]
[解决办法]
如:
Image1.Left := Edit1.Left + Edit1.Width + 10;
Image1.Top := Edit1.Top;
[解决办法]
- Delphi(Pascal) code
procedure TForm1.Button1Click(Sender: TObject);begin setposition(Edit1);end;procedure TForm1.setposition(test:TWinControl);begin Image1.Left := test.Left + test.Width + 10; Image1.Top := test.Top;end;procedure TForm1.Button2Click(Sender: TObject);begin setposition(Edit2);end;
[解决办法]
[解决办法]
那就在每个后面放一个吧
没招了,溜了
[解决办法]
其实这种方法的话,还是要相应动态创建IMAGE控件(用OBJECTlIST保存对像),一个IMAGE肯定不行的
然后像我前面写的代码设置其位置,
再然后下下次点击确定时先用FOR释放OBJECTlIST所有对象,再有不正确的地方进行添加。
其中创建IMAGE控件和LABEL控件并指定其位置都可做成函数