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


Программа должна просто свернутся,по нажатию закрыть или просто по 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.


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

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

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

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

Ну вот методом 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
   // Что надо сделать?
  

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

Эээ.CoolTrayIcon?
Ладно.Почитаю еще и еще раз может дойдет.
Вот еще вопрос:
 
у меня в таймере на открытие дисковода присвоена гор. клавиша "B" :

 if getasynckeystate(66)<>0  then

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

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

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

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

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

Это сообщение отредактировал(а) THandle - 28.3.2008, 15:38

  

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