Delphi实现程序窗体不在任务栏显示的解决方案

版权申诉
0 下载量 183 浏览量 更新于2024-10-16 收藏 289KB RAR 举报
资源摘要信息:"隐藏任务栏窗体技术" 在Delphi编程中,有时候需要让应用程序在运行时不在Windows任务栏上显示,以避免用户直接通过任务栏来与程序交互,或者出于美观、安全等方面的考虑。这种技术主要涉及到程序窗体的属性设置和一些Windows API的应用。下面详细说明标题和描述中所涉及的知识点。 标题 "Not-show-in-status.rar_show" 暗示了一个通过某种方式实现程序窗体不在任务栏上显示的压缩包文件。这个标题可能表明文件中包含了实现这一功能的源代码或相关技术细节。 描述 "当运行程序时,不在任务栏上显示程序的窗体。" 则具体描述了这个技术的实际应用效果。在Delphi中,这通常是通过设置窗体的窗口样式来实现的。 标签 "show" 可能是指在本文件中涉及到的属性、方法或者函数,与显示或隐藏界面元素有关。在Delphi编程中,与显示相关的属性或方法非常关键。 压缩包子文件的文件名称列表 "Delphi让程序不在任务栏上显示" 指出了文件的内容重点,即使用Delphi语言实现让应用程序的窗体不在Windows任务栏上显示的技术细节。 为了实现不在任务栏显示窗体,通常需要修改窗体的WS_EX_APPWINDOW样式,将其替换为WS_EX_TOOLWINDOW样式。这样做可以将窗体从普通窗口更改为工具窗口,从而不在任务栏上显示。在Delphi中,可以通过修改窗体的ExtendedStyle属性来实现这一点。以下是具体的实现步骤和代码示例: 1. 确保窗体创建后(在OnCreate事件中)添加以下代码: ```delphi procedure TForm1.FormCreate(Sender: TObject); begin // 设置窗体扩展样式,将窗体定义为工具窗口 SetWindowLongPtr(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW); end; ``` 2. 另一种方法是使用Windows API函数来直接修改样式: ```delphi procedure TForm1.FormCreate(Sender: TObject); begin // 使用Windows API直接设置窗体样式为工具窗口 SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW); end; ``` 在上述代码中,`Handle`是窗体的句柄,`GWL_EXSTYLE`是Windows消息常数,代表扩展样式,`WS_EX_TOOLWINDOW`是一个窗口样式常数,表示这是一个工具窗口,不属于常规窗口,因此不会出现在任务栏上。 此外,还可以通过调用`ShowWindow`函数来控制窗体的显示状态,但通常是通过调整窗体样式来隐藏窗体在任务栏的显示。 隐藏任务栏窗体的好处包括: - 提供更加专注的工作环境,例如在开发某些需要用户专注的任务程序时。 - 保护用户界面不被用户轻易关闭,适合一些需要长时间运行的后台服务程序。 - 为应用程序提供更加紧凑和集成的用户界面,减少界面元素干扰。 然而,隐藏任务栏窗体也有一些弊端: - 用户可能不习惯这样的操作方式,难以找到程序的入口点。 - 在某些情况下,可能不符合用户的直觉操作,容易导致用户困惑。 - 隐藏任务栏窗体可能会违反某些设计指南或用户体验原则。 总之,Delphi程序中隐藏任务栏窗体的实现需要对窗体的属性和Windows API有足够的了解,并能够熟练使用它们来达到预期的效果。以上技术细节都可以在相关的Delphi编程文档和社区资源中找到。

SELECT PIS.SHOW_FLT_DETAIL AS SHOW_FLT_DETAIL -- new , PIS.SHOW_AWB_DETAIL AS SHOW_AWB_DETAIL -- new , PIS.DISPLAY_AIRLINE_CODE AS CARRIER_CODE , DECODE(PIS.REVERT_FLOW,'N',PIS.FLOW_TYPE,DECODE(PIS.FLOW_TYPE,'I','E','I')) AS FLOW_TYPE , PIS.SHIP_TO_LOCATION AS SHIP_TO_LOCATION , PIS.INVOICE_SEQUENCE AS INVOICE_SEQUENCE , PFT.FLIGHT_DATE AS FLIGHT_DATE , PFT.FLIGHT_CARRIER_CODE AS FLIGHT_CARRIER_CODE , PFT.FLIGHT_SERIAL_NUMBER AS FLIGHT_SERIAL_NUMBER , PFT.FLOW_TYPE AS AIRCRAFT_FLOW , FAST.AIRCRAFT_SERVICE_TYPE AS AIRCRAFT_SERVICE_TYPE , PPT.AWB_NUMBER AS AWB_NUMBER , PPT.WEIGHT AS WEIGHT , PPT.CARGO_HANDLING_OPERATOR AS CARGO_HANDLING_OPERATOR , PPT.SHIPMENT_PACKING_TYPE AS SHIPMENT_PACKING_TYPE , PPT.SHIPMENT_FLOW_TYPE AS SHIPMENT_FLOW_TYPE , PPT.SHIPMENT_BUILD_TYPE AS SHIPMENT_BUILD_TYPE , PPT.SHIPMENT_CARGO_TYPE AS SHIPMENT_CARGO_TYPE , PPT.REVENUE_TYPE AS REVENUE_TYPE , PFT.JV_FLIGHT_CARRIER_CODE AS JV_FLIGHT_CARRIER_CODE , PPT.PORT_TONNAGE_UID AS PORT_TONNAGE_UID , PPT.AWB_UID AS AWB_UID , PIS.INVOICE_SEPARATION_UID AS INVOICE_SEPARATION_UID , PFT.FLIGHT_TONNAGE_UID AS FLIGHT_TONNAGE_UID FROM PN_FLT_TONNAGES PFT , FZ_AIRLINES FA , PN_TONNAGE_FLT_PORTS PTFP , PN_PORT_TONNAGES PPT , FF_AIRCRAFT_SERVICE_TYPES FAST , SR_PN_INVOICE_SEPARATIONS PIS --new , SR_PN_INVOICE_SEP_DETAILS PISD--new , SR_PN_INV_SEP_PORT_TONNAGES PISPT --new WHERE PFT.FLIGHT_OPERATION_DATE >= trunc( CASE :rundate WHEN TO_DATE('01/01/1900', 'DD/MM/YYYY') THEN ADD_MONTHS(SYSDATE,-1) ELSE ADD_MONTHS(:rundate,-1) END, 'MON') AND PFT.FLIGHT_OPERATION_DATE < trunc( CASE :rundate WHEN TO_DATE('01/01/1900', 'DD/MM/YYYY') THEN TRUNC(SYSDATE) ELSE TRUNC(:rundate) END, 'MON') AND PFT.TYPE IN ('C', 'F') AND PFT.RECORD_TYPE = 'M' AND (PFT.TERMINAL_OPERATOR NOT IN ('X', 'A') OR (PFT.TERMINAL_OPERATOR <> 'X' AND FA.CARRIER_CODE IN (SELECT * FROM SPECIAL_HANDLING_AIRLINE) AND PPT.REVENUE_TYPE IN (SELECT * FROM SPECIAL_REVENUE_TYPE) AND PPT.SHIPMENT_FLOW_TYPE IN (SELECT * FROM SPECIAL_SHIPMENT_FLOW_TYPE) AND PFT.FLIGHT_OPERATION_DATE >= (select EFF_DATE from SPECIAL_HANDLING_EFF_DATE) )) AND PFT.DELETING_DATETIME IS NULL AND FA.AIRLINE_UID = PFT.AIRLINE_UID AND FA.DELETING_DATETIME IS NULL AND PTFP.FLIGHT_TONNAGE_UID = PFT.FLIGHT_TONNAGE_UID AND PTFP.RECORD_TYPE = 'M' AND PTFP.DELETING_DATETIME IS NULL AND PPT.TONNAGE_FLIGHT_PORT_UID (+)= PTFP.TONNAGE_FLIGHT_PORT_UID AND PPT.RECORD_TYPE (+)= 'M' AND PPT.DISCREPANCY_TYPE (+)= 'NONE' AND PPT.ADJUSTMENT_INC_FLAG (+)= 'Y' AND PPT.DELETING_DATETIME (+) IS NULL AND FAST.AIRCRAFT_SERVICE_TYPE_UID = PFT.AIRCRAFT_SERVICE_TYPE_UID AND FAST.DELETING_DATETIME IS NULL AND PIS.TEMPORAL_NAME = TO_CHAR((CASE :rundate --new WHEN TO_DATE('01/01/1900', 'DD/MM/YYYY') THEN TRUNC(SYSDATE) ELSE TRUNC(:rundate) END ), 'YYYYMM') || '00' AND PIS.INVOICE_SEPARATION_UID = PISD.INVOICE_SEPARATION_UID --new AND PISD.INVOICE_SEP_DETAIL_UID = PISPT.INVOICE_SEP_DETAIL_UID --new AND PISPT.PORT_TONNAGE_UID = PPT.PORT_TONNAGE_UID --new AND PIS.PRINT_SUPPORTING_DOC = 'Y';上面是oracle的写法,请转成spark SQL的写法。

2023-06-02 上传
2023-05-30 上传