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

RuPurple

Цитата:

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

Alignment alClient не подходит?

RuPurple

Цитата:

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

Такая же как и у любого другого компонента - через Anchors либо Align.

Цитата:

Имеется ли в природе компонента для Дельфи для открытия и просмотра html-страничек, которая не использует для этой цели Internet Explorer?

Есть такая, THTMLViewer называется.

RuPurple

Цитата:

Имеется ли в природе компонента для Дельфи для открытия и просмотра html-страничек

http://code.google.com/p/thtmlviewer/

ShIvADeSt
Frodo_Torbins
YuriyRR
Спасибо за ответы!
Но свойство Alignment alClient мне действительно не подходит. Оно расширяет веб-браузер на всю форму. А на ней, кроме веб-браузера, есть еще и другие элементы, которые оказываются либо над браузером либо под ним. Свойства Anchors у TWebBrowser я не нашел. Мне нужно чтобы границы TWebBrowser перемещались вместе с границами формы, но на некотором расстоянии от нее. Такое возможно?

RuPurple
Панель кинуть, на нее браузер с alClient. У панели есть Anchors, например.

RuPurple

Цитата:

Мне нужно чтобы границы TWebBrowser перемещались вместе с границами формы, но на некотором расстоянии от нее. Такое возможно?

Событие OnResize у формы и расчет размеров вебброузера. Кода 2 строчки.

wasilissk
ShIvADeSt
Большое спасибо! Я использовал обе идеи. Вначале поместил веб-браузер на панель и задал ее размеры и свойства Anchors. Но потом заметил, что на Windows 7 клиентский размер формы немного меньше чем на XP, и в результате то, что хорошо смотрелось в XP, в Seven оказалось слишком близко к границе формы. Поэтому, по событию OnCreate формы организовал расчет размеров и положения элементов управления и панели.

RuPurple
Если есть возможность, то стоит использовать более новую версию делфи. Там эти проблемы исправлены.

Такая проблемка - на форме несколько компонентов TPanel. Насколько я знаю, на компоненты можно назначить один обработчик событий (на OnClick, например). Как это сделать и как в этом обработчике узнать - по какому конкретно компоненту щелкнули мышью (его имя, например)?

Postscriptum

Цитата:

Насколько я знаю, на компоненты можно назначить один обработчик событий (на OnClick, например). Как это сделать

Мышкой в designеime или операцией присваивания в runtime

Цитата:

как в этом обработчике узнать - по какому конкретно компоненту щелкнули мышью (его имя, например)?

TPanel(Sender).Name

marser
Спасибо!

Подскажите такая проблема запускается
OUTLOOK

Код:
WinExec ('C:\Program Files\Microsoft Office\Office14\OUTLOOK.exe', SW_MINIMIZE);
sleep(1000);
дальше идет другой код

OOD
Еще более неправильно передавать жесткий путь к Outlook
И потом, почему бы не заюзать Automation Object...
Зачем просто открывать outlook?

salexn1
Его нужно свернуть в трей т.е. задача какая:
1-запускаем OUTLOOK
2-ждем пока он запуститься
3-анализирует список запущеных окон
4-позиционируемся на окне OUTLOOK-ка и сворачиваем его в трей.
все выполнено и работает кроме пункта 2.
т.е. можно смотреть в процессы пока там появиться OUTLOOK, но помоему была какая то команда позволяющая проверить что передает WinExec , или определить действительно ли запустилось приложение....

Цитата:

можно смотреть в процессы пока там появиться OUTLOOK

В процессах иожет появиться, а окна еще не созданы и как результат не найдет окно.

YuriyRR

Цитата:

В процессах иожет появиться, а окна еще не созданы и как результат не найдет окно.

совершенно верно, значит выход один в цикле гонять поиск окна по заголовку окна пока оно не появиться?

OOD

Цитата:

Как сделать пока не выполниться WinExec , чтобы не выполнялась следующая строка кода?

Схематично

Код:
si: TStartupInfo;
pi: TProcessInformation;
...
si.wShowWindow = SW_HIDE;
...
hHandle := CreateProcess(... Outlook..., pi);
while
WaitForSingleObject(pi.hHandle, INFINITE) <> WAIT_ABANDONED;

OOD
wasilissk указал правильное направление, но вместо WaitForSingleObject нужно использовать WaitForInputIdle.

OOD

Цитата:

гонять поиск окна по заголовку окна пока оно не появиться?

Думаю что так и есть я бы еще вставил в цикл sleep() и ограничил кол-во циклов типа таймаут

Добавлено:
Вариант с WaitForInputIdle мне тоже очень нравится. Напиши как он пройдет с аутглюком.

Frodo_Torbins
Да, конечно, писал по памяти, там у меня еще CreateProcess хэндл возвращает ну ладно, в качестве тегов сгодится...

YuriyRR

Цитата:

Напиши как он пройдет с аутглюком

что то не очень

Код:
procedure TForm1.FormCreate(Sender: TObject);
var h: HWND;
PI: TProcessInformation;
SI: TStartupInfo;

begin
FillChar(SI, SizeOf(SI), 0);
SI.cb := SizeOf(SI);

if CreateProcess(nil, 'C:\Program Files\Microsoft Office\Office14\OUTLOOK.exe', nil, nil, False, 0, nil, nil, SI,
PI) then
begin
WaitForInputIdle(PI.hProcess, INFINITE);
H := FindWindow(nil, 'Outlook сегодня - Microsoft Outlook');
if SetForegroundWindow(H) then
showMessage('test');
end
else
showMessage('beda');
end;

OOD
Что именно не работает?
На мой взгляд (просто уже сталкивался с таким поведением) проблема в том, что окно не выходит на передний план, то есть данный кусок

Цитата:

if SetForegroundWindow(H) then

как будто не отрабатывает. Посмотри в интернете как сделать force foreground window, так как по умолчанию при использовании этой функции начиная с винХР вроде бы, окно начинает просто мигать в таскбаре.
Если не в этом дело - то уточни

ShIvADeSt
Не ждет пока запуститься OUTLOOK, сообщение test выскакивает только , если запустить OUTLOOK и подождать пока он запустить, а WaitForInputIdle не ждет пока запуститься OUTLOOK и появиться окно Outlook сегодня - Microsoft Outlook.

OOD
У WaitForInputIdle есть возвращаемое значение и еще есть SysErrorMessage(GetLastError). А сообщение test по коду у вас выводится если отработает SetForegroundWindow, а не WaitForInputIdle.

в общем не понял с циклом поиска окна , поставил тупо таймер а него поиск окна :

Код:
procedure TForm1.Timer1Timer(Sender: TObject);
var h: HWND;
begin
h:= FindWindow(nil, 'Outlook сегодня - Microsoft Outlook');
if h<>0 then
begin
PostMessage(h, WM_SYSCOMMAND, SC_MINIMIZE, 0);
timer1.Enabled:=false;
end;
end;

Нужен компонент для расширения оболочки Windows XP (Проводника) или пример.
Подскажите что-нибудь по этому вопросу.

Нужна помощь, совет... есть текстовый файл структура такая:


Код:
From: имя номер                        
Date: 06 Dec 2009 15:16:38                        
Text:

To: имя номер                        
Date: 06 Dec 2009 15:16:38                        
Text:

alfaservice
Если длина текста в строке
Цитата:

Text:

не превышает ограничения типа string - то не вижу особых проблем.
Если структура файла именно такова, как описано (т.е. три строки инфы, пустая строка, три строки инфы, пустая строка) - то можно просто в цикле присваивать значения трем элементам, и пропускать четвертый (т.е. пустую строку)
Если пустая строка может быть не одна - тогда можно использовать код выше, только вместо
Код: if s.Strings[j]='#' then

Corsairs

Цитата:

if s.Strings[j]='' then

лучше заменить на
if Trim(s.Strings[j])='' then
это убережет от пробелов и символов перевода каретки и тп.

запросы с переменной в селекте невозможны? Например
SELECT :var1 FROM table WHERE