摘要： 优秀的数据库应用应当充分考虑数据库访问的速度问题。通常可以通过优化数据库、优化 查询语句、分页查询等途径收到明显的效果。即使是这样，也不可避免地会在查询时闪现一个带有 sql符号的沙漏，即鼠标变成了查询等待。最可怜的是用户，他（她）在此时只能无奈地等待。遇到急性子的，干脆在此时尝试 windows中的其它应用程序，结果致使你的数据库应用显示一大片白色的窗口。真是无奈！
本文将以简单的例子告诉......
摘要：我们为了将hint显示在statusbar1上需要如下方法
public
procedure displayhint(sender: tobject);
end;
var
form1: tform1;
implementation
{$r *.dfm}
{ here is the implementation of the onhint event handler }
{......
用Delphi打造RealPlayer播放器上一页 ...
其中:imagewindow.controlpanel.statusbar分别表示显示视频播放窗口.控制条状态条.
【程序编程相关:
用FASTREPORT实现WEB应用中自】 【推荐阅读:
ADO 方式下判断数据表是否存在
】
添加代码后,我们可以发现控件外观已经改变成了视频播放窗口形状.然后设置align属性为alclient,使播放窗口可以随窗体的变化而变化,方便大家在观看影视动画时可以随意拉动播放窗口大小. 【扩展信息:
序列化FastReport
】
然后,在窗中加入tmainmenu组件.topendialog组件各一个.用于选择并打开播放影视文件.双击tmainmenu组件,进入菜单设计器.在这里,我们要设计一个菜单项file,及其2个子菜单open.exit.设计完毕后:
双击open添加如下代码:
if opendialog1.execute then
begin
realaudio1.source:=opendialog1.filename;
realaudio1.doplay; //打开并启动播放器
end;
双击open添加如下代码:
application.terminate; //终止程序运行
为了在打开一个文件时,便于用户选择文件,要将opendialog组件的filter属性设置如下:所有媒体文件(*.rm,*.ram,*.ra,*.swf,*.mp3)|*.rm;*.ram;*.ra;*.swf;*.mp3|*.*|*.*.
最后就可以进行编译.运行.此程序在windows me,delphi 5.0的环境中调试通过.
摘要：在应用程序的开发中，常常要将某些控件对象(如标签)用鼠标选中后进行拖动操作，用以改变控件的位置，在delphi中如何实现这一功能呢？笔者想了一个方法：通过在 public 中定义全局变量用以跟踪 鼠标在移动和拖动控件时的坐标，然后在拖动结束时将鼠标的坐标值赋给控件的 top和left属性，以达到拖动的目的。
举例如下：创建一个 panel，再创建一个label，通过编程使控件 lable 可......
