Вопрос № 143620: Уважаемые эксперты! Ранее задавал вопросы 1.По Меню и панели инструментов в стиле XP и 2. По коду поиска слова в Memo. Теперь как бы продолжаю эти темы.По 1му- это ActionManager. Оказывается у него есть 66 стандартных действий(Delphi6 и выше);<...Вопрос № 143651: Здравствуйте ув. Эксперты. Подскажите, пожалуйста, как из Delphi в Excel объединять ячейки. Спасибо....
Вопрос № 143.620
Уважаемые эксперты! Ранее задавал вопросы 1.По Меню и панели инструментов в стиле XP и 2. По коду поиска слова в Memo. Теперь как бы продолжаю эти темы.По 1му- это ActionManager. Оказывается у него есть 66 стандартных действий(Delphi6 и выше); в том числе "Поиск". Не надо вытаскивать FindDialog и писать код поиска. Надо в ActionManager нажать New Standard Action и в появившемся окне выбрать для категории Search- TSearchFind. Конечно надо чтобы были вытащены на форму ActionManager,ActionMainMenuBar,ActionToolBar
и ImageList. Теперь, чтобы появились изображения- "иконки" для кнопок и меню надо связать ActionManager с для чего сошлитесь в свойстве Images компонента ActionManager на ImageList.Сразу появится на провой панели и в ImageList- иконка. Теперь перетаскиваем иконку на панель инструментов-ActionToolBar, а Категорию в меню-ActionMainMenuBar. Чтобы сразу высвечивалось найденное слово надо для Memo1 в свойстве HideSelecti
on выбрать False. Для данного эксперимента- всё. Достаточно набрать текст и нажать кнопку поиска. Появится Диалоговое окно поиска- остальное надеюсь понятно. Поиск работает, но кода поиска нигде не видно. Вопрос: Где и как посмотреть код поиска? У меня- Delphi7.
Отвечает: Genia007
Здравствуйте, Алексеев Николай Тимофеевич! Всё элементарно, открываете C:Program FilesBorlandDelphi7SourceVcl и находите нужный модуль .pas, открыть можно простым блокнотом.
Ответ отправил: Genia007 (статус: 8-ой класс)
Ответ отправлен: 11.09.2008, 11:38 Оценка за ответ: 5 Комментарий оценки: Большое спасибо!
Вопрос № 143.651
Здравствуйте ув. Эксперты. Подскажите, пожалуйста, как из Delphi в Excel объединять ячейки. Спасибо.
Отвечает: Олекса aka SoW
Здравствуйте, Пустовойтенко Виктор Григорьев!
Все очень просто: VExcel.WorkBooks[1].WorkSheets[1].Range['A1:D1'].Merge;
Для разбивки: VExcel.WorkBooks[1].WorkSheets[1].Range['A1:D1'].UnMerge;
Диапазон (Range['A1:D1']), естественно, может бить другим.
--------- Вiк живи - вiк учись.
Ответ отправил: Олекса aka SoW (статус: 3-ий класс)
Ответ отправлен: 11.09.2008, 17:02 Оценка за ответ: 4 Комментарий оценки: Я попробовал сделать так как написали Вы
Excelworksheet1.Range[\'A1:C2\'].Merge; и не получилось.
Ваш ответ был немного неточным, оказывается нужно так
Excelworksheet1.Range[\'A1:C2\', EmptyParam].Merge(False);