如何修改ocx的图标?

mzy1999 2004-10-21 02:19:20
制作一个activeX编译成ocx,客户端下载以后会保存在:系统盘\winnt\Downloaded Program Files下
各位谁知道如何修改掉delphi丑陋的图标。
...全文
247 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
myy 2004-10-27
  • 打赏
  • 举报
回复
两种办法皆可:

1.
用Image Editor打开 工程名.res 文件,编辑里面的“MAINICON”,保存。


2.

写个 .rc 文件,内容:

A_MY_ICON ICON E:\MyWork\MyOcx\my.ico


添家加到工程中即可,注意“A_MY_ICON”这个名字按字符串排序,
不能排在“MAINICON”后面。
mzy1999 2004-10-27
  • 打赏
  • 举报
回复
楼上是该application的图标,地球人应该都知道吧!
zhaixingzi 2004-10-21
  • 打赏
  • 举报
回复
在编译时

PROBJECT——》OPTIONS——》APPLICATION下先修改图标不可以吗
SysTray控件用法详解 VB SYSTRAY 托盘图标 用VB6自带的systray.ocx控件实现托盘图标程序 : 补充: 然后在自己的VB程序中添加改控件(工程-部件-浏览)。   最好把这个ocx放到C:\WINDOWS\system32。   改控件的属性InTray属性用来设置是否显示在托盘中,True为显示在托盘,False为不显示。TrayIcon属性是在托盘中显示的图标式样。TrayTip属性是鼠标移到改控件上面显示的提示文字。如果要使程序最小化时显示到托盘,如下:   Private Sub Form_Resize()    If Me.WindowState = vbMinimized Then    cSysTray1.InTray = True    Me.Visible = False End If   End Sub   点击托盘图标后让程序显示出来,如下:   Private Sub cSysTray1_MouseDown(Button As Integer, Id As Long)    Me.WindowState = vbNormal    Me.Visible = True    cSysTray1.InTray = False    Me.SetFocus   End Sub '单击关闭不退出程序 Private Sub Form_Unload(Cancel As Integer) 主程序.Hide Cancel = False End Sub '单击关闭不退出程序 Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Cancel = 1 主程序.Hide End Sub ’tui为窗体菜单-退出选项名称 Private Sub tui_Click()’快捷键设ALT+F1 End End Sub '注:"主程序"代表一个窗体(Form),窗体菜单-退出选项需设置快捷键ALT+F1 '这个控件有一个小小的问题,如果托盘菜单有退出选项,不能直接用"End 语句",否则在编译后运行期间用户选择退出后,操作系统会报错,以上使用发送按键方法避免出错 ,当然还有其他避免出错方法。

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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