| 
| 
 | Вопрос # 5 480/ вопрос решён / | 
 |  Здравствуйте! В прложении есть , допустим 3 окна. Главное окно сворачивается в трэй с помощью компонента CoolTray, а как сворачивать остальные окна в панельзадач, а не в левый нижний угол над панелью задач (как они сворачивоются по умолчанию)? И ещё... чтобы при сворачивании главного остальные не сворачивались? 
|  |   Вопрос задал: eclipse (статус: Посетитель)Вопрос отправлен: 4 июля 2011, 16:48
 Состояние вопроса: решён, ответов: 1.
 |  Ответ #1. Отвечает эксперт: min@y™ У меня это сделано вот так:
 procedure TFindInFilesForm.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
 
  // Сворачивание формы на панель задач
  Params.ExStyle   := Params.ExStyle or WS_EX_APPWINDOW;
  Params.WndParent := GetDesktopWindow;
end; 
|  | Ответ отправил: min@y™ (статус: Доктор наук)Время отправки: 4 июля 2011, 16:53
 Оценка за ответ: 5
 |  
 Мини-форум вопросаВсего сообщений: 13; последнее сообщение — 5 июля 2011, 19:02; участников в обсуждении: 4. 
|   | DNK (статус: Студент), 4 июля 2011, 17:21 [#1]:Может остальные окна не сворачивать, а скрывать? Form.Hide
 "Digital Networked Knight" |  
|   | eclipse (статус: Посетитель), 5 июля 2011, 10:18 [#2]:DNK не... именно свернуть в панель задач. |  
|   | eclipse (статус: Посетитель), 5 июля 2011, 10:29 [#3]:Возник ещё один вариант - организовать мой проект в двуж файлах exe и сделать "общение" между ними через wm_copydata. Или это будет тормозить их? И, извиняюсь что не в тему, почему в ListView я не могу обработать 7 столбец (vsReport). Т.е. он создаётся, отображается, но сотворить с ним я ничего не могу пишет что listIndex out of bounds. обращаюсь к нему так: 
 
 ListView1.items.item[i].subitems.strings[5]:= '' |  
|   | min@y™ (статус: Доктор наук), 5 июля 2011, 10:42 [#4]: Цитата (eclipse): listIndex out of bounds А чему i равно?
 Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп! |  
|   | Вадим К (статус: Академик), 5 июля 2011, 10:42 [#5]:что бы обратится к 7 столбцу, нужно что бы он был. То, что есть колонка, еще не значит, что есть элемент. 
 Цитата (eclipse): в двуж файлах exe и сделать "общение" между ними через wm_copydata. Или это будет тормозить их?  и да и нет. все зависит от того, что будет и в каких кол-вах передаваться.
 Кому то 1 секунда задержки - хорошее время, а кому то 10мс  - ужасно долго
   Галочка "подтверждения прочтения" - вселенское зло. |  
|   | eclipse (статус: Посетитель), 5 июля 2011, 10:49 [#6]:min@y™ - Вот с i всё нормально. Тут i определяет строку, а 5 столбец. И то и другое существует... ведь вручную в проекте я могу туда внести данные! Но , к стати, в нете встречал что много есть таких же проблем... именно с теми столбцами которые больше 6. 
 
 ListView1.items.item[i].subitems.strings[5]:= '' Вадим К - ну, 10 мс, я думаю, это уж и не такая большая задержка. Можно даже сказать что её нет.
 |  
|   | min@y™ (статус: Доктор наук), 5 июля 2011, 10:54 [#7]: Цитата (eclipse): min@y™ - Вот с i всё нормально. Тут i определяет строку, а 5 столбец. Спасибо, капитан, а то я и не знал!
 По делу: пройдись дебаггером и/или понаставь Assert() и Assigned(), чтобы узнать, что у тебя существует, а что равно nil или разрушено.
 Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп! |  
|   | eclipse (статус: Посетитель), 5 июля 2011, 11:01 [#8]:  проверял... всё есть, но внести данные программным путём не выходит почемуто? |  
|   | min@y™ (статус: Доктор наук), 5 июля 2011, 11:16 [#9]: Цитата (eclipse): но внести данные программным путём не выходит почемуто?  Ну код тогда давай посмотрим.
 Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп! |  
|   | eclipse (статус: Посетитель), 5 июля 2011, 11:20 [#10]:Хм... интересно... попробовал сделать так: 
 
 with lv1.Items.Add do
  begin
    Caption:= 'caption';
    SubItems.Add('0');
    SubItems.Add('1');
    SubItems.Add('2');
    SubItems.Add('3');
    SubItems.Add('4');
    SubItems.Add('5');
  end;Всё нормально! А интересно почему так не получается?:
 
 
 Lv1.items.item[0].subitems.strings[5]:= '5';Хотя .... а допёрло! нужно сперва её добавить... Так? Типо - SubItems.Add('5'); А уже потом туда присваивать данные, когда нужно. |  5 июля 2011, 11:23: Статус вопроса изменён на решённый (изменил автор вопроса — eclipse) 
|   | min@y™ (статус: Доктор наук), 5 июля 2011, 11:41 [#11]: Цитата (eclipse): Хотя .... а допёрло! нужно сперва её добавить... ЭТО ЭПИЧЕСКИЙ ПРОРЫВ!!! УРА, ТОВАРИЩИ!!!
 З.Ы. Пошёл в магаз за коньяком... Это событие требуется незамедлительно отпраздновать!
 Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп! |  
|   | min@y™ (статус: Доктор наук), 5 июля 2011, 11:47 [#12]:Куплю, пожалуй, 0,7 "Арарат" за 800 рублей! Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп! |  
|   | eclipse (статус: Посетитель), 5 июля 2011, 19:02 [#13]:Ну ты блин юморист! Тупанул чуток... с кем не бывает! |  Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте. |