<?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; Unit</title>
	<atom:link href="http://www.mydelphi.info/code/tag/unit/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.8</generator>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
			<item>
		<title>Как перехватить события в неклиентской области формы, в заголовке окна, например?</title>
		<link>http://www.mydelphi.info/code/165</link>
		<comments>http://www.mydelphi.info/code/165#comments</comments>
		<pubDate>Mon, 09 Jun 2008 16:19:16 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Client]]></category>
		<category><![CDATA[implementation]]></category>
		<category><![CDATA[NCMOUSEMOVE]]></category>
		<category><![CDATA[procedure]]></category>
		<category><![CDATA[public]]></category>
		<category><![CDATA[StdCtrls]]></category>
		<category><![CDATA[String]]></category>
		<category><![CDATA[TForm]]></category>
		<category><![CDATA[TMessage]]></category>
		<category><![CDATA[Unit]]></category>
		<category><![CDATA[WMNCMOUSEMOVE]]></category>
		<category><![CDATA[wParam]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=165</guid>
		<description><![CDATA[Вопрос:
Как перехватить события в неклиентской области формы, в заголовке окна, например?
Ответ:
Создайте обработчик одного из сообщений WM_NC (non client - не клиентских) (посмотрите
WM_NC в Windows API help). Пример показывает как перехватить вижение мыши во всей
неклиенстской области окна (рамка и заголовок).

Пример:

unit Unit1;

interface

uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type
TForm1 = class(TForm)
private
	{Private declarations}
	procedure WMNCMOUSEMOVE(var [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/165/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как узнать о нажатии &#8220;non-menu&#8221; клавиши в момент когда меню показано?</title>
		<link>http://www.mydelphi.info/code/99</link>
		<comments>http://www.mydelphi.info/code/99#comments</comments>
		<pubDate>Sun, 08 Jun 2008 17:04:02 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Caption]]></category>
		<category><![CDATA[implementation]]></category>
		<category><![CDATA[interface]]></category>
		<category><![CDATA[TMainMenu]]></category>
		<category><![CDATA[TMenuItem]]></category>
		<category><![CDATA[TMessage]]></category>
		<category><![CDATA[Type]]></category>
		<category><![CDATA[Unit]]></category>
		<category><![CDATA[var]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=99</guid>
		<description><![CDATA[Вопрос:
Как узнать о нажатии "non-menu" клавиши в момент когда меню показано?
Ответ:
Создайте обработчик сообщения WM_MENUCHAR.

Пример:

unit Unit1;

interface

uses
	Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Menus;

type
	TForm1 = class(TForm)
		MainMenu1: TMainMenu;
		One1: TMenuItem;
		Two1: TMenuItem;
		THree1: TMenuItem;
	private
		{Private declarations}
		procedure WmMenuChar(var m : TMessage); message WM_MENUCHAR;
	public
		{Public declarations}
end;

var
	Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WmMenuChar(var m : TMessage);
begin
	Form1.Caption := 'Non standard menu key pressed';
	m.Result := 1;
end;
end.

]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/99/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как &#8220;быструю подсказку&#8221; (Hints) сделать многострочной?</title>
		<link>http://www.mydelphi.info/code/63</link>
		<comments>http://www.mydelphi.info/code/63#comments</comments>
		<pubDate>Sun, 08 Jun 2008 11:09:43 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Советы]]></category>
		<category><![CDATA[CYSCREEN]]></category>
		<category><![CDATA[Forms]]></category>
		<category><![CDATA[OnShowHint]]></category>
		<category><![CDATA[procedure]]></category>
		<category><![CDATA[ScreenSize]]></category>
		<category><![CDATA[SysUtils]]></category>
		<category><![CDATA[Unit]]></category>
		<category><![CDATA[var]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=63</guid>
		<description><![CDATA[Как &#8220;быструю подсказку&#8221; (Hints) сделать многострочной?
Необходимо создать соответствующую компоненту которая показывает &#8220;быструю
подсказку&#8221; (Hints) с более чем одной строкой. Компонента наследуется от
TComponent и называется TMHint. Hint-текст можно задавать следующим образом:
&#8220;Строка 1@Строка 2@Строка 3&#8243;. Символ &#8216;@&#8217; используется как разделитель строк.
Если Вам нравится другой символ &#8211; измените свойство Separator. Свойство
Active указывает на активность (TRUE) или неактивность (FALSE) &#8220;многострочности&#8221;.

unit [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/63/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как эффективно организовать объявление глобальных переменных?</title>
		<link>http://www.mydelphi.info/code/51</link>
		<comments>http://www.mydelphi.info/code/51#comments</comments>
		<pubDate>Sun, 08 Jun 2008 10:36:25 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Советы]]></category>
		<category><![CDATA[interface]]></category>
		<category><![CDATA[Unit]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=51</guid>
		<description><![CDATA[Как эффективно организовать объявление глобальных переменных?
Один из эффективных способов организации глобальных переменных &#8211; создать
отдельный Unit и в Interface-части объявить все необходимые переменные
(и, естественно, константы ежели таковые имеются). Если теперь в других
модулях записать этот Unit в uses раздел, то все глобальные переменные
можно использовать в рамках целого проекта (или проектов).
]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/51/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>
