Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 5 480

Раздел: Delphi » Прочее
/ вопрос решён /

Здравствуйте! В прложении есть , допустим 3 окна. Главное окно сворачивается в трэй с помощью компонента CoolTray, а как сворачивать остальные окна в панельзадач, а не в левый нижний угол над панелью задач (как они сворачивоются по умолчанию)? И ещё... чтобы при сворачивании главного остальные не сворачивались?

eclipse Вопрос решён, но можно продолжить его обсуждение в мини-форуме

Вопрос задал: 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

DNK (статус: Студент), 4 июля 2011, 17:21 [#1]:

Может остальные окна не сворачивать, а скрывать?
Form.Hide
"Digital Networked Knight"
eclipse

eclipse (статус: Посетитель), 5 июля 2011, 10:18 [#2]:

DNK не... именно свернуть в панель задач.
eclipse

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™

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

eclipse (статус: Посетитель), 5 июля 2011, 10:49 [#6]:

min@y™ - Вот с i всё нормально. Тут i определяет строку, а 5 столбец. И то и другое существует... ведь вручную в проекте я могу туда внести данные! Но , к стати, в нете встречал что много есть таких же проблем... именно с теми столбцами которые больше 6.

ListView1.items.item[i].subitems.strings[5]:= ''

Вадим К - ну, 10 мс, я думаю, это уж и не такая большая задержка. Можно даже сказать что её нет.
min@y™

min@y™ (статус: Доктор наук), 5 июля 2011, 10:54 [#7]:

Цитата (eclipse):

min@y™ - Вот с i всё нормально. Тут i определяет строку, а 5 столбец.

Спасибо, капитан, а то я и не знал!
По делу: пройдись дебаггером и/или понаставь Assert() и Assigned(), чтобы узнать, что у тебя существует, а что равно nil или разрушено.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
eclipse

eclipse (статус: Посетитель), 5 июля 2011, 11:01 [#8]:

:) проверял... всё есть, но внести данные программным путём не выходит почемуто?
min@y™

min@y™ (статус: Доктор наук), 5 июля 2011, 11:16 [#9]:

Цитата (eclipse):

но внести данные программным путём не выходит почемуто?

Ну код тогда давай посмотрим.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
eclipse

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™

min@y™ (статус: Доктор наук), 5 июля 2011, 11:41 [#11]:

Цитата (eclipse):

Хотя .... а допёрло! нужно сперва её добавить...

ЭТО ЭПИЧЕСКИЙ ПРОРЫВ!!! УРА, ТОВАРИЩИ!!!
З.Ы. Пошёл в магаз за коньяком... Это событие требуется незамедлительно отпраздновать!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
min@y™

min@y™ (статус: Доктор наук), 5 июля 2011, 11:47 [#12]:

Куплю, пожалуй, 0,7 "Арарат" за 800 рублей!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
eclipse

eclipse (статус: Посетитель), 5 июля 2011, 19:02 [#13]:

Ну ты блин юморист! Тупанул чуток... с кем не бывает!

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 22 февраля 2025, 12:03
Выполнено за 0.03 сек.