I prefer to use MSN because it's information prompts are relatively unique, and all chat software is popping up a regular Windows dialog, but it seems to be from the task bar. Think about it, add an API in the pure OOP tool like Delphi, it should not be difficult to achieve, spending ten minutes, finally, the following is implementation:
1. Create an Application to place the two buttons into the main form of FROM1, but 2 and button2, respectively. Button1.caption: = 'Open Window'; button '; 2, add form form2 in the NEW in the File menu item, and in Options in Project, set the FORM2 to Available froms. 3, the following is the control and attribute setting in the Form2 form Form2.Borderstyle: = bsnone; add Panel1Panel1.Align: = AlClient; panel1.bevellnner: = bvlowered; you can add the text you want in Panel1. OK, open the FORM2 code window, the code is as follows: Unit unit2;
Interface
Uses Windows, Messages, Sysutils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Extctrls, JPEG, STDCTRLS
type TForm2 = class (TForm) Panel1: TPanel; Image1: TImage; Label1: TLabel; procedure Label1Click (Sender: TObject); procedure Image1Click (Sender: TObject); private {Private declarations} public procedure Show; procedure close; {Public declarations } END;
Var Form2: TFORM2;
implementationprocedure tform2.close; begin if AnimateWindow (Handle, 200, AW_VER_POSITIVE AW_HIDE) = false then begin showmessage ( 'Form exit error'); free; end; inherited close; end; procedure tform2.Show; begin top: = 430 Left: = 560; if AnimateWindow (Handle, 200, AW_VER_NEGATIVE) = false The begin ShowMessage ('form display error'); free; end; inherited show; end; {$ r * .dfm} above the red area of the red Specifically realistic code. Add the following code to Form1: Unit Unit1;
Interface
Uses Windows, Messages, Sysutils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Stdctrls;
type TForm1 = class (TForm) Button1: TButton; Button2: TButton; procedure Button1Click (Sender: TObject); procedure Button2Click (Sender: TObject); private {Private declarations} public {Public declarations} end; var Form1: TForm1;
IMPLEMENTATION
Uses Unit2; Var Mesfrm: TFORM2; {$ r * .dfm}
Procedure TFORM1.BUTTON1CLICK (Sender: Tobject); Begin Mesfrm: = TFORM2.CREATE (Application); Mesfrm.Show;
Procedure TFORM1.BUTTON2CLICK (Sender: TOBJECT); Beginmesfrm.Close;
END.OK, running the program You can already see the effect, but remember to set the display to 800 * 600 pixels. Since the production time is shorter, only basic effects are achieved, but it can be moderately modified with the MSN information prompt.
