Вопросы по Delphi 2 - [69] :: Прикладное программирование :: Компьютерный форум Ru.Board

Перейти из форума на сайт.

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?

Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi 2

Модерирует : ShIvADeSt
ShIvADeSt (22-03-2007 02:18): http://forum.ru-board.com/topic.cgi?forum=33&topic=8142	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100

ShIvADeSt

Moderator

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Продолжение темы http://forum.ru-board.com/topic.cgi?forum=33&topic=3647&start=2020#lt
Внимание, все большие куски кода (более 5 строк) оформляем в тег [more] дабы уменьшить размер поста.

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 01:52 20-04-2006 | Исправлено: ShIvADeSt, 02:02 30-06-2006

dene14 Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору RomanTim Подредактировал, глянь плиззз.
	Всего записей: 287 \| Зарегистр. 06-04-2005 \| Отправлено: 18:34 27-10-2006

goodwen Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору Jokerjar Спасибо штука хорошая но встает другая проблема как мне изменить цвет формы ? Потуму, что изначально она у меня черная
	Всего записей: 243 \| Зарегистр. 09-04-2006 \| Отправлено: 20:51 27-10-2006

andead Advanced Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору goodwen можно использовать контролы из DevExpress, там над стилем как угодно можно извращаться)
	Всего записей: 1821 \| Зарегистр. 22-09-2005 \| Отправлено: 23:03 27-10-2006

Jokerjar BANNED	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору goodwen, для компонента существует много скинов. У меня на компе есть их штук 30. Если хош, поделюсь.
	Всего записей: 591 \| Зарегистр. 22-03-2006 \| Отправлено: 07:26 28-10-2006

RomanTim

Member

Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

dene14
Здесь SetVariable('CMRNUM', cmrSiries)? Так я ж уже написал - используй Format. Например так
SetVariable('CMRNUM', Format('%.'+Length(cmrText1.Text)+'d', [cmrSiries])

vortex0220
Здесь код, который запускает калькулятор, приоритет в высокий выставляется

Всего записей: 375 | Зарегистр. 11-09-2003 | Отправлено: 11:49 28-10-2006

xitsmex

Junior Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

goodwen
Правда, самое красивое решение - DevExpress. Уйма свойств, возможность отбражать в NativeStyle и так, как хочешь. С манифестом есть другая, более сложная проблема - он принудительно делает контролы UNICODE. В них можно ввести текст на любом языке (русский, греческий, китайский), но достучаться до этого текста ты не сможешь. Если локализаци не придвидится - можно на это забить.

Всего записей: 58 | Зарегистр. 31-08-2005 | Отправлено: 12:59 28-10-2006

vortex0220 Junior Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору RomanTim Спасибо. Сработало. как теперь проверить запустилась ли внешняя программа?
	Всего записей: 96 \| Зарегистр. 12-07-2004 \| Отправлено: 13:06 28-10-2006

Sleepwalker

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

vortex0220

Цитата:

как теперь проверить запустилась ли внешняя программа?

можно через FindWindow найти окно по заголовку.

Всего записей: 1957 | Зарегистр. 19-10-2002 | Отправлено: 13:26 28-10-2006

goodwen Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору Jokerjar Поделись ) goodwens@rambler.ru
	Всего записей: 243 \| Зарегистр. 09-04-2006 \| Отправлено: 16:37 28-10-2006

Jokerjar BANNED	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору goodwen, сам компонент нужен? Или только скины?
	Всего записей: 591 \| Зарегистр. 22-03-2006 \| Отправлено: 16:52 28-10-2006

goodwen Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору Jokerjar Только скины Добавлено: andead Ссылкой не паделишься?
	Всего записей: 243 \| Зарегистр. 09-04-2006 \| Отправлено: 17:54 28-10-2006

vortex0220

Junior Member

Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

Sleepwalker

Цитата:

можно через FindWindow найти окно по заголовку.

окна нет... есть только процесс

Всего записей: 96 | Зарегистр. 12-07-2004 | Отправлено: 21:00 28-10-2006

MFPSoftware

Full Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Ребят, может кто мне подсказать на конкретном примере, как в реестре открыть переменную с типом REG_MULTI_SZ ?

Например, вот здесь переменная такого типа:
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\{45D7D63F-9BFA-4AE6-8641-608006F378A8}\DefaultGateway

Как мне записать и прочитать из нее данные? А то из кучи статей по запросу REG_MULTI_SZ я ничего не понял (((

Всего записей: 576 | Зарегистр. 01-04-2005 | Отправлено: 21:30 28-10-2006

RomanTim

Member

Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

MFPSoftware
Чтение значения
Идея в том, что в значении хранится массив строк, оканчивающихся 0. Пустая строка - конец массива (т.е. он заканчивается двумя 0 подряд). Для записи значения формируешь соответствующий массив и записываешь его через RegSetValueEx

vortex0220
А что значит - запустился или нет? Если система вообще не смогла стартовать приложение, то CreateProcess вернет False.
А вот если надо узнать - не произошло ли в нем какой-либу внутренней ошибки - то тут уже все зависит от критерия оценки успешности запуска. Если хватит того, что приложение работает спустя какое то время, то можно запомнить pi.hProcess и спустя нужное время выполнить GetExitCodeProcess. ExitCode = STILL_ACTIVE, значит приложение все еще работает

Всего записей: 375 | Зарегистр. 11-09-2003 | Отправлено: 10:43 29-10-2006 | Исправлено: RomanTim, 10:44 29-10-2006

andead

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

goodwen

Цитата:

Ссылкой не паделишься?

вот например: http://www.delphifans.com/SoftView/SoftView_2242.html сам PivotGrid можно не ставить

Всего записей: 1821 | Зарегистр. 22-09-2005 | Отправлено: 11:30 29-10-2006

goodwen

Member

Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

Gamefrm.collfiftinImg.enabled:=true;
Gamefrm.collfiftinImg.OnMouseLeave;
Gamefrm.fiftinImg.enabled:=true;
Gamefrm.fiftinImg.OnMouseLeave;
Gamefrm.zalImg.enabled:=true;
Gamefrm.zalfiftinImg.OnMouseLeave;

Подскажите как сократить сие с помощью оператора With ?

with Gamefrm.collfiftinImg, Gamefrm.fiftinImg, Gamefrm.zalfiftinImg do
begin
Enabled:=true;
onMouseLeave(Sender);
end;

Такой вариант не работает ( знаю почему) Вообще я часто вижу как используют конструкции типа with as do … with in do…комбинации их и.т.п. но в имеющихся у меня книжках описана только основная часnь with do. В инете пока тоже ничо нормального не нашел. Кто знает подскажите где почитать

andead
пасиб

Всего записей: 243 | Зарегистр. 09-04-2006 | Отправлено: 12:22 29-10-2006

ranc Full Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору goodwen with Gamefrm do begin collfiftinImg.enabled:=true; collfiftinImg.OnMouseLeave; fiftinImg.enabled:=true; fiftinImg.OnMouseLeave; zalImg.enabled:=true; zalfiftinImg.OnMouseLeave; end;
	Всего записей: 524 \| Зарегистр. 06-02-2003 \| Отправлено: 14:50 29-10-2006

goodwen Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору ranc Нет эт я понял), как чтоп именно само тело было begin Enabled:=true; onMouseLeave(Sender); end;
	Всего записей: 243 \| Зарегистр. 09-04-2006 \| Отправлено: 15:03 29-10-2006

MFPSoftware Full Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору RomanTim спасибо. сейчас попытаюсь что-нибудь придумать...
	Всего записей: 576 \| Зарегистр. 01-04-2005 \| Отправлено: 15:09 29-10-2006

FRALX

Junior Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

goodwen
За раз у всех объектов (без их указания) свойства установить с помощью
With не получится. Обекты все равно надо перебирать и соответственно при таком теле
только
with Gamefrm do begin
with collfiftinImg do begin
enabled:=true;
onMouseLeave(Sender);
end;
with fiftinImg do begin
enabled:=true;
OnMouseLeave(sender);
end;
// --- // --- //
end;
либо писать фунцию но объекты все равно перебирать

with Object as ObjectClass это просто преобразование типа Object к ObjectClass,
а with in это вообще видимо не из делфов

P.S. ( А вообще with дополнительный источник ошибок

)

Всего записей: 110 | Зарегистр. 15-12-2005 | Отправлено: 02:20 30-10-2006 | Исправлено: FRALX, 03:43 30-10-2006

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi 2
ShIvADeSt (22-03-2007 02:18): http://forum.ru-board.com/topic.cgi?forum=33&topic=8142

Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC