<?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; FormCreate</title>
	<atom:link href="http://www.mydelphi.info/code/tag/formcreate/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>На некоторых laptop компьютерах может не быть флоппи дисковода</title>
		<link>http://www.mydelphi.info/code/179</link>
		<comments>http://www.mydelphi.info/code/179#comments</comments>
		<pubDate>Mon, 09 Jun 2008 16:31:17 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[DriveComboBox]]></category>
		<category><![CDATA[FormCreate]]></category>
		<category><![CDATA[GetDir]]></category>
		<category><![CDATA[Integer]]></category>
		<category><![CDATA[OldDirectory]]></category>
		<category><![CDATA[OldErrorMode]]></category>
		<category><![CDATA[SetErrorMode]]></category>
		<category><![CDATA[String]]></category>
		<category><![CDATA[TDriveComboBox]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=179</guid>
		<description><![CDATA[Вопрос:
На некоторых laptop компьютерах может не быть флоппи дисковода. Можно ли удалять
из списка TDriveComboBox диски которые отключены?
Ответ:
В примере TDriveComboBox не показывает дисководы, которые не готовы. (not ready).
Учтите что на многих компьютерах будет ощутимая задержка при поверке plug&#38;play
флоппи дисковода.

Пример:

procedure TForm1.FormCreate(Sender: TObject);
var
	i : integer;
	OldErrorMode : Word;
	OldDirectory : string;
begin
	OldErrorMode := SetErrorMode(SEM_NOOPENFILEERRORBOX);
	GetDir(0, OldDirectory);
	i := 0;
	while i &#60;= DriveComboBox1.Items.Count - [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/179/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как показывать нестандартный встроенный редактор (inplace editor)</title>
		<link>http://www.mydelphi.info/code/121</link>
		<comments>http://www.mydelphi.info/code/121#comments</comments>
		<pubDate>Sun, 08 Jun 2008 17:22:58 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[CellRect]]></category>
		<category><![CDATA[ComboBox]]></category>
		<category><![CDATA[DefaultRowHeight]]></category>
		<category><![CDATA[FormCreate]]></category>
		<category><![CDATA[R.Bottom]]></category>
		<category><![CDATA[SelectCell]]></category>
		<category><![CDATA[TForm]]></category>
		<category><![CDATA[TRect]]></category>
		<category><![CDATA[Width]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=121</guid>
		<description><![CDATA[Вопрос:
Как показывать нестандартный встроенный редактор (inplace editor) в ячейке stringgrid (например combobox).
Ответ:
См. пример
Пример:

procedure TForm1.FormCreate(Sender: TObject);
begin
	{Высоту combobox'а не изменишь, так что вместо combobox'а
				будем изменять высоту строки grid'а !}
	StringGrid1.DefaultRowHeight := ComboBox1.Height;
	{Спрятать combobox}
	ComboBox1.Visible := False;
	ComboBox1.Items.Add('Delphi Kingdom');
	ComboBox1.Items.Add('Королевство Дельфи');
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
	{Перебросим выбранное в значение из ComboBox в grid}
	StringGrid1.Cells[StringGrid1.Col,
	StringGrid1.Row] :=ComboBox1.Items[ComboBox1.ItemIndex];
	ComboBox1.Visible := False;
	StringGrid1.SetFocus;
end;

procedure TForm1.ComboBox1Exit(Sender: TObject);
begin
	{Перебросим выбранное в значение из ComboBox в grid}
	StringGrid1.Cells[StringGrid1.Col,
	StringGrid1.Row] [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/121/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как создать эквивалент TEdit</title>
		<link>http://www.mydelphi.info/code/112</link>
		<comments>http://www.mydelphi.info/code/112#comments</comments>
		<pubDate>Sun, 08 Jun 2008 17:15:08 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Alignment]]></category>
		<category><![CDATA[FormCreate]]></category>
		<category><![CDATA[MultiLineMemoToSingleLine]]></category>
		<category><![CDATA[procedure]]></category>
		<category><![CDATA[taRightJustify]]></category>
		<category><![CDATA[TForm]]></category>
		<category><![CDATA[TObject]]></category>
		<category><![CDATA[WantReturns]]></category>
		<category><![CDATA[WordWrap]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=112</guid>
		<description><![CDATA[Вопрос:
Как создать эквивалент TEdit но только с выравниваением вводимого текста по центру или по правой стороне?
Ответ:
TEdit не поддерживает
выравниваение текста по центру и по правой стороне &#8211; лучше использовать компонент
TMemo. Вам понадобится запретить пользователю нажимать Enter, Ctrl-Enter и всевозможные
комбинации клавиш со стрелками, чтобы избежать появления нескольких сторк в
Memo. Этого можно добиться и просматривая содержимое текста в [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/112/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Можно ли обратиться к колонке или строке grid&#8217;а по заголовку?</title>
		<link>http://www.mydelphi.info/code/71</link>
		<comments>http://www.mydelphi.info/code/71#comments</comments>
		<pubDate>Sun, 08 Jun 2008 11:31:35 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Cols]]></category>
		<category><![CDATA[FormCreate]]></category>
		<category><![CDATA[function]]></category>
		<category><![CDATA[IntToStr]]></category>
		<category><![CDATA[procedure]]></category>
		<category><![CDATA[String]]></category>
		<category><![CDATA[StringGrid]]></category>
		<category><![CDATA[TStringGrid]]></category>
		<category><![CDATA[var]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=71</guid>
		<description><![CDATA[Вопрос:
Можно ли обратиться к колонке или строке grid&#8217;а по заголовку?
Ответ:
В следующем примере приведены
две функции: GetGridColumnByName() и GetGridRowByName(), которые возвращают
колонку или строку, имеющую заданный заголовок (caption).
Пример:
 

procedure TForm1.FormCreate(Sender: TObject);
begin
	StringGrid1.Rows[1].Strings[0] := 'This Row';
	StringGrid1.Cols[1].Strings[0] := 'This Column';
end;

function GetGridColumnByName(Grid : TStringGrid; ColName : string): integer;
var
	i : integer;
begin
	for i := 0 to Grid.ColCount - 1 do
		if Grid.Rows[0].Strings[i] = ColName then
			begin
		Result := [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/71/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>
