Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Помогите с системным треем.

Автор: Dieser 28.3.2008, 14:38

Уже второй день не могу понять как поместить программу в трей!
Читал темы, статьи, недоходит до меня.

Программа должна просто свернутся,по нажатию закрыть или просто по Button, по нажатию на иконку развернутся обратно, никаких меню всплывающих подсказок.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

end.

Вот напримере этого, просто где что писать обьясните.Пожалуйста.

Автор: THandle 28.3.2008, 14:41

Dieser, почитай вот это:
http://forum.vingrad.ru/forum/topic-55210/unread-1.html

Автор: SneG0K 28.3.2008, 14:48

Цитата(THandle @ 28.3.2008, 13:41

)

Dieser, почитай вот это:
http://forum.vingrad.ru/forum/topic-55210/unread-1.html

Ыы((( Я хотел дать на это ссылку smile

Сорри за оффтоп

Автор: Dieser 28.3.2008, 15:05

Ну вот методом Copy/Paste что то сделал:

Начнем с этого:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
   procedure IconCallBackMessage( var Mess : TMessage ); message WM_USER + 100;
   end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var nid : TNotifyIconData;                                        //  Вот сдесь пишет   undeclared identifiler TNotifyIconData
   // Что надо сделать?

Автор: Данкинг 28.3.2008, 15:18

CoolTrayIcon или же TrayIcon из BusinessSkin. Сам их юзаю.

Автор: Dieser 28.3.2008, 15:32

Эээ.CoolTrayIcon?
Ладно.Почитаю еще и еще раз может дойдет.
Вот еще вопрос:

у меня в таймере на открытие дисковода присвоена гор. клавиша "B" :

if getasynckeystate(66)<>0 then

mciSendString('Set cdaudio door open wait', nil, 0, handle);

Как открытию CD-rom'а присвоить клавиши например Shift+A ?

Автор: THandle 28.3.2008, 15:38

Dieser, одна тема - один вопрос.

Пользуйся кнопкой "код".

CoolTrayIcon - это компонент такой. Советую начать с чего - нибудь легкого нежели "запуздыривание" иконки в трей.

Автор: Rennigth 28.3.2008, 15:52

Цитата(Данкинг @ 28.3.2008, 15:18

)

BusinessSkin

брррр, не произноси пож-та при мне таких слов. smile

2 года мучался с этой гадостью(приходилось)... Над половиной контролов приходилось применять напильник. smile