突发奇想,一个不想似不能实现的浮动窗体来显示图片的问题!
仓库管理软件版1楼: 突发奇想,一个不想似不能实现的浮动窗体来显示图片的问题!
近日无事,翻了一下以前写的程序,想加一个东东上去,以前写有一个表单,货品资料表!想信写程序的人都会要写个的表的,如果在里面加一个图片(我是指一个货品对应一个图片)。如果这个图片加在GRID,似乎不是理想的。而放到一处要不就得单独一个位置,要不就得通过一个接键来打开。
如果像QQ的视频那样,有一个浮动的FORM在上面,这样的话,即节省空间,又可以随时浏览。岂不是两全齐美。
但是,如何做这样的一个窗体呢?
我已搞了一下午没有成功,不知那位DFW有这方面的经验!
frmitemimage:=Tfrmitemimage.Create(application);
frmitemimage.Show;
fwnd:=FindWindow(nil,''frmitemimage'');
SetWindowPos(fwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_SHOWWINDOW or SWP_NOSIZE or SWP_NOMOVE);
不知正不正确,请大家给我意见!
近日无事,翻了一下以前写的程序,想加一个东东上去,以前写有一个表单,货品资料表!想信写程序的人都会要写个的表的,如果在里面加一个图片(我是指一个货品对应一个图片)。如果这个图片加在GRID,似乎不是理想的。而放到一处要不就得单独一个位置,要不就得通过一个接键来打开。
如果像QQ的视频那样,有一个浮动的FORM在上面,这样的话,即节省空间,又可以随时浏览。岂不是两全齐美。
但是,如何做这样的一个窗体呢?
我已搞了一下午没有成功,不知那位DFW有这方面的经验!
2楼: 开给窗口,让他stayonTop不就行了 如超市管理软件
3楼: 那这样,又如何来操作那个主窗口 呢?
4楼: 同时显示几个窗体,Delphi是非常容易的啊,生成那个窗体,把它Show,然后用SetWindowPos让它停留在最上层,你的程序再操作来显示图片。
5楼: 试试,这样是不是可以,我要试试
6楼: 要将两者结合起来才行呀,
我是这样搞的:
var
fwnd:hwnd;
begin
if not assigned(frmitemimage) then
frmitemimage:=Tfrmitemimage.Create(application);
frmitemimage.Show;
fwnd:=FindWindow(nil,''frmitemimage'');
SetWindowPos(fwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_SHOWWINDOW or SWP_NOSIZE or SWP_NOMOVE);
不知正不正确,请大家给我意见!
仓库管理软件版7楼: fwnd:=FindWindow(nil,''frmitemimage''); //多余的
SetWindowPos(fwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_SHOWWINDOW or SWP_NOSIZE or SWP_NOMOVE);
SetWindowPos(frmitemimage.handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_SHOWWINDOW or SWP_NOSIZE or SWP_NOMOVE);
8楼: 显示了之后,如何控制这个显示 的窗体呢?
9楼: 多人接受答案了。
上一篇:FlatStyle for D7安装 下一篇:报表和数据库相连问题