<?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; Application</title>
	<atom:link href="http://www.mydelphi.info/code/tag/application/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>Функция keybd_event() принимает значения до 244</title>
		<link>http://www.mydelphi.info/code/187</link>
		<comments>http://www.mydelphi.info/code/187#comments</comments>
		<pubDate>Mon, 09 Jun 2008 16:38:01 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Application]]></category>
		<category><![CDATA[Button]]></category>
		<category><![CDATA[FillChar]]></category>
		<category><![CDATA[focus]]></category>
		<category><![CDATA[KEYUP]]></category>
		<category><![CDATA[ProcessMessages]]></category>
		<category><![CDATA[RIGHT]]></category>
		<category><![CDATA[ScanCode]]></category>
		<category><![CDATA[SendMessage]]></category>
		<category><![CDATA[Windows]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=187</guid>
		<description><![CDATA[Вопрос:
Функция keybd_event() принимает значения до 244 - как мне отправить нажатие
клавиши с кодом #255 в элемент управления Windows?
Ответ:
Это может понадобится для иностранных языков или для специальных символов. (например,
в русских шрифтах символ с кодом #255 - я прописное). Приведенный в примере метод,
не стоит использовать в случае если символ может быть передан обычным способом
(функцией keybd_event()).

procedure TForm1.Button1Click(Sender: TObject);
var
	KeyData [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/187/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<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>При попытке использовать метод TCanvas.StretchDraw</title>
		<link>http://www.mydelphi.info/code/166</link>
		<comments>http://www.mydelphi.info/code/166#comments</comments>
		<pubDate>Mon, 09 Jun 2008 16:20:08 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Application]]></category>
		<category><![CDATA[bitmap]]></category>
		<category><![CDATA[Button]]></category>
		<category><![CDATA[Canvas]]></category>
		<category><![CDATA[icon]]></category>
		<category><![CDATA[procedure]]></category>
		<category><![CDATA[StretchDraw]]></category>
		<category><![CDATA[TBitmap]]></category>
		<category><![CDATA[TForm]]></category>
		<category><![CDATA[Width]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=166</guid>
		<description><![CDATA[Вопрос:
При попытке использовать метод TCanvas.StretchDraw чтобы нарисовать иконку
увеличенной ее размер не изменяется. Что делать?
Ответ:
Иконки всегда рисуются размером принятым в системе по умолчанию. Чтобы показать
увеличенный вид иконки скоприуйте ее на bitmap, а зате используйте метод
TCanvas.StretchDraw.

Пример:

procedure TForm1.Button1Click(Sender: TObject);
var
	TheBitmap : TBitmap;
begin
	TheBitmap := TBitmap.Create;
	TheBitmap.Width := Application.Icon.Width;
	TheBitmap.Height := Application.Icon.Height;
	TheBitmap.Canvas.Draw(0, 0, Application.Icon);
	Form1.Canvas.StretchDraw(Rect(0,0,TheBitmap.Width * 3,TheBitmap.Height * 3),
		   TheBitmap);
	TheBitmap.Free;
end;

]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/166/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как показать первый кадр AVI-файла?</title>
		<link>http://www.mydelphi.info/code/148</link>
		<comments>http://www.mydelphi.info/code/148#comments</comments>
		<pubDate>Mon, 09 Jun 2008 15:44:58 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Application]]></category>
		<category><![CDATA[AVI]]></category>
		<category><![CDATA[MediaPlayer]]></category>
		<category><![CDATA[procedure]]></category>
		<category><![CDATA[ProcessMessages]]></category>
		<category><![CDATA[TForm]]></category>
		<category><![CDATA[TObject]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=148</guid>
		<description><![CDATA[Вопрос:
Как показать первый кадр AVI-файла?
Ответ:
См. пример.
Пример:

procedure TForm1.Button1Click(Sender: TObject);
begin
	Application.ProcessMessages;
	MediaPlayer1.Open;
	Application.ProcessMessages;
	MediaPlayer1.Step;
	Application.ProcessMessages;
	MediaPlayer1.Previous;
end;

]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/148/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как убрать кнопку с названием моей программы из Панели Задач(Taskbar)?</title>
		<link>http://www.mydelphi.info/code/142</link>
		<comments>http://www.mydelphi.info/code/142#comments</comments>
		<pubDate>Mon, 09 Jun 2008 15:40:16 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Application]]></category>
		<category><![CDATA[CreateForm]]></category>
		<category><![CDATA[initialization]]></category>
		<category><![CDATA[Initialize]]></category>
		<category><![CDATA[program]]></category>
		<category><![CDATA[Project]]></category>
		<category><![CDATA[ShowMainForm]]></category>
		<category><![CDATA[TForm]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=142</guid>
		<description><![CDATA[Вопрос:
Как убрать кнопку с названием моей программы из Панели Задач(Taskbar)?

Ответ:
Отредактируйте файл-проекта
(View -&#62; Project Source) Добавьте модуль Windows в раздел uses. Application.ShowMainForm
:= False; в строку после &#8220;Application.Initialize;&#8221;. Добавьте ShowWindow(Application.Handle,
SW_HIDE); в строку перед &#8220;Application.Run;&#8221;
Ваш файл проекта должен выглядеть приблизительно так:
program Project1;

uses
	Windows,
	Forms,
	Unit1 in 'Unit1.pas' {Form1},
	Unit2 in 'Unit2.pas' {Form2};

{$R *.RES}

begin
	Application.Initialize;
	Application.ShowMainForm := False;
	Application.CreateForm(TForm1, Form1);
	Application.CreateForm(TForm2, Form2);
	ShowWindow(Application.Handle, SW_HIDE);
	Application.Run;
end.

В разделе "initialization" (в самом [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/142/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>
