请问怎样让TImage控件接受WM_SYSCOMMAND消息

angshuangxi 2001-05-21 11:12:00

我的程序执行
Image1.Perform( WM_SYSCOMMAND, SC_MOVE + 1, 0 );时没有反应
而执行
Image1.Perform( WM_SYSCOMMAND, SC_MOVE + 1, 0 );则可以正确执行，
请问，怎样使TImage也象TButton一样接受 WM_SYSCOMMAND 消息，

...全文

71 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

musicwind 2001-05-22

打赏
举报

http://www.csdn.net/expert/topic/87/87626.shtm

angshuangxi 2001-05-22

打赏
举报

那怎么让Timage支持拖放呢，Musicwind(风里来雨里去)　说的我没有搜索到啊

BigBen 2001-05-22

打赏
举报

TImage是窗口类吗？

angshuangxi 2001-05-22

打赏
举报

再提前

musicwind 2001-05-21

打赏
举报

你要的是支持拖放的Image
有解决过的，你到已经解决的里面查查 "拖放" 关键字

angshuangxi 2001-05-21

打赏
举报

老大，我没有找到啊

但是实现了图片窗体后，在窗体中摆放不了其他控件，导致这个功能很鸡肋。为解决此问题，本博文中的案例使用两个窗体搭配使用，图片窗口作为背景窗体，放置控件的窗口作为功能性窗体，功能性窗口全透明展示，可实现...

1. 实现用鼠标点住窗体的任意位置，拖动窗体 procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);...perform(WM_SYSCOMMAND,$f012,0); end; 2.

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) btn1: TButton; Main1: TImage; ...

1- Tlistbox控件重要属性items.* 举例，界面设计如下左，执行结果如下右：代码为 procedure TForm1.Button1Click(Sender: TObject); begin edit1.Text := listbox1.Items.CommaText; edit2.Text := ...

Control.Perform(WM_SYSCOMMAND, SC_MANIPULATE, 0); end; end; procedure TForm1.btn1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin ComponentControl((Sender as TControl), Shift,...

Delphi

5,388

社区成员

262,731

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章