如何实现这样的告警窗口？

2010-03-15 03:43:09 262 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

woshizhaoxuhui 墨衍会员 · AI 创作全网分发关注 + 加入社区

三端口DC-DC变换器设计与光伏储能协同控制三端口DC-DC变换器是面向分布式能源系统的关键功率变换拓扑，通过在光伏输入、储能电池与直流负载三个端口间实现动态能量分配，解决多源异步供电下的电压稳定与功率平衡问题。其核心原理基于双Boost半桥架构与双闭环协同控制，融合MPPT最大功率点跟踪与电池智能充放电管理，在保证30V高精度稳压（±0.5V）的同时，支持光伏主导供电与电池支撑供电的自动模式切换。该技术显著提升光储系统能量利用率与供电连续性，广泛应用于微电网、便携式交直流电源及离网型光储一体机等场景，是构建柔性直流配电与智能能源管理的基础硬件单元。阅读详情

完成了一个进销存系统，现在想在用户登录后，像有些程序那样，从右下角升起一个小窗口，里面是一些告警信息，类似库存不足等等，
感觉无从下手，请大家给点建议，谢谢！

...全文

SAGA GIS英文版进行地形分析，计算常用的地形因子等 SAGA GIS中文版是一款专业的自动化地球科学分析系统软件。SAGA GIS最新版界面简洁，操作简便，用户使用时输入要分割的影像，选择要计算特征的影像或者波段，设置越大，得到的斑块越大;反之，则越小，点击Okay，得到分割影像图。SAGA GIS中文版主要通过选择适合你影像的格式，加载影像。 SAGA GIS全称是System for Automated Geoscientific Analyses，是一种用于编辑空间数据的地理信息系统(GIS)计算机程序，它是免费的开源软件，SAGA GIS旨在为科学家阅读详情

woshizhaoxuhui

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

starluck 2010-03-16

打赏
举报

[Quote=引用 4 楼 kv2002 的回复:]
CNPACK里找个仿FoxMail MSG 的窗体源码看看
[/Quote]

同用.

射天狼 2010-03-16

打赏
举报

AnimateWindow(Handle,800,AW_SLIDE Or AW_VER_NEGATIVE);

放到窗口Show事件中

jdngz 2010-03-15

打赏
举报

递增 hight,top 值

贝隆 2010-03-15

打赏
举报

学习。。。。。。。。。。。

InceptKnowledge 2010-03-15

打赏
举报



unit Unit2;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, XPMan, Buttons, StdCtrls;



type

  TForm2 = class(TForm)

    Timer1: TTimer;

    SpeedButton1: TSpeedButton;

    XPManifest1: TXPManifest;

    Edit1: TEdit;

    procedure Timer1Timer(Sender: TObject);

    procedure FormPaint(Sender: TObject);

    procedure CreateParams(var Params: TCreateParams); override;

    procedure FormResize(Sender: TObject);

    procedure SpeedButton1Click(Sender: TObject);

    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;

      Shift: TShiftState; X, Y: Integer);

  private

    { Private declarations }

    ShowBeginTime: TDateTime;

  public

    { Public declarations }

    Step: Integer;

  end;



var

  Form2: TForm2;



implementation



uses Unit1;



{$R *.dfm}

procedure TForm2.CreateParams(var Params: TCreateParams);

begin

  inherited;

  with Params do begin

    EXStyle := EXStyle or WS_EX_TOPMOST or WS_EX_NOACTIVATE;

    wndParent := GetDesktopWindow;

  end;

end;



procedure TForm2.Timer1Timer(Sender: TObject);

begin

  case Step of



    1: begin

        Self.Top := Self.Top - 1; Self.Height := Self.Height + 1;

        Self.Left := Screen.WorkAreaWidth - Self.Width - 1;

        if Self.Top <= Screen.WorkAreaHeight - 180 then begin

          Canvas.MoveTo(Self.Width - 1, Self.Height - 1);

          Canvas.LineTo(0, Self.Height - 1);

          ShowBeginTime:=Now;

          Step := 2;

        end;

      end;

    2: begin

        Canvas.MoveTo(Self.Width - 1, Self.Height - 1); //添加最下行

        Canvas.LineTo(0, Self.Height - 1); //添加最下行

        if StrToInt(FormatDateTime('s', Now - ShowBeginTime)) >= 16 then begin

          Self.AlphaBlendValue := 255; Step := 3; end;

      end;

    3: begin

        Canvas.MoveTo(Self.Width - 1, Self.Height - 1); //添加最下行

        Canvas.LineTo(0, Self.Height - 1); //添加最下行

        Self.AlphaBlend := true;

        Self.AlphaBlendValue := Self.AlphaBlendValue - 5;

        if Self.AlphaBlendValue = 0 then begin

          Timer1.Enabled := false;  end;

      end;



  end;



end;

procedure TForm2.FormPaint(Sender: TObject);

begin

  Canvas.MoveTo(0, Self.Height - 1);

  Canvas.LineTo(0, 0); //绘制左边线

  Canvas.LineTo(Self.Width - 1, 0); //绘制上边线

  Canvas.LineTo(Self.Width - 1, Self.Height); //绘制右边线

end;



procedure TForm2.FormResize(Sender: TObject);

begin

  Self.Repaint;

end;



procedure TForm2.SpeedButton1Click(Sender: TObject);

begin

  Self.Close;

end;



procedure TForm2.FormMouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

  if Timer1.Enabled = false then begin

    ReleaseCapture; //无标题窗体移动

    SendMessage(Self.Handle, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0); end; //无标题窗体移动

end;



end.