<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
	>

<channel>
	<title>Мой DELPHI - Программирование &#187; ShowWindow</title>
	<atom:link href="http://www.mydelphi.info/code/tag/showwindow/feed" rel="self" type="application/rss+xml" />
	<link>http://www.mydelphi.info</link>
	<description>Всё для программера</description>
	<lastBuildDate>Mon, 09 Jun 2008 16:55:52 +0000</lastBuildDate>
	<generator>http://wordpress.org/?v=2.9.2</generator>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
			<item>
		<title>Можно ли сделать так &#8211; одна форма показывает другую и остается позади нее</title>
		<link>http://www.mydelphi.info/code/178</link>
		<comments>http://www.mydelphi.info/code/178#comments</comments>
		<pubDate>Mon, 09 Jun 2008 16:30:15 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Application]]></category>
		<category><![CDATA[auto-created]]></category>
		<category><![CDATA[begin]]></category>
		<category><![CDATA[Button]]></category>
		<category><![CDATA[Form]]></category>
		<category><![CDATA[SHOWNA]]></category>
		<category><![CDATA[ShowWindow]]></category>
		<category><![CDATA[TObject]]></category>
		<category><![CDATA[Visible]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=178</guid>
		<description><![CDATA[Вопрос:
Можно ли сделать так - одна форма показывает другую и остается позади нее, но фокус
ввода не переходит к новой форме, а остается у старой?
Ответ:
В примере показывается не автосоздаваемая (non auto-created) форма, но фокус ввода ей
не передается.

Пример:

uses Unit2;

procedure TForm1.Button1Click(Sender: TObject);
begin
	Form2 := TForm2.Create(Application);
	Form2.Visible := FALSE;
	ShowWindow(Form2.Handle, SW_SHOWNA);
end;
]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/178/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как скрыть форму при старте приложения?</title>
		<link>http://www.mydelphi.info/code/57</link>
		<comments>http://www.mydelphi.info/code/57#comments</comments>
		<pubDate>Sun, 08 Jun 2008 10:41:47 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Советы]]></category>
		<category><![CDATA[Handle]]></category>
		<category><![CDATA[OnCreate]]></category>
		<category><![CDATA[OnShow]]></category>
		<category><![CDATA[SHOW]]></category>
		<category><![CDATA[ShowWindow]]></category>
		<category><![CDATA[TForm]]></category>
		<category><![CDATA[Visible]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=57</guid>
		<description><![CDATA[Как скрыть форму при старте приложения?
К сожалению при создании окна приложения ни в одном из первых событий (OnCreate,
OnShow, OnActivate) нет доступа к свойству Visible. Использование функции
ShowWindow с параметром SW_HIDE в OnActivate-событии решает проблему (но
при этом не избежать кратковременного мерцания окна перед &#8220;исчезновением&#8221;):
procedure TForm1.OnActivate(Sender: TObject);
begin
  ShowWindow(Handle, SW_HIDE);
end;

чтобы сделать окно опять видимым необходимо вызвать ту же [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/57/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>

