把自己的函数放在某个unit的interface部分,其他使用该函数的单元uses该unit
解决方案 »
- 如何让fastreport 设计的了表纵向打印,不不是指纸张的横纵向?
- 请教个正则表达式问题:如何取得其中的某段文字呢?比如'".*"'
- 判断“用户名”是否存在,怎么在delphi中实现?
- 自适应大小打印算法探讨,高手请进!!!!!!!
- 多线程里调不了DLL吗?提示“尚未调用coinitialize”
- 如何在ListView中制作像资源管理器中那样有大图标、小图标等的切换功能?高手帮忙!
- 如何监视和反监视其他程序的smtp发信!!!!!!!!!!!!!!!!!!
- 如何改变ListView中指定那行的颜色?
- 防火墙源代码
- 我要工作了!!!
- TreeView控件的使用?
- 请问多线程中TEvent的创建方法?
ComboBox1.Handle, // handle to destination window
CB_SHOWDROPDOWN, // message to send
true, // show state
0 // not used; must be zero
);
TComboBox.DroppedDown:= True;2.把函数放在一个unit中,新建一个无Form的Unit,然后在interface部分
声明并在Implementation中实现。在其他Form的Unit中,use这个unit.
use方法:File->Use Unit。(Alt+F11)。调用时最好加上Unit的名字,不加
也可以。我真罗嗦
当然,也可以用ComboBox的输入框和下拉框来替换上述的Edit1和List。原理相同。
ComboBox1.DroppedDown:= True;
我是这么改的你看有问题吗?
begin
Self.ComboBox1.DroppedDown := True;
end;procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
Self.ComboBox1.DroppedDown := True;
end;