| Структура программирования, программирование, языки программирования, книги программирование | На сайте представлена информация про программирование в Интернете и работу |
|
непонятный процесс сумирования Создание OCX, как? Таблицы Paradox, индексирование Книга "Программированние в Delphi глазами Хакера", Стоит брать или нет ? Нужен доступ к MS SQL Server из Kylix.Как сделать? Модем, Набор модемом Что то запутался Компонент меню Hook, LB_GETCURSEL Open array parameters ???_Как писать на CD_???, Как? Ну очень частые вопросы!, Прошу сюда перед тем как спросить! Копирование записей, Без TBathMove Уменьшаем екзешник Рисование на рабочем столе, Хочу нарисовать часы прямо на обоях 1 человек хвастался: Pen.Style:=psDot при Pen.Width > 1. Как? Как работать с локальной сетиью в Дельфи6, Локальная сеть! Заполняем рандомную хештаблицу вручную, структура данных млин Excel, корректно закрыть файл Как Вы относитесь к курящим девушкам? Hook на клаву..., ^^^помогите^^^ Системное время Открыть документ MS Word, в своем приложении Получения реестра Создать окно и не передавать ему фокус, Окно не должно получить фокус при создан Иконка в таскбаре Помогите друзья!!! Отрубление инета., Как програмно отрубить инет. Список доменов/компьютеров, Как получить Чёто сообразить немогу как найти строку в списке! проверка орфографии через word в delphi Удаленный доступ, Как определить... "Слежка" за изменением системного времени компа MouseState, Передача координат мыши через сокет.. Небольшой взлом, Admin и Windows 2000 Эмулция нажатия кнопок в играх использующих Random, не целых чисел удалённый реестр Буфер обмена, Как очистить? Error, ООП Помогите найти ошибку Определение номера пункта..., в контекстном меню Проводника. Маски, в строке Сервис в NT, как написать? FindWindowEx, <> null Требуется в гриде отобразить строку,а не зн-е поля, Свое отображение в Grid'e DLL, список функций Изменение размеров дочерней формы Свой стиль имен компонентов, используете? Текст на Рабочем столе., Как нарисовать и удалить? Компонент vclskin102, Помогите взломать пожалуйста Использование свойства TAG Какое сообщение ловить, при перерисовке, родителя? АТХ или мать полетел, Как проверить блок питания АТХ Настройка принтера, Без результатно :/ COMMAND.COM в Delphi Более 2-х колонок в DBLookupComboBox, Есть вопрос насчет ширины колонок Downloaded Program Files, Очистка Downloaded Program Files Удалить повторы слов ClientSocket, Ка избежать ошибки ? Млин, как вызвать функцию из DLL? КАК ОЧИСТИТЬ LISTVIEW?, Вот и весь вопрос. программно изменить DNS-cуффикс компьютера? Нужен код программы,переставляющий колонки в гриде, колонки в гриде Индикатор сортировки в гриде, Индикатор сортировки в гриде Как Вы относитесь к курящим девушкам? Paradox, MySQL..., Как всунуть в базу данных картинку? База данных и её регистрация, Регистрация базы данных через Delphi Регистрация своего расширения |
Платные хостинги Раскрутка сайта Книги по программированию Создать окно и не передавать ему фокус, Окно не должно получить фокус при создан
- Вот такое хотел сделать, выручайте:Работает моя программа в фоне и по определенному событию создает форму и выводит ее на экран. Хотелось бы сделать так, чтобы в этот момент (при показе формы) она не получала фокуса, а юзер мог продолжать работу с прежней программой как будто ничего не произошло (т.е. прежняя программа в этот момент не теряла фокуса), а сделать окно моей программы активным он мог позже (если ему это будет нужным). Думаю понятно изложил? Помогите пожалуйста - подкиньте идею! - Form1.visible=false в OnCreate. И будет тебе щастя. - это чтобы она не была видна? А мне то надо чтобы видна была.... - в событии OnShow пишиКод ShowWindow(MyForm.Handle,SW_SHOWNOACTIVATE)highlightSyntax('delphiNTFlZG','delphi');сейчас сам попробую Добавлено @ 16:47 получилось Это сообщение отредактировал dsergey - 4.1.2005, 16:46 - Большое спасибо!!!Вот только интересно - если ее так показывать, то закрыть ее потом крестиком нельзя. Приходится писать:Код procedure TMyForm.FormClose(Sender: TObject; var Action: TCloseAction);begin Action := caFree;end;highlightSyntax('delphiNjBiYW','delphi');Почему так? - можно, почему нельзя первый клик - активация окна (получение фокуса ввода), ведь оно не активновторой клик, если по крестику, то уже закрытие окнапопробуйможешь установить таймер на 35 сек например. - Просто так не получается! А Вы сами пробовали?......я уже новое приложение создал (думал в моем что-то заглючилось) с двумя формами, на первое кинул кнопку, написал:Код procedure TForm1.Button1Click(Sender: TObject);begin ShowWindow(Form2.Handle,SW_SHOWNOACTIVATE);end;highlightSyntax('delphiFjZDM4','delphi');- вот и весь код, в свойствах вообще ничего не трогал!...работает отлично (за что еще раз спасибо), а вот закрыть Form2 не получается - только если написать так:Код procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);begin Action := caFree;end;highlightSyntax('delphiEzNzAz','delphi');в общем я на это ессесно согласен, просто интересно - почему? - А такой вариант:Установить свойство FormStyle в fsStayOnTop.В OnShow дать Application Minimize;Окно неактивно, но с другим эффектом. И закрывается без проблем.Я так делал всплывающие сообщения из буковок без фона.И все видно, и не мешает, если вдруг текст набирал. Это сообщение отредактировал Snowy - 5.1.2005, 11:10 - еще раз событии OnShow пишиShowWindow(Form2.Handle,SW_SHOWNOACTIVATE) а форму открывай как обычноКод procedure TForm1.BitBtn1Click(Sender: TObject);begin form2.Showend;highlightSyntax('delphiThjMTg','delphi'); Это сообщение отредактировал dsergey - 5.1.2005, 11:15 - ну зачем же так конкретно?ShowWindow(Handle,SW_SHOWNOACTIVATE)и все. Форма и так подразумевается, если уж это ее OnShow. - Dimich`у не понятнособытии OnShow формы Form2 пишиShowWindow(Form2.Handle,SW_SHOWNOACTIVATE)Код а форму открывай как обычноprocedure TForm1.BitBtn1Click(Sender: TObject);begin form2.Showend;highlightSyntax('delphimU1NGI','delphi'); - Блин, то ли лыжи не едут, то ли я....... Короче, не получается.Вот так я открываю вторую форму:Код procedure TForm1.Button1Click(Sender: TObject);begin Form2.Show;end;highlightSyntax('delphiwZjRhO','delphi');Вот что из себя предствляет вторая форма:Код ... TForm2 = class(TForm) procedure MyOnShow(Sender: TObject); procedure FormCreate(Sender: TObject); private...procedure TForm2.MyOnShow (Sender: TObject);begin ShowWindow(Form2.Handle,SW_SHOWNOACTIVATE);end;procedure TForm2.FormCreate(Sender: TObject);begin Form2.OnShow := MyOnShow;end;highlightSyntax('delphiWI5MmM','delphi');Открывается и получает фокус.Или я чего то не понял, dsergey?З.Ы. Наверное еще от встречи Нового года не отошел....... - Если из одной формы вызываешь другую без фокуса-покуса, то так:Код procedure TForm1.Button1Click(Sender: TObject);begin ShowWindow(Form2.Handle,SW_SHOWNOACTIVATE);end;highlightSyntax('delphihNTE3Z','delphi');P.S. Да, забыл добавить. Это все. Никакие OnShow здесь не нужны. В OnShow нужно писать только для главной формы. Для остальных просто вместо FormX.Show юзай эту конструкцию. Это сообщение отредактировал Snowy - 6.1.2005, 09:21 - Блин, ну да, конечно! Если это главная форма, то Код ShowWindow (Form2.Handle,SW_SHOWNOACTIVATE);highlightSyntax('delphizdkMDQ','delphi');решает все проблемы....Однако речь шла о том, что из формы1 надо вызвать(показать) форму2 и не передавать ей фокус. Вот тут засада и была! Я ее решил теперь, немного по другому:Код procedure TForm1.Button1Click(Sender: TObject);var h : hwnd;begin h := GetActiveWindow; Form2.Show; SetActiveWindow (h);end;highlightSyntax('delphiGE1MzZ','delphi');.....хотя непонятно, почему dsergey аж несколько раз повторял свой код? Ведь не работает! - а это зачем Код procedure TForm2.MyOnShow (Sender: TObject);begin ShowWindow(Form2.Handle,SW_SHOWNOACTIVATE);end;highlightSyntax('delphiiYWJmM','delphi');  |