Вопросы по Delphi (все версии) - часть 4 - [57] :: Прикладное программирование

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

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

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

Модерирует : ShIvADeSt
ShIvADeSt (28-06-2009 02:10): Продолжение в http://forum.ru-board.com/topic.cgi?forum=33&topic=10477	Версия для печати • Подписаться • Добавить в закладки
Страницы: 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 101

delover

Advanced Member

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

lamber
Да и что такое str? По моему это всегда было стандартным оператором паскаля по получению строкового вида числового значения к примеру так S := STR(R:2,2); точно не помню, лень.

Всего записей: 1395 | Зарегистр. 25-06-2007 | Отправлено: 15:51 22-12-2008

greenpc Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору delover var str:string; перекрывает ф-цию
	Всего записей: 401 \| Зарегистр. 18-04-2003 \| Отправлено: 16:01 22-12-2008

SReg84

Advanced Member

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

Подскажите как можно реализоавть чтобы при вызове процедуры Button1.Click открывался лоток привода CD, а при повторном нажатии на эту же кнопку - закрывался и т.д.
Заранее благодарю.

Всего записей: 939 | Зарегистр. 21-10-2008 | Отправлено: 18:49 22-12-2008

art0123 Advanced Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору SReg84 Почитай здесь...Подробнее...
	Всего записей: 1300 \| Зарегистр. 12-03-2008 \| Отправлено: 18:58 22-12-2008 \| Исправлено: art0123, 18:59 22-12-2008

SReg84 Advanced Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору art0123 Да, спасибо, но это немного не то, что мне нужно... Необходимо, что бы использовалась одна кнопка!
	Всего записей: 939 \| Зарегистр. 21-10-2008 \| Отправлено: 19:25 22-12-2008

f3ka Full Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору SReg84 можно использовать какую то переменную-флаг... в ButtonClick пишешь if <переменная-флаг поднят> then Open else Close все...
	Всего записей: 497 \| Зарегистр. 02-03-2007 \| Отправлено: 11:52 23-12-2008

delover

Advanced Member

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

greenpc

Цитата:

var
str:string;

перекрывает ф-цию

Ест-но ф-цию перекрывает. А не подскажете в этом случае чемиу я получу
System.Pos(st, System.Str(x, s123) )?

Всего записей: 1395 | Зарегистр. 25-06-2007 | Отправлено: 13:55 23-12-2008 | Исправлено: delover, 13:57 23-12-2008

greenpc

Member

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

delover
ключевое слово
Цитата:

System.

надеюсь дальше мысль ясна ?

Всего записей: 401 | Зарегистр. 18-04-2003 | Отправлено: 14:01 23-12-2008 | Исправлено: greenpc, 14:07 23-12-2008

diodio

Junior Member

И снова извините за детский вопрос.
Какие свойства отвечают за визуальное оформление различных баттонов, заголовков табшитов и проч в стиле windows XP?
Подсмотрел в исходниках книги "Delphi для профессионалов" (проект Pages.dpr, если у кого есть) - там обычные кнопки и закладки после запуска приобретают форму Win XP - но как? Я так и не догадался...
Спасибо.

Всего записей: 111 | Зарегистр. 26-12-2006 | Отправлено: 14:48 23-12-2008

greenpc Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору diodio если стандартные, то скорее всего TXPManifest
	Всего записей: 401 \| Зарегистр. 18-04-2003 \| Отправлено: 15:12 23-12-2008

Frodo_Torbins Silver Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору diodio Модуль XPMan в uses надо добавить.
	Всего записей: 2318 \| Зарегистр. 24-05-2007 \| Отправлено: 15:18 23-12-2008

diodio Junior Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору 2 greenpc, Frodo_Torbins Спасибо огромное! ) А я, блин, столько времени потратил
	Всего записей: 111 \| Зарегистр. 26-12-2006 \| Отправлено: 15:28 23-12-2008

delover

Advanced Member

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

greenpc
Ест-но.

Просто немного жаль старых времён writeln-а. Был такой компьютер, назывался Роботрон, и был у него экран зелёно-чёрный, и можно было сделать текстом типо вместо графики так чтоб буквы моргали. Вот ж)

Всего записей: 1395 | Зарегистр. 25-06-2007 | Отправлено: 15:59 23-12-2008 | Исправлено: delover, 08:49 24-12-2008

delover Advanced Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору diodio А можно написать и {$R WindowsXP.res}. Так наверное корректнее будет, чем имя модуля XPMan сохранять в EXE.
	Всего записей: 1395 \| Зарегистр. 25-06-2007 \| Отправлено: 08:55 24-12-2008

deks

Advanced Member

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

delover

ну исходный текст XPMan.pas поражает просто своим содержанием! не особо много люди накодировали то там.. кому любопытно - гляньте! тупо объявлен класс и вставлен ресурс.

Всего записей: 857 | Зарегистр. 09-10-2003 | Отправлено: 10:25 24-12-2008

ShIvADeSt

Moderator

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

deks

Цитата:

ну исходный текст XPMan.pas поражает просто своим содержанием! не особо много люди накодировали то там.. кому любопытно - гляньте! тупо объявлен класс и вставлен ресурс.

Потому что основной код вынесен в код контролов. А раньше была подмена оконных функций контролов (почти всех) и собственная отрисовка если было необходимо использовать тему.

----------
И создал Бог женщину... Существо получилось злобное, но забавное...

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 10:49 24-12-2008

delover

Advanced Member

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

ShIvADeSt
Кстати не знаете в чём может быть фокус? Дома недавно купленная лицензионная виста. На Delphi 2006 архитект тоже лицензия. Никогда проблемм с D6 (не 2006) не было. Теперь вот на висте у меня сообщение читаю при каждом запуске, что мол программа плохо работает из-за несовместимости. Однако после сообщения запускается и работает вроде нормально. И странно что D5 такого сообщения не выдаёт. А вот D6/D7 ругает. Кстати если прикрутить манифест к D7 то сообщение вроде другое, а к D6 не прикручивается, выдаёт екзепшен, может из-за этого?

Всего записей: 1395 | Зарегистр. 25-06-2007 | Отправлено: 14:46 24-12-2008

Gashikus Newbie	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Подскажите как сделать так, что б listbox автоматически прокручивался, когда появляются строки?
	Всего записей: 3 \| Зарегистр. 24-12-2008 \| Отправлено: 15:08 24-12-2008

afiget Full Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Gashikus TopIndex ScrollBy
	Всего записей: 545 \| Зарегистр. 31-12-2005 \| Отправлено: 15:34 24-12-2008

greenpc Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Gashikus lst1.ItemIndex := lst1.Items.Add('test'); фокус на добавленную строку
	Всего записей: 401 \| Зарегистр. 18-04-2003 \| Отправлено: 16:15 24-12-2008 \| Исправлено: greenpc, 16:16 24-12-2008

Страницы: 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 101

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (все версии) - часть 4
ShIvADeSt (28-06-2009 02:10): Продолжение в http://forum.ru-board.com/topic.cgi?forum=33&topic=10477

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

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

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC