<?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; TMainForm</title>
	<atom:link href="http://www.mydelphi.info/code/tag/tmainform/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>Как &#8220;заставить&#8221; форму не разворачиваться из иконки?</title>
		<link>http://www.mydelphi.info/code/58</link>
		<comments>http://www.mydelphi.info/code/58#comments</comments>
		<pubDate>Sun, 08 Jun 2008 10:42:31 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Советы]]></category>
		<category><![CDATA[begin]]></category>
		<category><![CDATA[message]]></category>
		<category><![CDATA[private]]></category>
		<category><![CDATA[procedure]]></category>
		<category><![CDATA[Result]]></category>
		<category><![CDATA[TMainForm]]></category>
		<category><![CDATA[TWMQueryOpen]]></category>
		<category><![CDATA[var]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=58</guid>
		<description><![CDATA[Как &#8220;заставить&#8221; форму не разворачиваться из иконки?
Для этого необходимо перехватить сообщение &#8220;WM_QUERYOPEN&#8221;. Для этого необходимо
объявить соответствующую процедуру в private-области.

{ объявление процедуры в классе TMainForm }
procedure WMQueryOpen(var Msg: TWMQueryOpen); message WM_QUERYOPEN;
 

{ ... и ее реализация }
procedure TMainForm.WMQueryOpen(var Msg: TWMQueryOpen);
begin
  Msg.Result := 0;
end;

]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/58/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как закрыть окно подсказки если пользователь закончил приложение?</title>
		<link>http://www.mydelphi.info/code/38</link>
		<comments>http://www.mydelphi.info/code/38#comments</comments>
		<pubDate>Sun, 08 Jun 2008 10:24:03 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Советы]]></category>
		<category><![CDATA[Action]]></category>
		<category><![CDATA[FormClose]]></category>
		<category><![CDATA[procedure]]></category>
		<category><![CDATA[TCloseAction]]></category>
		<category><![CDATA[TMainForm]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=38</guid>
		<description><![CDATA[Как закрыть окно подсказки если пользователь закончил приложение?
В следующем примере показано как закрыть окно помощи, если пользователь
закончил приложение.

procedure TMainForm.FormClose(Sender: TObject;
          var Action: TCloseAction);
 

begin
  Winhelp(Handle, 'WINHELP.HLP', HELP_QUIT, 0);
  Action := caFree;
end;

]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/38/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>

