View articles in ‘Forms’ Category
How to show a popupmenu in the task notification area
unit TNA; interface uses Windows, Messages, SysUtils, Classes, Controls, Forms, ExtCtrls, ShellApi, Menus; const k_WM_TASKMSG = WM_APP + 100; //die "100" type TForm1 = class(TForm) TPopupMenu1: TPopupMenu; procedure FormCreate(Sender: TObject);