VPF::Вопрос по созданию полнофункционального приложения

Kero

Дата 7.6.2006, 23:15 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 173
Регистрация: 10.5.2006
Где: Винница,Украина | | Реал

Репутация: нет
Всего: 1

Здравствуйте продвинутые!
Делфи класная штука,поетому в порядке вещей я его хочу изучить.Я принялся к созданию себе тулбарчика,и хочу понавешивать на него всякие хрени,но не знаю еще как.Поетому хочу спросить:
1-Как написать процедурку,для того,чтоб принажатии правой нопкой на икону в трее моей проги появлялось заранее сделаная поп-менюха?
2-Как нормально вытащить иконку из файла,и присобачить ее к кнопковому глифу?
3-Как сделать експлорер по реестру типа форточкового регедита,но покруче?
smile

Жду ответов

Aleksiem

Дата 8.6.2006, 01:45 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 4.5.2006
Где: Выкса

Репутация: нет
Всего: 2

Взять большую толстую книжку по дельфи и прочитать. Я думаю там всё-всё написано. Из конкретного могу посоветовать "Библию Делфи". По-моему там про всё это написано, причём довольно простым языком.

jaAlex

Дата 8.6.2006, 01:49 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 64
Регистрация: 31.5.2006
Где: Краснодар

Репутация: нет
Всего: нет

Kero, ну и вопросы у тебя! Пока скажу как выполнить первый пункт, остальное потом: времени катастрофически не хватает, да и перевари пока это.
Для начала нам нужно сделать иконку в системном трее. Делается это так:

Код


...
uses ShellApi;
...
const
  WM_MIDASICON  = WM_USER + 1;
...
procedure SetTrayIcon;
...
procedure TForm1.SetTrayIcon;
begin
 with nid do begin
  cbSize:=sizeof(nid);
  Wnd:=self.Handle;
  uID:=self.handle;
  uFlags:= NIF_MESSAGE or NIF_ICON or NIF_TIP;
  uCallbackMessage:=WM_MIDASICON;
  hIcon:=Application.Icon.Handle;
 end;
 Shell_NotifyIconA(NIM_ADD,@nid);
end;
...

Должно работать. Идем далее. Теперь нам надо отображать Popup menu при нажатии правой кнопки мыши. Делается это так:

Код


...
uses Windows, Messages
...
procedure xwin(var Message: TMessage);
                   message WM_MIDASICON;
...
procedure TForm1.xwin(var Message: TMessage);
var
  pt: TPoint;
begin
  case Message.LParam of
    WM_RBUTTONUP:
    begin
      SetForegroundWindow(Handle);
      GetCursorPos(pt);
      PopupMenu1.Popup(pt.x, pt.y);
    end;
    WM_LBUTTONUP: begin 
      SetForegroundWindow(Handle);
    end;
  end;
 message.Result:=0;
end;
...

Вроде все. Теперь ты будешь иметь иконку твоего приложения в системном трее, и при нажатии на правую кнопку мыши будет появляться твое Popup menu.

Добавлено @ 01:58

Цитата(Kero @ 7.6.2006, 23:15

)

2-Как нормально вытащить иконку из файла,и присобачить ее к кнопковому глифу?

Можно поступить так: воспользоваться программкой извлечения иконок из файлов, а после уже поколдовать с ней и засунуть в кнопочный глиф. Могу скинуть такую программку тебе на мыло, собственного написания, если подобных нет.

Цитата(Kero @ 7.6.2006, 23:15

)

3-Как сделать експлорер по реестру типа форточкового регедита,но покруче?

А вот с этого момента поподробнее. Опиши задачу получше, я вроде когда - то давно что - то подобное делал, может чем помогу...

~FoX~

Дата 8.6.2006, 08:07 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68

2-й квест
http://vingrad.ru/DELPHI-DLP-000996

--------------------

…множественность никогда не следует полагать без необходимости…

Sunr1se

Дата 8.6.2006, 08:32 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 193
Регистрация: 1.5.2006

Репутация: 6
Всего: 13

Осталось выполнить задание номер 3 smile

Почитай http://delphiworld.narod.ru/_os_.html, раздел "Реестр".

--------------------

IRC-канал Винграда

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »