<?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; TMemo</title>
	<atom:link href="http://www.mydelphi.info/code/tag/tmemo/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>Как сделать клавишу-акселератор (keyboard shortcut)</title>
		<link>http://www.mydelphi.info/code/183</link>
		<comments>http://www.mydelphi.info/code/183#comments</comments>
		<pubDate>Mon, 09 Jun 2008 16:34:55 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[begin]]></category>
		<category><![CDATA[FocusControl]]></category>
		<category><![CDATA[FormCreate]]></category>
		<category><![CDATA[keyboard]]></category>
		<category><![CDATA[shortcut]]></category>
		<category><![CDATA[TForm]]></category>
		<category><![CDATA[TMemo]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=183</guid>
		<description><![CDATA[Вопрос:
Как сделать клавишу-акселератор (keyboard shortcut) компонету у которого нет заголовка?

Ответ:
Возможный вариант &#8211; присвоить
ссылку на этот компонент свойству FocusControl TLabel&#8217;а. В примере используется
невидимый Label для создания &#8220;быстрой&#8221; клавиши (Alt+M) компонента Memo. Чтобы
использовать пример, разместите на форме компонет TMemo, Label и несколько других
компонентов, которые могут принимать фокус ввода. Запустите программу, перевидите
фокус ввода куда-нибудь вне Memo и нажмите [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/183/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title></title>
		<link>http://www.mydelphi.info/code/158</link>
		<comments>http://www.mydelphi.info/code/158#comments</comments>
		<pubDate>Mon, 09 Jun 2008 16:13:23 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[DFM]]></category>
		<category><![CDATA[Insert]]></category>
		<category><![CDATA[InsertOn]]></category>
		<category><![CDATA[SelLength]]></category>
		<category><![CDATA[Sender]]></category>
		<category><![CDATA[TEdit]]></category>
		<category><![CDATA[TForm]]></category>
		<category><![CDATA[TMemo]]></category>
		<category><![CDATA[TObject]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/code/158</guid>
		<description><![CDATA[Вопрос:
Как добится того чтобы TMemo и TEdit имели работали не только в режиме вставки символов,
но и в режиме замены?

Ответ:
Элементы управления Windows
TEdit и TMemo не имеют режима замены. Однако этот режим можно эмулировать установив
свойство SelLength edit&#8217;а или memo в 1 при обработке события KeyPress. Это заставит
его перезаписывать символ в текущей позиции курсора. В примере этот способ [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/158/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как определить номер текущей строки в TMemo?</title>
		<link>http://www.mydelphi.info/code/96</link>
		<comments>http://www.mydelphi.info/code/96#comments</comments>
		<pubDate>Sun, 08 Jun 2008 17:01:17 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[IntToStr]]></category>
		<category><![CDATA[LINEFROMCHAR]]></category>
		<category><![CDATA[LineNumber]]></category>
		<category><![CDATA[ShowMessage]]></category>
		<category><![CDATA[TForm]]></category>
		<category><![CDATA[TMemo]]></category>
		<category><![CDATA[TObject]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=96</guid>
		<description><![CDATA[Вопрос:
Как определить номер текущей строки в TMemo?

Ответ:
Чтобы определить номер
текущей строки любого объекта управления edit &#8211; пошлите ей сообщение EM_LINEFROMCHAR
Пример:
procedure TForm1.Button1Click(Sender: TObject);
var
	LineNumber : integer;
begin
	LineNumber := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, word(-1), 0);
	ShowMessage(IntToStr(LineNumber));
end;

]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/96/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как настроить табуляцию в компоненте TMemo?</title>
		<link>http://www.mydelphi.info/code/75</link>
		<comments>http://www.mydelphi.info/code/75#comments</comments>
		<pubDate>Sun, 08 Jun 2008 16:42:43 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[array]]></category>
		<category><![CDATA[procedure]]></category>
		<category><![CDATA[Sender]]></category>
		<category><![CDATA[SetTabStops]]></category>
		<category><![CDATA[TForm]]></category>
		<category><![CDATA[TMemo]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=75</guid>
		<description><![CDATA[Вопрос:
Как настроить табуляцию в компоненте TMemo?

Ответ:
Пошлите в Memo сообщение
EM_SETTABSTOPS. Например установим первую позицию табуляции на 20-й пиксел.
Пример:
procedure TForm1.FormCreate(Sender: TObject);
var
	DialogUnitsX : LongInt;
	PixelsX : LongInt;
	i : integer;
	TabArray : array[0..4] of integer;
begin
	Memo1.WantTabs := true;
	DialogUnitsX := LoWord(GetDialogBaseUnits);
	PixelsX := 20;
	for i := 1 to 5 do
	begin
		TabArray[i - 1] :=((PixelsX * i ) * 4) div DialogUnitsX;
	end;
	SendMessage(Memo1.Handle,
	EM_SETTABSTOPS,5,LongInt(@TabArray));
	Memo1.Refresh;
end;

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