VPF::Работа с буфером обмена - Форум программистов

strikerok

Дата 9.1.2009, 21:58 (ссылка)

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

Загрузка ...

Новичок

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

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

Решил написать простеньку программу для работы с "несколькими" буферами обмена. Так вот, для горячих клавиш использую ActionList. Но когда программа свернута или висит в трее горячие клавиши не работают. Ну вот и вся проблема.. есть ли какой другой компонент для горячих клавиш, чтобы при свернутом приложении они работали. Или это можно реализовать как-то по другому?

SneG0K

Дата 9.1.2009, 22:11 (ссылка)

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

Загрузка ...

Max Mara

Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

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

Эммм.. Hooks?

Добавлено через 3 минуты и 51 секунду
Вот почитай. Здесь описывается работа хуков. Сразу скажу, что это работа с Win API, а не компонент. Но этот способ не намного сложней компонент.

strikerok

Дата 9.1.2009, 22:22 (ссылка)

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

Загрузка ...

Новичок

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

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

Да, и еще вопрос. Читал у Флёнова, что во вкладке Additional есть компонент TSystemTray. Думал, всё будет легко и просто. Но его там не оказалось о_О. Поэтому напрашивается вопрос: есть ли компоненты по работе приложения в трее. Или только через WinAPI?

Это сообщение отредактировал(а) strikerok - 9.1.2009, 22:23

THandle

Дата 9.1.2009, 22:41 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

strikerok, начиная с Delphi 2006(насколько помню) такой компонент есть. Раньше - есть всякие сторонние, но ИМХО, лучше на Api. Фленова втопку, без промедлений.

Добавлено через 50 секунд
Вот:

http://forum.vingrad.ru/forum/topic-55210/unread-1.html

THandle

Дата 9.1.2009, 23:02 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

Цитата(SneG0K @ 9.1.2009, 22:11

)

Эммм.. Hooks?

Стоп. А чем HotKey'и не подошли?

Что нить такое...:

Код


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    procedure WMHotKey(var Message: TWMHotKey); message WM_HOTKEY;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

const
  MY_HOT_KEY = 18793;

procedure TForm1.FormCreate(Sender: TObject);
begin
  RegisterHotKey(Handle, MY_HOT_KEY, MOD_CONTROL + MOD_ALT, VK_F5);
end;

procedure TForm1.WMHotKey(var Message: TWMHotKey);
begin
  if Message.HotKey = MY_HOT_KEY then
  begin
    SetForegroundWindow(Handle);
    ShowMessage('CTRL+ALT+F5');
  end;
end;

end.

strikerok

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

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

Загрузка ...

Новичок

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

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

Что-то не работает твой пример.

SneG0K

Дата 9.1.2009, 23:26 (ссылка)

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

Загрузка ...

Max Mara

Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

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

Цитата(THandle @ 9.1.2009, 22:02

)

Стоп. А чем HotKey'и не подошли?

Ну можно и хот кей.

Цитата(strikerok @ 9.1.2009, 22:23

)

Что-то не работает твой пример.

Странно. Ты CTRL+ALT+F5 нажимал?

THandle

Дата 9.1.2009, 23:27 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

Запускаем, жмем CTRL+ALT+F5...

Цитата(SneG0K @ 9.1.2009, 23:26

)

Ну можно и хот кей.

Намного легче чем хуки ставить.

Это сообщение отредактировал(а) THandle - 9.1.2009, 23:28

Присоединённый файл ( Кол-во скачиваний: 9 )

ExHK.rar 168,81 Kb

strikerok

Дата 10.1.2009, 00:08 (ссылка)

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

Загрузка ...

Новичок

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

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

Теперь работает, спасибо! Качаю CodeGear 2009 ) Надеюсь, там есть компонент SystemTray?

THandle

Дата 10.1.2009, 00:28 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

strikerok, есть. Называется TTrayIcon. Вкладка Additional.

strikerok

Дата 10.1.2009, 16:52 (ссылка)

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

Загрузка ...

Новичок

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

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

С треем и горячими клавишами разобрался. Еще вопрос: как скопировать Выделенный фрагмент текста с помощью моих горячих клавиш из другой программы в Буфер обмена или сразу же себе в Memo?

Это сообщение отредактировал(а) strikerok - 10.1.2009, 16:59

THandle

Дата 10.1.2009, 18:24 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

strikerok, посмотри вот, например, тему:

http://forum.vingrad.ru/forum/topic-215113...y1538283/0.html

А вообще одни топик - один вопрос.

strikerok

Дата 10.1.2009, 18:53 (ссылка)

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

Загрузка ...

Новичок

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

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

В той теме говориться о том, как скопировать в Буфер Обмена текст из компонента в своей программе. А я имел ввиду, как скопировать выделенный текст из любой другой программы.

THandle

Дата 10.1.2009, 22:58 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

strikerok, смотри статью из DRKB под названием

Цитата

Hook на буфер обмена

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