» Вопросы по Delphi (все версии) - часть 4

Frodo_Torbins
Судя по всему он путает {APPTYPE CONSOLE} и обычное безоконное приложение. У чисто консольного нет таймера, а у безоконного - можно сделать while GetMessage и в принципе таймер будет работать (у меня работало ).

ShIvADeSt
По моему в консольном тоже можно сделать петлю. По крайней мере я видел несколько прог, которые имели консоль, но при этом показывали окошки, когда надо. Вот если под дос приложение, то там понятное дело без окон надо обходится.

Frodo_Torbins
Вообще-то да. Я имел в виду не чистое консольное приложение. А таймер я встроил в модуль, который имеет Control. А уж модуль использовался в DPR файле. Мне просто нужен был принцип.

Aleksandr_N
Заранее извиняюсь за возможную рекламу (Если кто ее таковой сочтет).
Есть книга "Дельфи Советы программистов" 2004 год. Санкт-Петербург. Там на странице 864 есть пример, правда ооочень большой листинг (на 5 страницах). Называется - Индикатор хода выполнения в консольном приложении. Как раз это и есть таймер в консольном приложении. В uses только SysUtils,Windows.
В кратце там используются команды работы со временем Now, EncodeTime, FormatDateTime...

Извините, я призадумался.

Код:
procedure Sleep(milliseconds: Extended);
begin
SysUtils.Sleep(Round(milliseconds));
end;

И ещё небольшой вопрос
Как после открытия проводника выделить нужный мне файл?

Aleksandr_N
ShellExecute(hWnd, '', 'explorer', '/select,"' + fn + '"', '', SW_SHOWNORMAL);
fn - полное имя файла

anfilat
Спасибо, про

Цитата:

/select

я совсем забыл.

Помогите решить проблему с Delphi 2009. В ней почему-то отвалился Tab. Перестал работать в SynEdit. Также пробовал в стандартном Memo - тоже не катит. В Delphi 2007 все работало.

Сам ловил Tab вручную, но в KeyDown он не ловится, а ловится только в KeyUp. Это не то, что я хотел. При зажатой клавише табуляция не повторяется, а происходит только при отпускании клавиши. Это не совсем то, потому что во первых визуально это выглядит как затормаживание программы, а во вторых хотелось бы так как это было раньше.

Aleksandr_N
В Фаре
F2 Проводник explorer /e, "!\"\, /select, "!.!"
Это для Висты, в XP помоему без косой.

tatuich
А как ты на другие контролы переходишь? У меня уже больше пяти лет Ctrl+Tab для едита, ну и понятно, что это не диалоговая комбинация... А KeyDown самому не трудно ловить. Да и всё же в исходниках...

MAD коллекшен попал в трояны, чё-то не так

Цитата:

tatuich
А как ты на другие контролы переходишь? У меня уже больше пяти лет Ctrl+Tab для едита, ну и понятно, что это не диалоговая комбинация... А KeyDown самому не трудно ловить. Да и всё же в исходниках...

Ну в Delphi 2007 в SynEdit ловилась Tab\Shift+Tab и работала. А в Delphi 2009 почему-то уже нет.


Цитата:

А KeyDown самому не трудно ловить.

В KeyUp ставлю код:

Код: if Key = VK_TAB
then Showmessage('up');

tatuich
Забей на систему. Нынче, нужно обеспечить, чтобы юзер контрол добрался до контрол. Есть такая система - MDI. Тут ничего уже не поделать. Нажатия клавишь транслируются в системные команды. Но... Тебе мой снифер дать? Можно хоть пороли скачивать. А как систему призвать к ответу - я не знаю.

Добавлено:
tatuich
У меня нет лицензионного 2009 извини...

Товарищи, такое дело. Имеем шестнадцатеричное значение, ну например $0D. Как его отобразить как строку? Глаза разбегаются от обилия функций, всякие HexTo*, BinTo, а все не то. Я запутался. Какую можете посоветовать или может надо "напильником подработать" стандартную?

Maks150988
А в каком оно формате? Если integer, то так:

Код: Memo1.Lines.Add('$'+IntToHex(int, 2));

Frodo_Torbins
Да, спасибо, оно самое.

Привет всем. Такой вопрос. Нужен dblookupcombobox у которого при наведении на любой пункт списка будет высвечиваться многострочная подсказка для сокращения длины объекта.

with ProductsGridView1.DataController do
begin
// Добавляю новую запись.
RecordCount := RecordCount + 1;
SetValue(RecordCount-1,1,Bcode);
SetValue(RecordCount-1,2,Desc);
SetValue(RecordCount-1,3,GridPosition);
SetValue(RecordCount-1,4,Id);
// Хочу позиционироваться на ней
FocusedRecordIndex := RecordCount - 1; // Исходя из девовского хелпа, это должно работать!!!
//ProductsGridView1.ViewData.Records[RecordCount - 1].Selected := True;
end;

В рез-те кода выделенной становиться не добавленная запись, а предыдущая. На закоментированной строке просто вываливается ошибка (Project Project1.exe raised exception class EListError with message 'List index out of bounds (0)'.).
Подскажите, где я что делаю не так?

вопрос про потоки.
одним из ключевых моментов использования потоков это синхронизация доступа к объктам. Synchronize надо использовать когда то к чему обращаешься может быть использовано другими.
а вот такая ситуация

есть unit1 и есть datamodule1 с dataset1
в unit1 объявлен поток, который работает с dataset1. кроме этого потока явно никто не обращается к dataset1.
Могу ли я работать из потока с dataset1 без всяких Synchronize и других ухищрений? Т.е. обращаться к datamodule1.dataset1... ?

реализовал это, все работает. но вот вдруг что не так?

fcdobpiy
можно работать так... Synchronize используется чаще всего для обращение к объектам VCL, а не к объектам которые могут использоваться другими потоками... если нужно из другого потока обратиться к одному объекту то используют чаще всего критические секции

fcdobpiy

Цитата:

Могу ли я работать из потока с dataset1 без всяких Synchronize и других ухищрений? Т.е. обращаться к datamodule1.dataset1... ?

Только если вы уверенны, что сам датасет не обратится ни к каким други обьектам, например Application, Screen...

Frodo_Torbins
то есть вы утверждаете, что если датасет прицеплен к гриду какому-либо, и начать в потоке двигаться по датасету, то будут AV из-за отрисовки движения в гриде?

f3ka
Скорее всего да, но довольно редко.

f3ka
Frodo_Torbins
спасибо.


Цитата:

что если датасет прицеплен к гриду

в этом случае согласен, могут появится проблемы. у меня же проще ситуация, с dataset работает только поток

В Вин7 и Висте помоему, папки находящиеся в Program Files по умолчанию не разрешают производить изменение/удаление файлов находящихся в них. Может быть кто-нибудь знает как разрешить эту проблему программно ? Уточню - речь о том что мы в ручную можем задать в свойствах папки/файла на вкладке "Безопасность".
Или может у кого есть ссылки на подобные решения, буду благодарен.

SerGap
http://sql.ru/forum/actualthread.aspx?tid=660459&pg=-1

SerGap
Может лучше располагать такие файлы там, где им и место - в "\Users\*\AppData\Roaming"?

afiget
Спасибо, почитаю.
Frodo_Torbins
Надо подумать, все-таки это не просто файлы, а папка с моей программой. Т.е. написан простенький инсталлятор, который создает папку в Program Files, помещает туда нужные файлы. А при работе программа не может с ними работать. Все-таки удобнее некоторые файлы иметь в папке с программой и иметь к ним доступ, а так пока что получается что в папке может находится только exe-шник.

SerGap
А какая вам разница, где находятся файлы? Ведь вы же всеравно используете чтото наподобие GetWorkDir: String, и все модификации коснутся только этой функции. Единственный аргумент за - это портабл софт, но такие случаи почти всегда надо предусматиривать отдельно. А вот аргументов против полно, начиная от затруднения администрирования, и заканчивая пособничеством вирусописателям. Последний аргумент конечно звучит немного высокопарно, но это так - большинство вирусов не запускается под обычным пользователем. Поэтому заставляя юзера сидеть под админом, вы фактически помогаете вирмейкерам.