如何在dephi中引用photoshop对象并进行编辑? 可能有点大了,呵呵,主要想利用photoshop的功能,把一些简单的功能封装到自己的程序里来。请各位赐教!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 OLE?不知道Photoshop有没有这功能。不过感觉是不行. 创建Photoshop式浮动窗口应用程序用过Photoshop的朋友一定对它的那些方便的浮动面板记忆犹新,其实这些面板就是一个个的小窗体,但这些小窗体都放在Photoshop的主窗体上(不是存在主窗体中),有自己的标题栏、最小化按钮及最大化按钮。但它们与MDI程序不同的是,他们可以拖到主窗体外,更重要的是工作中所有这些面板窗体与主窗体最处于激活状态。 用Spy & Capture查看一下就不难发现,这些面板窗体的Parent Window都是Photoshop的主窗体(以Photoshop CS为例,主窗体的Handle是001906D8,所有面板的Parent Window指向的就是001906D8),而一般我们创建的窗体的Parent是为None的。 下面的代码就为实现这种Photoshop式浮动窗口的示范://......var Form1: TForm1;implementationuses Unit2;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin //把Form2的Parent改为Form1 Form2 := TForm2.CreateParented(Form1.Handle); Form2.Show; //使得Form2处于激活状态 SendMessage(Form2.Handle, WM_NCACTIVATE, Ord(True), 0);end;procedure TForm1.Button2Click(Sender: TObject);begin Form2.Close;end;procedure TForm1.FormDestroy(Sender: TObject);begin //记得加上这一句 if Form2.Showing then Form2.Close;end;end. 上面的代码就可以显示一个与Form1同处激活状态的Form2,再对Form2的BorderStyle与BorderIcons属性作一些必要的选择,就可以实现更加完美的效果! 去Adobe站点看看,也许他们开放了相关接口呢。 TO: lovendII(戒情人) 你写的东西不是我想要的。@.@TO:其它各位:谢谢支持。自己试了一下,引入不了它的对象,不如何下手?不过,不行的话,可能用其它方式来实现了。 memo里引号的问题 在delphi7.0中如何将数据导入到excel中? 如何获取和设置fastreport 内里的memo 控件的宽? 在哪里可以找到WINDOWS自带的图片? 谁有读硬盘序列号的源代码(delphi)急急急 那位大侠能帮我看一下这是怎么回事? Delphi 8是否只能写基于.Net架构的程序? 请问如何制作登陆界面? 我们这的电信总是在几分钟之后要我输入用户名和密码登陆网络。 怎样连接access数据库 如何把data:array[0..9] of char中的数据写入到内存流中?急!!! 生成窗体常出现错误:Invalid pointer operation
Form1: TForm1;implementationuses Unit2;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
//把Form2的Parent改为Form1
Form2 := TForm2.CreateParented(Form1.Handle);
Form2.Show;
//使得Form2处于激活状态
SendMessage(Form2.Handle, WM_NCACTIVATE, Ord(True), 0);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
Form2.Close;
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
//记得加上这一句
if Form2.Showing then Form2.Close;
end;end. 上面的代码就可以显示一个与Form1同处激活状态的Form2,再对Form2的BorderStyle与BorderIcons属性作一些必要的选择,就可以实现更加完美的效果!
你写的东西不是我想要的。@.@TO:其它各位:
谢谢支持。自己试了一下,引入不了它的对象,不如何下手?
不过,不行的话,可能用其它方式来实现了。