unit2.pas

所有delphi的入门例子

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
  procedure Button1Click(Sender: TObject);
  procedure FormCreate(Sender: TObject);

  private
     FURL:   String;
  public

  protected
     procedure   WndProc(var   msg:   TMessage);override;

  end;

var
  Form2: TForm2;
  WM_TRAYNOTIFY: Cardinal;
//nd0: NOTIFYICONDATA;
IconFlag: Integer; //自定义一个消息变量WM_TRAYICON
hs: array[0..1] of Longword;
 lname:array[0..1] of string;
 pt: Pchar;





implementation

{$R *.dfm}
procedure   TForm2.WndProc(var   msg:   TMessage);
 //pt: TPoint;
 {
  WM_TRAYNOTIFY: Cardinal;
  nd0: NOTIFYICONDATA;
  IconFlag: Integer; //自定义一个消息变量WM_TRAYICON
  hs: array[0..1] of Longword;
 }

begin
  with Msg do
 //if Message='aaa'
 //  pt := 'aaa';
 //  showmessage(pt);

 begin
    //如果消息是自定义的托盘回调消息WM_TRAYNOTIFY
    begin
      {在Msg消息中，wParam参数值为图标的uID}
      {在Msg消息中，lParam参数为鼠标事件的类型}
      case lParam of
        WM_RBUTTONDOWN: //鼠标左键被按下
          begin
             showmessage('it is left');
          end;
    end;
  end;
  inherited;
end;


end;
//调用父类的WndProc方法处理其它消息
//inherited;



procedure TForm2.Button1Click(Sender: TObject);
begin
    //showmessage(Form1.
    //WinExec('Notepad.exe Readme.txt',SW_SHOW);
    FURL :='it is furl';
    button1.Caption := furl;
Label2.Caption := pt;

end;

procedure TForm2.FormCreate(Sender: TObject);

begin
//WM_TRAYNOTIFY := RegisterWindowMessage(APPTITLE);
hs[0] := LoadIcon(hInstance, 'MainIcon');
{
nd0.cbSize := sizeof(NotifyIconData);
nd0.Wnd := Handle;
nd0.uID := 0;
nd0.uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
nd0.uCallbackMessage := WM_TRAYNOTIFY;
nd0.hIcon := hs[0];
StrPLCopy(nd0.szTip, APPTITLE, 63);
Shell_NotifyIcon(NIM_ADD, @nd0);
}
IconFlag := 0;
lname[0] :='aa';
lname[1] :='bb';

Label1.Caption := lname[0]+chr(13)+lname[1];
pt :='test';

end;

end.