Форум: "Основная";
Текущий архив: 2003.04.21;
Скачать: [xml.tar.bz2];
Вниз
SysTray ПОМОГИТЕ!!! Найти похожие ветки
← →
Roman (2003-04-09 17:01) [0]Мужики, помогите мне. Хочу написать прогу которая всегда висит возле часов. Я использовал RxTrayIcon. Но мне бы хотелось, чтобы при сворачивании ее на панели задач не было. Если ставить в OnApplication.Minimize процедуру ShowWindow(Application.Handle,SW_HIDE); то она просто быстро мелькает. Можно ли этого избежать? Если можно, то как? Может у RxTrayIcon есть какое-то свойство...
← →
D (2003-04-09 17:16) [1]Может, при этом форму тоже прятать?
У меня вот так на панели задач ничего не остается:
procedure TDtMod.ActMinimExecute(Sender: TObject);
begin
TrIc.Show; // Показать иконку в трее
ShowWindow(MainForm.handle, sw_hide); // Скрыть окно
ShowWindow(Application.Handle, SW_hide);
end;
← →
SammIk (2003-04-09 19:09) [2]
← →
Юрий Зотов (2003-04-09 20:43) [3]unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Forms, ShellAPI, Menus;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
FIconData: TNotifyIconData;
protected
procedure WndProc(var Message: TMessage); override;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
const
UM_TRAY = WM_USER + 1;
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
begin
with FIconData do
begin
cbSize := SizeOf(FIconData);
Wnd := Handle;
uID := 100;
uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
uCallbackMessage := UM_TRAY;
hIcon := Application.Icon.Handle;
StrPCopy(szTip, Application.Title)
end;
Application.ShowMainForm := False;
Shell_NotifyIcon(NIM_ADD, @FIconData)
end;
procedure TForm1.WndProc(var Message: TMessage);
begin
case Message.Msg of
WM_SYSCOMMAND:
if TWMSysCommand(Message).CmdType and $FFF0 = SC_MINIMIZE then
begin
Shell_NotifyIcon(NIM_ADD, @FIconData);
Application.MainForm.Visible := False
end
else inherited;
UM_TRAY:
if Message.LParam = WM_LBUTTONDBLCLK then
begin
Application.MainForm.Visible := True;
ShowWindow(Application.Handle, SW_HIDE);
Shell_NotifyIcon(NIM_DELETE, @FIconData)
end;
else inherited
end
end;
end.
← →
evvcom (2003-04-10 02:21) [4]Есть неплохой FAQ по Tray: http://helper10.narod.ru/prfaq3.htm
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.04.21;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.01 c