Мне нужно нарисовать эллипс на TImage.
Проблема в том,что мне нужно сделать так,чтобы эллипс рисовался удержанием кнопки на любом месте TImage.

(читать всё…)

Есть несколько листов. В ячейку C2 каждого листа вставлена цифра.
Как отсортировать листы — по значениям в этих ячейках?
Сперва идут ярлычки листов со значениями в ячейках C2 — равными «1».
За ними идут ярлычки листов со значениями в ячейках C2 — равными «2» и т.д.

(читать всё…)

Как можно в Memo отследить удерживание клавиши? В Memo в начало строки вывожу символ «>», который нельзя удалять. Отслеживаю нажатие кнопок клавиатуры влево, backspace, home, нажатие мыши. Например при нажатии backspace отслеживаю положение курсора и не даю ему попасть левее символа «>». В общем должно быть разрешено делать все что можно в Memo (вводить символы, удалять, выделять), но только в последней строке, не заходя при этом за первый символ «>».
Но загвоздка в том, что если нажать backspace и удерживать, он все равно уходит влево, все удаляет и даже переходит на другие строки выше.

(читать всё…)

У меня в папке DOC есть графические файлы разных форматов. Как прописать условие: если не нашел PDF, то открыть JPEG?

(читать всё…)

Есть БД, в которой имеются повторяющиеся значения.
Необходимо выбрать уникальные, но при этом с выбором уникальных значений в новую БД должны поместится в одну ячейку, объединенные данные по всем повторяющимся значениям, привязанные к нашим уникальным….

(читать всё…)

Подскажите, пожалуйста, как оптимизировать макрос? Записей в таблице много, работает очень медленно.

Sub Макрос1()
Dim W1 As Workbook
Set W1 = Application.Workbooks("11.xlsm")
    Dim i, j, iLastrow As Long, iLastcol As Long

W1.Activate
With W1.Sheets(1)
  iLastrow = .Cells(Rows.Count, 1).End(xlUp).Row
 iLastcol = Cells(2, Columns.Count).End(xlToLeft).Column
For i = 2 To iLastrow
For j = 7 To iLastcol Step 3
   Cells(i, j).FormulaR1C1 = "=RC[-1]-RC[-2]"
 Next
Next
End With
End Sub

(читать всё…)

В ячейке экселевского листа через DDE транслируются котировки. Дальше я перевожу их в проценты и мне нужно, чтобы, когда этот процент будет выше определенного значения, эксель инициировал бы звуковой сигнал. Скажем, если прибыль/убыток выше 5% от общей суммы счета, звучит сигнал. При этом желательно, чтобы этот звук воспроизводился бы виндой, то бишь без запуска медиа-плейера, и чтобы звуковой файл можно было бы менять (или повторять несколько раз, но это наверное сложнее, проще просто подставить отредактированный файл).

(читать всё…)

Знаю несколько способов скачать изображение с интернета по средствам Delphi. Но, как скачать по такой ссылке?
http://homeandinteriors.ru/wp-content/uploads/2012/11/Brabbu-–-португальский-дизайнерский-бренд-выпускающий-эксклюзивные-предметы-интерьера-3.jpg
Не знаю в чем проблема, в кириллице или в черточках(-–-), но ошибка:
HTTP/1.1 404 Not Found

(читать всё…)

Во многих программах (играх) обычно при нажатии тильды (~) вылезает «панель», куда можно вводить команды, и куда выводится отладочная информация. Типа командной строки CMD.
Допустим есть Memo. Выводим туда значок «>». Пользователь что-то вводит и нажимает Enter. Строка остается,но уже без значка, а значок выводится в следующую строку.
Но в мемо можно перемещать курсор и писать в любом месте, а этого не нужно. Наоборот, при нажатии кнопок вверх и вниз в строке должны выводиться предыдущие введенные команды.
Вот что-то ничего в голову не приходит как такую фичу сделать.

(читать всё…)

Как получить IP-адрес пользователя со стороннего сервиса, типа 2ip.ru?

(читать всё…)