当前位置:主页>销售管理软件> 列表

突发奇想,一个不想似不能实现的浮动窗体来显示图片的问题!

仓库管理软件版1楼: 突发奇想,一个不想似不能实现的浮动窗体来显示图片的问题!

近日无事,翻了一下以前写的程序,想加一个东东上去,以前写有一个表单,货品资料表!想信写程序的人都会要写个的表的,如果在里面加一个图片(我是指一个货品对应一个图片)。如果这个图片加在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楼: 多人接受答案了。