UC知道delphi中 图片按钮和拖动窗口的问题(急急急!!!!)
来源：百度知道 编辑：UC知道 时间：2024/09/20 15:26:57
我建立窗体,把标题栏隐藏了,窗体里全是图片,按钮也是图片,现在我要拖动窗体使用了:
procedure TForm1.MyMsg(var msg: TWMNCHitTest);
begin
Inherited;
if msg.Result = HTCLIENT then
msg.Result := HTCAPTION;
end;
这个方法,但是我图片做的按钮就不能点击了,请问有什么方法可以一举两得,又可以拖动窗体,又可以使用procedure TForm1.Image1Click(Sender: TObject);的功能
或者说用什么控件可以运行,我最右边是按钮,然后点击右边不同的按钮,左边弹出不同的窗口,并且窗口无边框,看上去就像只在一个窗体中编辑的
procedure TForm1.MyMsg(var msg: TWMNCHitTest);
begin
Inherited;
if msg.Result = HTCLIENT then
msg.Result := HTCAPTION;
end;
这个方法,但是我图片做的按钮就不能点击了,请问有什么方法可以一举两得,又可以拖动窗体,又可以使用procedure TForm1.Image1Click(Sender: TObject);的功能
或者说用什么控件可以运行,我最右边是按钮,然后点击右边不同的按钮,左边弹出不同的窗口,并且窗口无边框,看上去就像只在一个窗体中编辑的
我也最近才实现了这个功能，可以说是MPI窗口！
用PageControl控件可以实现，你把窗体的边框设为无边框，打开的时候最大化，每打开一个窗体就在主窗体的PageControl上面新建一个标签页，标签显示窗体的Caption属性，并把窗体的父控件设标签页，再在PageControl的标签双击事件中写入双击可以关闭当前标签页的事件就可以了！