Мой DELPHI – Программирование

Всё для программера

Как зарегистрировать расширение файла за своим приложением и контекстное меню

Вопрос:
Как зарегистрировать расширение файла за своим приложением и контекстное меню,
связанное с этим типом?
Ответ:
Пример регистрирует расширение файла(.myext) - файлы этого типа будут открываться
приложением MyApp.Exe. Также регнстрируется одно действие (action) по умолчанию
для файлов этого типа и два дополнительных пункта контекстного меню, связанного с
этим типом файлов. Возможно, потребуется перезайти в систему чтобы изменения

вступили в силу. Прочитать остальную часть записи »

Как программно заставить выпасть меню?

Вопрос:
Как программно заставить выпасть меню?

Ответ:

В примере показано как
показать меню и выбрать в нем какой-то пункт, эмулируя нажатие “быстрой кдавиши”
пункта меню. Если у Вашего пункта меню нет “быстрой клавиши” Вы можете посылать
комбинации VK_MENU, VK_LEFT, VK_DOWN, и VK_RETURN, чтобы программно “путешествовать”
по меню. Прочитать остальную часть записи »

Как обновить список дисков компонента TDriveComboBox

Вопрос:
Как обновить список дисков компонента TDriveComboBox, учитывая, что могуд быть
подключены/отключены сетевые диски и произведена "горячая замена" plug&play дисков?
Ответ:
Следующий пример вызывает защищенный (protected) метод класса TDriveComboBox
BuildList() для регеирации списка дисков. (использовая так наз. "class cracer") Прочитать остальную часть записи »

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

Вопрос:
Как сообщить всем формам моего приложения (в том числе и не видимым в данный момент)
об изминении каких-то глобальных значений?
Ответ:
Один из способов - создать пользовательское сообщение и использовать метод preform
чтобы разослать его всем формам из массива Screen.Forms. Прочитать остальную часть записи »

Как поместить прозрачную фоновую каринку на компонент CoolBar?

Вопрос:
Как поместить прозрачную фоновую каринку на компонент CoolBar?
Ответ:
procedure TForm1.Button1Click(Sender: TObject);
var
	Bm1 : TBitmap;
	Bm2 : TBitmap; Прочитать остальную часть записи »