<?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; Delphi</title>
	<atom:link href="http://www.mydelphi.info/code/tag/delphi/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>TObject</title>
		<link>http://www.mydelphi.info/code/190</link>
		<comments>http://www.mydelphi.info/code/190#comments</comments>
		<pubDate>Mon, 09 Jun 2008 16:44:02 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Caption]]></category>
		<category><![CDATA[ClassInfo]]></category>
		<category><![CDATA[ClassParent]]></category>
		<category><![CDATA[Delphi]]></category>
		<category><![CDATA[function]]></category>
		<category><![CDATA[InheritsFroin]]></category>
		<category><![CDATA[MyParent]]></category>
		<category><![CDATA[Object]]></category>
		<category><![CDATA[TCIass]]></category>
		<category><![CDATA[TForm]]></category>
		<category><![CDATA[TObject]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=190</guid>
		<description><![CDATA[
TObject
TObject является общим предком всех классов в Delphi, корнем
иерархии Visual Component Library. Tobject представляет собой абстрактный
класс, реализующий только наиболее общие механизмы, универсально разделяемые
всеми объектами VCL.
TObject автоматически используется как порождающий тип при создании
нового класса Delphi. Следовательно, следующие фрагменты кода имеют одно
и то же значение:
        type
     [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/190/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как поместить курсор в определенную позицию edit&#8217;а и подобных ему элементов управления?</title>
		<link>http://www.mydelphi.info/code/176</link>
		<comments>http://www.mydelphi.info/code/176#comments</comments>
		<pubDate>Mon, 09 Jun 2008 16:28:33 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Click]]></category>
		<category><![CDATA[Delphi]]></category>
		<category><![CDATA[procedure]]></category>
		<category><![CDATA[SelectLength]]></category>
		<category><![CDATA[SelLength]]></category>
		<category><![CDATA[SelStart]]></category>
		<category><![CDATA[SetFocus]]></category>
		<category><![CDATA[TForm]]></category>
		<category><![CDATA[TObject]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=176</guid>
		<description><![CDATA[Вопрос:
Как поместить курсор в определенную позицию edit'а и подобных ему элементов управления?
Ответ:
Можно использовать методы Delphi SelStart() и SelectLength().

Пример:

procedure TForm1.Button1Click(Sender: TObject);
begin
	Edit1.SetFocus;
	{переводим курсор во вторую позицию}
	Edit1.SelStart := 2;
	{не выделяем никакого текста}
	Edit1.SelLength := 0;
end;

]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/176/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Где в Delphi обьявленны VK_Key для A-Z и 0-9?</title>
		<link>http://www.mydelphi.info/code/154</link>
		<comments>http://www.mydelphi.info/code/154#comments</comments>
		<pubDate>Mon, 09 Jun 2008 16:10:12 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[ASCII]]></category>
		<category><![CDATA[Delphi]]></category>
		<category><![CDATA[Key]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=154</guid>
		<description><![CDATA[Вопрос:
Где в Delphi обьявленны VK_Key для A-Z и 0-9?
Ответ:
Они не обьявлены в Delphi поскольку они просто могуть быть заменены буквами.
VK_0 до VK_9 то же что и  ASCII '0' до '9' ($30 - $39),
VK_A до VK_Z то же что и  ASCII 'A' до 'Z' ($41 - $5A).

]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/154/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Есть ли в Delphi эквивалент функции SendKeys Visual Basic&#8217;а?</title>
		<link>http://www.mydelphi.info/code/137</link>
		<comments>http://www.mydelphi.info/code/137#comments</comments>
		<pubDate>Mon, 09 Jun 2008 15:36:14 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[capslock]]></category>
		<category><![CDATA[clipboard]]></category>
		<category><![CDATA[Delphi]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=137</guid>
		<description><![CDATA[Вопрос:
Есть ли в Delphi эквивалент функции SendKeys Visual Basic'а?

Ответ:
Ниже приведена процедура,
позволяющаю отправлять нажатия в любой элемент управления (window control),
способный принимать ввод с клавиатуры. Вы можете использовать эту технику чтобы
включать клавиши NumLock, CapsLock и ScrollLock под Windows NT. Та же техника
работает и под Windows 95 для CapsLock и ScrollLock но не работает для клавиши
NumLock.
Обратите внимание, что [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/137/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как в Delphi реализовать функцию &#8211; эквивалент TwipsPerPixel из VisualBasic?</title>
		<link>http://www.mydelphi.info/code/109</link>
		<comments>http://www.mydelphi.info/code/109#comments</comments>
		<pubDate>Sun, 08 Jun 2008 17:12:38 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Delphi]]></category>
		<category><![CDATA[GetDeviceCaps]]></category>
		<category><![CDATA[LOGPIXELSX]]></category>
		<category><![CDATA[LOGPIXELSY]]></category>
		<category><![CDATA[procedure]]></category>
		<category><![CDATA[Result]]></category>
		<category><![CDATA[TObject]]></category>
		<category><![CDATA[TwipsPerPixel]]></category>
		<category><![CDATA[TwipsPerPixelX]]></category>
		<category><![CDATA[TwipsPerPixelY]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=109</guid>
		<description><![CDATA[Вопрос:
 

Как в Delphi реализовать функцию - эквивалент TwipsPerPixel из VisualBasic?

Ответ:
Функции  TwipsPerPixelX и TwipsPerPixelY, приведенные в примере реализуют ту же
функциональность в  Delphi.

Пример:

function TwipsPerPixelX(Canvas : TCanvas) : Extended;
begin
	result := 1440 / GetDeviceCaps(Canvas.Handle, LOGPIXELSX);
end;

function TwipsPerPixelY(Canvas : TCanvas) : Extended;
begin
	result := 1440 / GetDeviceCaps(Canvas.Handle, LOGPIXELSY);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
	ShowMessage(FloatToStr(TwipsPerPixelX(Form1.Canvas)));
	ShowMessage(FloatToStr(TwipsPerPixelY(Form1.Canvas)));
end;

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

