<?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; Form</title>
	<atom:link href="http://www.mydelphi.info/code/tag/form/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>Можно ли сделать так &#8211; одна форма показывает другую и остается позади нее</title>
		<link>http://www.mydelphi.info/code/178</link>
		<comments>http://www.mydelphi.info/code/178#comments</comments>
		<pubDate>Mon, 09 Jun 2008 16:30:15 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Application]]></category>
		<category><![CDATA[auto-created]]></category>
		<category><![CDATA[begin]]></category>
		<category><![CDATA[Button]]></category>
		<category><![CDATA[Form]]></category>
		<category><![CDATA[SHOWNA]]></category>
		<category><![CDATA[ShowWindow]]></category>
		<category><![CDATA[TObject]]></category>
		<category><![CDATA[Visible]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=178</guid>
		<description><![CDATA[Вопрос:
Можно ли сделать так - одна форма показывает другую и остается позади нее, но фокус
ввода не переходит к новой форме, а остается у старой?
Ответ:
В примере показывается не автосоздаваемая (non auto-created) форма, но фокус ввода ей
не передается.

Пример:

uses Unit2;

procedure TForm1.Button1Click(Sender: TObject);
begin
	Form2 := TForm2.Create(Application);
	Form2.Visible := FALSE;
	ShowWindow(Form2.Handle, SW_SHOWNA);
end;
]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/178/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как определить нажаты ли клавиши Shift, Alt, or Ctrl в какой-либо момент времени?</title>
		<link>http://www.mydelphi.info/code/135</link>
		<comments>http://www.mydelphi.info/code/135#comments</comments>
		<pubDate>Mon, 09 Jun 2008 15:34:46 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Boolean]]></category>
		<category><![CDATA[Caption]]></category>
		<category><![CDATA[Form]]></category>
		<category><![CDATA[function]]></category>
		<category><![CDATA[GetKeyboardState]]></category>
		<category><![CDATA[MenuItem]]></category>
		<category><![CDATA[TKeyboardState]]></category>
		<category><![CDATA[TObject]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=135</guid>
		<description><![CDATA[Вопрос:
Как определить нажаты ли клавиши Shift, Alt, or Ctrl в какой-либо момент времени?

Ответ:
В приведенном примере
показано как определить нажата ли клавиша Shift при выборе строчки меню. Пример
также содержит функции проверки состояния клавиш Alt, Ctrl.
Пример:
function CtrlDown : Boolean;
var
	State : TKeyboardState;
begin
	GetKeyboardState(State);
	Result := ((State[vk_Control] And 128) &#60;&#62; 0);
end;

function ShiftDown : Boolean;
var
	State : TKeyboardState;
begin
	GetKeyboardState(State);
	Result := ((State[vk_Shift] and 128) &#60;&#62; 0);
end;

function [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/135/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как создать bitmap из пиктогрммы (icon)?</title>
		<link>http://www.mydelphi.info/code/106</link>
		<comments>http://www.mydelphi.info/code/106#comments</comments>
		<pubDate>Sun, 08 Jun 2008 17:10:09 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Button]]></category>
		<category><![CDATA[Canvas]]></category>
		<category><![CDATA[Form]]></category>
		<category><![CDATA[ICO]]></category>
		<category><![CDATA[procedure]]></category>
		<category><![CDATA[TBitmap]]></category>
		<category><![CDATA[TheBitmap]]></category>
		<category><![CDATA[TObject]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=106</guid>
		<description><![CDATA[Вопрос:
Как создать bitmap из пиктогрммы (icon)?
Ответ:
Используя Bitmap.Canvas.Draw нарисуйте пиктограмму на Bitmap'е.

Пример:

procedure TForm1.Button1Click(Sender: TObject);
var
	TheIcon : TIcon;
	TheBitmap : TBitmap;
begin
		TheIcon := TIcon.Create;
		TheIcon.LoadFromFile('C:\Program Files\Borland\IcoCur32\EARTH.ICO');
		TheBitmap := TBitmap.Create;
		TheBitmap.Height := TheIcon.Height;
		TheBitmap.Width := TheIcon.Width;
		TheBitmap.Canvas.Draw(0, 0, TheIcon);
		Form1.Canvas.Draw(10, 10, TheBitmap);
		TheBitmap.Free;
		TheIcon.Free;
	end;

]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/106/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как перехватить нажатия функциональных клавиш и стрелок?</title>
		<link>http://www.mydelphi.info/code/76</link>
		<comments>http://www.mydelphi.info/code/76#comments</comments>
		<pubDate>Sun, 08 Jun 2008 16:43:32 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Caption]]></category>
		<category><![CDATA[Form]]></category>
		<category><![CDATA[KeyDown]]></category>
		<category><![CDATA[procedure]]></category>
		<category><![CDATA[TObject]]></category>
		<category><![CDATA[TShiftState]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=76</guid>
		<description><![CDATA[Вопрос:
Как перехватить нажатия функциональных клавиш и стрелок?

Ответ:
Проверяйте значение переменной
key на равенство VK_RIGHT, VK_LEFT, VK_F1 и т.д. на событии KeyDown формы.
Пример:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
	if Key = VK_RIGHT then
		Form1.Caption := 'Right';
	if Key = VK_F1 then
		Form1.Caption := 'F1';
end;

]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/76/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Урок 4: Обзор Палитры Компонент</title>
		<link>http://www.mydelphi.info/code/6</link>
		<comments>http://www.mydelphi.info/code/6#comments</comments>
		<pubDate>Wed, 04 Jun 2008 18:23:00 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Уроки Delphi]]></category>
		<category><![CDATA[CheckBox]]></category>
		<category><![CDATA[Compiler]]></category>
		<category><![CDATA[Form]]></category>
		<category><![CDATA[procedure]]></category>
		<category><![CDATA[RadioButton]]></category>
		<category><![CDATA[TForm]]></category>
		<category><![CDATA[TRadioGroup]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=6</guid>
		<description><![CDATA[Урок 4: Обзор Палитры Компонент

 ОБЗОР
В данной статье дается обзор стандартных и дополнительных компонент
из Палитры Компонент Delphi (стр. Standard и Additional), страницы диалогов
(Dialogs), системных компонент (стр. System), страницы объектов в формате
Visual Basic (VBX). Компоненты, осуществляющие доступ к данным и отображение
их на экране будут рассматриваться позднее.
 Стандартные компоненты
С компонентами, расположенными на первой странице Палитры Компонент
Вы могли [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/6/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>
