<?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; Visible</title>
	<atom:link href="http://www.mydelphi.info/code/tag/visible/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>Можно ли сделать так &#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>Как узнать есть ли в заданном CD-ROM&#8217;е Audio CD?</title>
		<link>http://www.mydelphi.info/code/122</link>
		<comments>http://www.mydelphi.info/code/122#comments</comments>
		<pubDate>Sun, 08 Jun 2008 17:23:49 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Audio]]></category>
		<category><![CDATA[FileSystemFlags]]></category>
		<category><![CDATA[GetVolumeInformation]]></category>
		<category><![CDATA[MainForm]]></category>
		<category><![CDATA[MaximumComponentLength]]></category>
		<category><![CDATA[Parent]]></category>
		<category><![CDATA[PlayAudioCD]]></category>
		<category><![CDATA[Shareable]]></category>
		<category><![CDATA[ShowMessage]]></category>
		<category><![CDATA[String]]></category>
		<category><![CDATA[sult]]></category>
		<category><![CDATA[Visible]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=122</guid>
		<description><![CDATA[Вопрос:
Как узнать есть ли в заданном CD-ROM'е Audio CD?

Ответ:
Можно использовать функцию
Windows API GetDriveType() чтобы определить является ли дисковод CD-ROM&#8217;мом.
И функцию API GetVolumeInformation() чтобы проверить VolumeName на равенство
&#8216;Audio CD&#8217;.
Пример:
function IsAudioCD(Drive : char) : bool;
var
	DrivePath : string;
	MaximumComponentLength : DWORD;
	FileSystemFlags : DWORD;
	VolumeName : string;
Begin
	sult := false;
	DrivePath := Drive + ':\';
	if GetDriveType(PChar(DrivePath)) &#60;&#62; DRIVE_CDROM then
		exit;
	SetLength(VolumeName, 64);
	GetVolumeInformation(PChar(DrivePath),PChar(VolumeName),
	Length(VolumeName),nil,MaximumComponentLength,FileSystemFlags,nil,0);
	if lStrCmp(PChar(VolumeName),'Audio CD') = [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/122/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как бы мне создать trackbar</title>
		<link>http://www.mydelphi.info/code/116</link>
		<comments>http://www.mydelphi.info/code/116#comments</comments>
		<pubDate>Sun, 08 Jun 2008 17:18:53 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[CommCtrl]]></category>
		<category><![CDATA[ENABLESELRANGE]]></category>
		<category><![CDATA[Height]]></category>
		<category><![CDATA[Parent]]></category>
		<category><![CDATA[TCreateParams]]></category>
		<category><![CDATA[TMyTrackBar]]></category>
		<category><![CDATA[TObject]]></category>
		<category><![CDATA[TTrackbar]]></category>
		<category><![CDATA[Visible]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=116</guid>
		<description><![CDATA[Вопрос:
Как бы мне создать эдакий trackbar в котором вместо широкой белой полоски с ползунком была бы тонкая линия?
Ответ:
В примере создается компонент,
унаследованный от TTrackbar который переопределяет метод CreateParams и убират
флаг TBS_ENABLESELRANGE из Style. Константа TBS_ENABLESELRANGE обьявленна в
модуле CommCtrl.
Пример:
uses CommCtrl, ComCtrls;

type TMyTrackBar = class(TTrackBar)
	procedure CreateParams(var Params: TCreateParams); override;
end;

procedure TMyTrackBar.CreateParams(var Params: TCreateParams);
begin
	inherited;
		Params.Style := Params.Style and not TBS_ENABLESELRANGE;
end;

var
	MyTrackbar : [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/116/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как скрыть форму при старте приложения?</title>
		<link>http://www.mydelphi.info/code/57</link>
		<comments>http://www.mydelphi.info/code/57#comments</comments>
		<pubDate>Sun, 08 Jun 2008 10:41:47 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Советы]]></category>
		<category><![CDATA[Handle]]></category>
		<category><![CDATA[OnCreate]]></category>
		<category><![CDATA[OnShow]]></category>
		<category><![CDATA[SHOW]]></category>
		<category><![CDATA[ShowWindow]]></category>
		<category><![CDATA[TForm]]></category>
		<category><![CDATA[Visible]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=57</guid>
		<description><![CDATA[Как скрыть форму при старте приложения?
К сожалению при создании окна приложения ни в одном из первых событий (OnCreate,
OnShow, OnActivate) нет доступа к свойству Visible. Использование функции
ShowWindow с параметром SW_HIDE в OnActivate-событии решает проблему (но
при этом не избежать кратковременного мерцания окна перед &#8220;исчезновением&#8221;):
procedure TForm1.OnActivate(Sender: TObject);
begin
  ShowWindow(Handle, SW_HIDE);
end;

чтобы сделать окно опять видимым необходимо вызвать ту же [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/57/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как через индекс обратиться к нескольким компонентам?</title>
		<link>http://www.mydelphi.info/code/40</link>
		<comments>http://www.mydelphi.info/code/40#comments</comments>
		<pubDate>Sun, 08 Jun 2008 10:25:53 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Советы]]></category>
		<category><![CDATA[FindComponent]]></category>
		<category><![CDATA[IntToStr]]></category>
		<category><![CDATA[Label]]></category>
		<category><![CDATA[Visible]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=40</guid>
		<description><![CDATA[Как через индекс обратиться к нескольким компонентам?
Чтобы найти и сделать видимыми, например, компоненты с именами от &#8220;Label1&#8243;
и до &#8220;Label5&#8243; можно использовать следующий вариант:

for t := 1 to 5 do
  FindComponent('Label' + IntToStr(t)).Visible := TRUE;
]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/40/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>

