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

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

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

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

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

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

yuish Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору GreatOne из под кого ставишь - те компоненты и кажет. т.е. у каждого юзера машины может быть свой набор компонентов
	Всего записей: 218 \| Зарегистр. 10-02-2003 \| Отправлено: 14:38 30-03-2007

whitewolfs

Member

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

Цитата:

SERGE_BLIZNUK

Ну чтож, примерно так я и думал. Спасибо за подробный ответ.

Всего записей: 300 | Зарегистр. 21-10-2005 | Отправлено: 15:34 30-03-2007

vserd Silver Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору GreatOne Эскпортируй под админом Hkcu относящийся к Delphi, а затем выполни импорт в нужной учетке.
	Всего записей: 2065 \| Зарегистр. 08-05-2002 \| Отправлено: 18:22 30-03-2007

Z MeZe

Full Member

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

Цитата:

Unsupported 16bit resource in file "..\*.dfm"

Как заставить проект компилисься с минимальными потерями (времени)?

Стоит Delphi 5 (проект был вроде тоже под 5-ым сделан...)

ребилд и подобные вещи не помогают.
На Caption и Hint подобного плана: Caption = #1048#1089#1093#1086#1076... тоже идет ругань...

Теоретически понимаю в чем проблема, а как достаточно быстро заставить двигаться проект - не знаю.

В общем, хелп...

Всего записей: 455 | Зарегистр. 09-02-2004 | Отправлено: 14:59 02-04-2007

OdesitVadim

Advanced Member

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

Эти dfm разрабатывались в 6 и старше. Гдето конверторы были. Но проще на старшую версию перейти

----------
Press any key to continue or any other key to exit
Пишите так, чтобы не было стыдно за нобелевскую премию.

Всего записей: 1568 | Зарегистр. 19-09-2003 | Отправлено: 15:30 02-04-2007

Z MeZe

Full Member

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

OdesitVadim

Цитата:

Эти dfm разрабатывались в 6 и старше

Э-э-э, да,.. похоже последний билд был в 7-ом делфи сделан

...

Цитата:

Но проще на старшую версию перейти

В смысле, поставить 7-ую и перекомпилить? (нет возможности...)

Как "руками" заставить работать (в принципе, все widestring-и можно переименовать, все равно ругается)

Всего записей: 455 | Зарегистр. 09-02-2004 | Отправлено: 15:34 02-04-2007

OdesitVadim

Advanced Member

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

Искать конвертор для dfm

Добавлено:
Во, нашёл
http://rybalko.nm.ru/html/soft/

----------
Press any key to continue or any other key to exit
Пишите так, чтобы не было стыдно за нобелевскую премию.

Всего записей: 1568 | Зарегистр. 19-09-2003 | Отправлено: 15:40 02-04-2007

Z MeZe Full Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору OdesitVadim Респект. Как по маслу
	Всего записей: 455 \| Зарегистр. 09-02-2004 \| Отправлено: 15:52 02-04-2007

SERGE_BLIZNUK

Silver Member

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

Z MeZe

Цитата:

Caption = #1048#1089#1093#1086#1076... тоже идет ругань...

проект точно сделан под Дельфи >= 6.0 (unicodе строчки в dfm)

мне помогала вот эта простенькая утилитка -
http://rapidshare.com/files/23957854/DfmUn2An.zip

DfmUn2An (Dfm Unicode To Ansi)
------------------------------
Программа переводит ресурс dfm-файла(ов) из Unicode в Ansi.
Это нужно для совместимости Delphi 5 с более поздними версиями
Delphi 6, 7... Они используют Unicode, а Delphi 5 Ansi.

Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 16:02 02-04-2007

Z MeZe

Full Member

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

SERGE_BLIZNUK

Цитата:

мне помогала вот эта простенькая утилитка -
http://rapidshare.com/files/23957854/DfmUn2An.zip

Спасибо. Тоже тема...

Но конвертер
Цитата:

http://rybalko.nm.ru/html/soft/

поинтереснее ("съел" СРАЗУ без какой-либо ручной подготовки). Этому же пришлось "чуть-чуть объяснить" (перекомпилил с ошибками)

Но тем не менее OdesitVadim, SERGE_BLIZNUK СПАСИБО за оперативность (ОНА И БЫЛА НЕОБХОДИМА

)

Всего записей: 455 | Зарегистр. 09-02-2004 | Отправлено: 16:30 02-04-2007 | Исправлено: Z MeZe, 16:34 02-04-2007

yuish

Member

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

Контекстное меню из БД

у меня запрос возвращает таблицу код, наименование, паренткод (для treeview), могу ли я создать меню как в treeview? Что то я придумать не могу сам пока.

для создания меню без субменю попытался сделать так:

Цитата:

...
dm.lquery.open;
dm.lquery.first;
while not dm.lquery.eof do
begin
NewItem := TMenuItem.Create(TrayMenu);
TrayMenu.Items.Add(NewItem);
NewItem.Caption := dm.lquery.fieldbyname('menuname').asstring;
NewItem.Tag := dm.lquery.fieldbyname('menuid').asinteger;
NewItem.OnClick := TrayMenuItemsClick;
dm.lquery.next;
end;
...

при онклик делаю так:

procedure Tmenufrm.TrayMenuItemsClick(Sender: TObject);
begin
with Sender as TMenuItem do
begin
ShowMessage(inttostr(tag));
end;
end;

но так как в таком случае все делается без субменю, возникает путаница.

Всего записей: 218 | Зарегистр. 10-02-2003 | Отправлено: 14:20 03-04-2007

RomanTim Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору yuish Ну и создавай так же, как и в TTreeView, только вместо NewNode = Tree.AddChild(Parent, Name) будет Parent.Add(NewItem)
	Всего записей: 375 \| Зарегистр. 11-09-2003 \| Отправлено: 15:15 03-04-2007 \| Исправлено: RomanTim, 15:16 03-04-2007

killerbeanjeka Junior Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору yuish Можно отталкиватся от следующего примера [?] так как принцип построения дерева и меню очень похож
	Всего записей: 86 \| Зарегистр. 27-09-2006 \| Отправлено: 16:07 03-04-2007 \| Исправлено: killerbeanjeka, 16:09 03-04-2007

Dunkel1 Newbie	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Вопрос: имеется ли в Object Pascal аналог STL С++ ?
	Всего записей: 25 \| Зарегистр. 15-11-2005 \| Отправлено: 21:34 03-04-2007

OdesitVadim Advanced Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору есть. Что бы не говорили сишники http://gurin.tomsknet.ru/delphidecal.html
	Всего записей: 1568 \| Зарегистр. 19-09-2003 \| Отправлено: 23:29 03-04-2007 \| Исправлено: OdesitVadim, 23:31 03-04-2007

George_Lucky

Full Member

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

Не подскажете, что из себя представляет журнал "Программирование на Delphi" что ли?
Индекс подписной - 82661.
Стоящая штука или так себе - бабло вытягивают...

Всего записей: 413 | Зарегистр. 12-09-2002 | Отправлено: 14:27 04-04-2007

Dunkel1

Newbie

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

Цитата:

есть. Что бы не говорили сишники
http://gurin.tomsknet.ru/delphidecal.html

О, прикольно !
А то привык к STL, а в Дельфе то пусто )

Всего записей: 25 | Зарегистр. 15-11-2005 | Отправлено: 01:30 05-04-2007

Derrick Morgan

Newbie

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

создаю клас от TMenuItem с новым публичным свойством:

Код:

TExtendedMenuItem = class(TMenuItem)
public
Ext_FileName: String;
end;

процедуру для прверки:

Код:

procedure mi();
begin
ShowMessage('hello');
end;

дальше по событию:

Код:

var
i: Integer;
MenuItem: TExtendedMenuItem;
begin
MenuItem := TExtendedMenuItem.Create(PopupMenu);
MenuItem.Caption := 'бла бла бла';
MenuItem.OnClick := mi();

но дельфя пишет
[Pascal Error] fmMainUnit.pas(734): E2010 Incompatible types: 'TNotifyEvent' and 'procedure, untyped pointer or untyped parameter'

как сделать чтобы по OnClick вылезало мессага с Ext_FileName?

Всего записей: 11 | Зарегистр. 26-03-2007 | Отправлено: 16:30 05-04-2007

OXDBA Full Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору procedure mi(Sender: TObject);
	Всего записей: 426 \| Зарегистр. 19-01-2005 \| Отправлено: 17:20 05-04-2007

RomanTim Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору Derrick Morgan Процедура mi() должна быть методом класса, а не просто процедурой в модуле: TNotifyEvent = procedure (Sender: TObject) of object;
	Всего записей: 375 \| Зарегистр. 11-09-2003 \| Отправлено: 19:05 05-04-2007

Страницы: 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 (все версии) - часть 3
ShIvADeSt (07-04-2008 02:27): продолжение в http://forum.ru-board.com/topic.cgi?forum=33&topic=9383

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

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

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC