Общие вопросы VCL
Delphi — среда быстрой разработки, где в качестве языка программирования используется Object Pascal. На сегодняшний день позволяет разрабатывать ПО для Microsoft Windows, Mac OS, iOS и Android и входит в состав Embarcadero RAD Studio
https://delphi-hlp.ru/index.php/obshchie-voprosy-vcl.feed
2022-09-13T04:28:19+07:00
Delphi help
info@delphi-hlp.ru
Joomla! - Open Source Content Management
Иерархия классов
2017-08-04T16:42:25+07:00
2017-08-04T16:42:25+07:00
https://delphi-hlp.ru/index.php/obshchie-voprosy-vcl/ierarkhiya-klassov.html
Super User
toto44@inbox.ru
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p>
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Следующий модуль строит дерево классов</span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/obshchie-voprosy-vcl/ierarkhiya-klassov.html">Подробнее...</a></p>
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p>
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Следующий модуль строит дерево классов</span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/obshchie-voprosy-vcl/ierarkhiya-klassov.html">Подробнее...</a></p>
Как заставить приложение показывать различные иконки при различных разрешениях дисплея?
2017-08-03T16:16:39+07:00
2017-08-03T16:16:39+07:00
https://delphi-hlp.ru/index.php/obshchie-voprosy-vcl/kak-zastavit-prilozhenie-pokazyvat-razlichnye-ikonki-pri-razlichnykh-razresheniyakh-displeya.html
Super User
toto44@inbox.ru
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Для этого достаточно текущее разрешение экрана и в соответствии с ним изменить дескриптор иконки приложения. Естевственно, что Вам прийдётся создать в ресурсах новые иконки.</span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/obshchie-voprosy-vcl/kak-zastavit-prilozhenie-pokazyvat-razlichnye-ikonki-pri-razlichnykh-razresheniyakh-displeya.html">Подробнее...</a></p>
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Для этого достаточно текущее разрешение экрана и в соответствии с ним изменить дескриптор иконки приложения. Естевственно, что Вам прийдётся создать в ресурсах новые иконки.</span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/obshchie-voprosy-vcl/kak-zastavit-prilozhenie-pokazyvat-razlichnye-ikonki-pri-razlichnykh-razresheniyakh-displeya.html">Подробнее...</a></p>
Как правильно работать с прозрачными окнами?
2017-08-04T17:03:22+07:00
2017-08-04T17:03:22+07:00
https://delphi-hlp.ru/index.php/obshchie-voprosy-vcl/kak-pravilno-rabotat-s-prozrachnymi-oknami.html
Super User
toto44@inbox.ru
<h1><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></h1>
<h1><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt; font-weight: bold;">стиль WS_EX_TRANSPARENT</span></h1>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Стиль окна-формы указывается в CreateParams. Только вот когда перемещаешь его, фон остается со старым куском экрана. Чтобы этого не происходило, то когда pисуешь своё окно, запоминай, что было под ним,а пpи пеpемещении восстанавливай.</span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">HDC hDC = GetDC(GetDesktopWindow()) тебе поможет..</span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Andrei Bogomolov</span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p>
<p style="text-align: right;"><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt; font-weight: bold;"> </span></p>
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p>
<h1><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></h1>
<h1><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt; font-weight: bold;">стиль WS_EX_TRANSPARENT</span></h1>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Стиль окна-формы указывается в CreateParams. Только вот когда перемещаешь его, фон остается со старым куском экрана. Чтобы этого не происходило, то когда pисуешь своё окно, запоминай, что было под ним,а пpи пеpемещении восстанавливай.</span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">HDC hDC = GetDC(GetDesktopWindow()) тебе поможет..</span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Andrei Bogomolov</span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p>
<p style="text-align: right;"><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt; font-weight: bold;"> </span></p>
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p>
Как разделить обработку OnClick и OnDblClick? Ведь OnClick будет вызываться всегда, и перед DblClick.
2017-08-03T21:44:03+07:00
2017-08-03T21:44:03+07:00
https://delphi-hlp.ru/index.php/obshchie-voprosy-vcl/kak-razdelit-obrabotku-onclick-i-ondblclick-ved-onclick-budet-vyzyvatsya-vsegda-i-pered-dblclick.html
Super User
toto44@inbox.ru
<p><span style="font-family: 'MS Sans Serif'; font-size: 8pt;"> </span></p>
<p><span style="color: #000000; font-family: 'Times New Roman';">Именно так и происходит в Windows - посылаются оба сообщения. Для того чтобы обработать только какое-то одно событие необходимо чуть "задержать" выполнение OnClick. Сделать это можно следующим способом: </span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/obshchie-voprosy-vcl/kak-razdelit-obrabotku-onclick-i-ondblclick-ved-onclick-budet-vyzyvatsya-vsegda-i-pered-dblclick.html">Подробнее...</a></p>
<p><span style="font-family: 'MS Sans Serif'; font-size: 8pt;"> </span></p>
<p><span style="color: #000000; font-family: 'Times New Roman';">Именно так и происходит в Windows - посылаются оба сообщения. Для того чтобы обработать только какое-то одно событие необходимо чуть "задержать" выполнение OnClick. Сделать это можно следующим способом: </span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/obshchie-voprosy-vcl/kak-razdelit-obrabotku-onclick-i-ondblclick-ved-onclick-budet-vyzyvatsya-vsegda-i-pered-dblclick.html">Подробнее...</a></p>
Как различаются между собой Paint-события: Invalidate, Update и Refresh?
2017-08-04T16:57:11+07:00
2017-08-04T16:57:11+07:00
https://delphi-hlp.ru/index.php/obshchie-voprosy-vcl/kak-razlichayutsya-mezhdu-soboj-paint-sobytiya-invalidate-update-i-refresh.html
Super User
toto44@inbox.ru
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span style="color: #000000; font-weight: bold;">Invalidate</span><span style="color: #000000;"> весь объект перерисовывается заново; обычно перерисовывается только часть бывшая перед этим закрытой </span></span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p>
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span style="color: #000000; font-weight: bold;">Update</span><span style="color: #000000;"> незамедлительная перерисовка </span></span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p>
<p><span style="color: #000000; font-family: 'Times New Roman'; font-size: 12pt;"><span style="font-family: tahoma,arial,helvetica,sans-serif;">Refresh Invalidate + Update</span> </span></p>
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span style="color: #000000; font-weight: bold;">Invalidate</span><span style="color: #000000;"> весь объект перерисовывается заново; обычно перерисовывается только часть бывшая перед этим закрытой </span></span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p>
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"><span style="color: #000000; font-weight: bold;">Update</span><span style="color: #000000;"> незамедлительная перерисовка </span></span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p>
<p><span style="color: #000000; font-family: 'Times New Roman'; font-size: 12pt;"><span style="font-family: tahoma,arial,helvetica,sans-serif;">Refresh Invalidate + Update</span> </span></p>
Как сделать, чтобы компоненты отбрасывали тень?
2017-08-03T21:26:54+07:00
2017-08-03T21:26:54+07:00
https://delphi-hlp.ru/index.php/obshchie-voprosy-vcl/kak-sdelat-chtoby-komponenty-otbrasyvali-ten.html
Super User
toto44@inbox.ru
<p><span style="font-family: 'MS Sans Serif'; font-size: 8pt;"> </span></p>
<div style="margin: 0px; padding: 0px; text-align: left; text-indent: 0px;">
<table style="border-width: 1px; border-style: solid; border-color: #000000 #c0c0c0 #c0c0c0 #000000; border-spacing: 0px; background-color: #ffffc4;" border="1" cellspacing="0" cellpadding="5" bgcolor="#ffffc4">
<tbody>
<tr align="left" valign="top">
<td style="border-width: 1px; border-style: solid; border-color: #c0c0c0 #000000 #000000 #c0c0c0;">
<p style="text-align: justify;"><span style="color: #000000; font-family: 'Times New Roman'; font-weight: bold;">Code:</span></p>
</td>
</tr>
<tr align="left">
<td style="border-width: 1px; border-style: solid; border-color: #c0c0c0 #000000 #000000 #c0c0c0;">
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">procedure</span><span class="f_CodeExample" style="color: #000000;"> ShadeIt(f: TForm; c: TControl; Width: Integer; Color: TColor); </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">var</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> rect: TRect; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> old: TColor; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">begin</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">if</span><span class="f_CodeExample" style="color: #000000;"> (c.Visible) </span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">then</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">begin</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> rect := c.BoundsRect; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> rect.Left := rect.Left + Width; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> rect.Top := rect.Top + Width; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> rect.Right := rect.Right + Width; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> rect.Bottom := rect.Bottom + Width; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> old := f.Canvas.Brush.Color; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> f.Canvas.Brush.Color := Color; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> f.Canvas.fillrect(rect); </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> f.Canvas.Brush.Color := old; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">end</span><span class="f_CodeExample" style="color: #000000;">; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">end</span><span class="f_CodeExample" style="color: #000000;">; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">procedure</span><span class="f_CodeExample" style="color: #000000;"> TForm1.FormPaint(Sender: TObject); </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">var</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> i: Integer; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">begin</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">for</span><span class="f_CodeExample" style="color: #000000;"> i := </span><span class="f_CodeExample" style="color: #800000;">0</span> <span class="f_CodeExample" style="color: #008000; font-weight: bold;">to</span><span class="f_CodeExample" style="color: #000000;"> Self.ControlCount - </span><span class="f_CodeExample" style="color: #800000;">1</span> <span class="f_CodeExample" style="color: #008000; font-weight: bold;">do</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> ShadeIt(Self, Self.Controls[i], </span><span class="f_CodeExample" style="color: #800000;">3</span><span class="f_CodeExample" style="color: #000000;">, clBlack); </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">end</span><span class="f_CodeExample" style="color: #000000;">; </span></p>
</td>
</tr>
</tbody>
</table>
</div>
<p> </p>
<p><span style="color: #000000; font-family: 'Times New Roman';"> </span></p>
<p style="text-align: right;"><span style="color: #ff6600; font-family: 'Courier New'; font-size: 8pt; font-weight: bold;"> </span></p>
<p><span style="color: #000000; font-family: 'Times New Roman'; font-weight: bold;">Взято с сайта</span> https://www.swissdelphicenter.ch/en/tipsindex.php</p>
<p><span style="font-family: 'MS Sans Serif'; font-size: 8pt;"> </span></p>
<div style="margin: 0px; padding: 0px; text-align: left; text-indent: 0px;">
<table style="border-width: 1px; border-style: solid; border-color: #000000 #c0c0c0 #c0c0c0 #000000; border-spacing: 0px; background-color: #ffffc4;" border="1" cellspacing="0" cellpadding="5" bgcolor="#ffffc4">
<tbody>
<tr align="left" valign="top">
<td style="border-width: 1px; border-style: solid; border-color: #c0c0c0 #000000 #000000 #c0c0c0;">
<p style="text-align: justify;"><span style="color: #000000; font-family: 'Times New Roman'; font-weight: bold;">Code:</span></p>
</td>
</tr>
<tr align="left">
<td style="border-width: 1px; border-style: solid; border-color: #c0c0c0 #000000 #000000 #c0c0c0;">
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">procedure</span><span class="f_CodeExample" style="color: #000000;"> ShadeIt(f: TForm; c: TControl; Width: Integer; Color: TColor); </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">var</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> rect: TRect; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> old: TColor; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">begin</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">if</span><span class="f_CodeExample" style="color: #000000;"> (c.Visible) </span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">then</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">begin</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> rect := c.BoundsRect; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> rect.Left := rect.Left + Width; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> rect.Top := rect.Top + Width; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> rect.Right := rect.Right + Width; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> rect.Bottom := rect.Bottom + Width; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> old := f.Canvas.Brush.Color; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> f.Canvas.Brush.Color := Color; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> f.Canvas.fillrect(rect); </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> f.Canvas.Brush.Color := old; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">end</span><span class="f_CodeExample" style="color: #000000;">; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">end</span><span class="f_CodeExample" style="color: #000000;">; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">procedure</span><span class="f_CodeExample" style="color: #000000;"> TForm1.FormPaint(Sender: TObject); </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">var</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> i: Integer; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">begin</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">for</span><span class="f_CodeExample" style="color: #000000;"> i := </span><span class="f_CodeExample" style="color: #800000;">0</span> <span class="f_CodeExample" style="color: #008000; font-weight: bold;">to</span><span class="f_CodeExample" style="color: #000000;"> Self.ControlCount - </span><span class="f_CodeExample" style="color: #800000;">1</span> <span class="f_CodeExample" style="color: #008000; font-weight: bold;">do</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> ShadeIt(Self, Self.Controls[i], </span><span class="f_CodeExample" style="color: #800000;">3</span><span class="f_CodeExample" style="color: #000000;">, clBlack); </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">end</span><span class="f_CodeExample" style="color: #000000;">; </span></p>
</td>
</tr>
</tbody>
</table>
</div>
<p> </p>
<p><span style="color: #000000; font-family: 'Times New Roman';"> </span></p>
<p style="text-align: right;"><span style="color: #ff6600; font-family: 'Courier New'; font-size: 8pt; font-weight: bold;"> </span></p>
<p><span style="color: #000000; font-family: 'Times New Roman'; font-weight: bold;">Взято с сайта</span> https://www.swissdelphicenter.ch/en/tipsindex.php</p>
Как создать каретку свой собственной формы?
2017-08-03T21:39:31+07:00
2017-08-03T21:39:31+07:00
https://delphi-hlp.ru/index.php/obshchie-voprosy-vcl/kak-sozdat-karetku-svoj-sobstvennoj-formy.html
Super User
toto44@inbox.ru
<p><span style="font-family: 'MS Sans Serif'; font-size: 8pt;"> </span></p>
<div style="margin: 7px 0px; padding: 0px; text-align: justify; text-indent: 0px;">
<table style="border-width: 1px; border-style: solid; border-color: #000000 #c0c0c0 #c0c0c0 #000000; border-spacing: 0px; background-color: #ffffc4;" border="1" cellspacing="0" cellpadding="5" bgcolor="#ffffc4">
<tbody>
<tr align="left" valign="top">
<td style="border-width: 1px; border-style: solid; border-color: #c0c0c0 #000000 #000000 #c0c0c0;">
<p style="text-align: justify;"><span style="color: #000000; font-family: 'Times New Roman'; font-weight: bold;">Code:</span></p>
</td>
</tr>
<tr align="left">
<td style="border-width: 1px; border-style: solid; border-color: #c0c0c0 #000000 #000000 #c0c0c0;">
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;">{ </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> The example below demonstrates creating custom caret: </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;">}</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">unit</span><span class="f_CodeExample" style="color: #000000;"> Unit1; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">interface</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">uses</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> ExtCtrls, StdCtrls; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">type</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> TForm1 = </span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">class</span><span class="f_CodeExample" style="color: #000000;">(TForm) </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Memo1: TMemo; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Image1: TImage; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Edit1: TEdit; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> </span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">procedure</span><span class="f_CodeExample" style="color: #000000;"> Memo1MouseDown(Sender: TObject; Button: TMouseButton; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Shift: TShiftState; X, Y: Integer); </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> </span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">procedure</span><span class="f_CodeExample" style="color: #000000;"> Edit1MouseDown(Sender: TObject; Button: TMouseButton; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Shift: TShiftState; X, Y: Integer); </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">private</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> </span><span class="f_CodeExample" style="color: #000080;">{ Private declarations }</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">public</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> </span><span class="f_CodeExample" style="color: #000080;">{ Public declarations }</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">end</span><span class="f_CodeExample" style="color: #000000;">; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">var</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Form1: TForm1; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">implementation</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #0000ff;">{$R *.DFM}</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">procedure</span><span class="f_CodeExample" style="color: #000000;"> TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Shift: TShiftState; X, Y: Integer); </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">begin</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> CreateCaret(Memo1.Handle, Image1.Picture.Bitmap.Handle, </span><span class="f_CodeExample" style="color: #800000;">0</span><span class="f_CodeExample" style="color: #000000;">, </span><span class="f_CodeExample" style="color: #800000;">0</span><span class="f_CodeExample" style="color: #000000;">); </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> ShowCaret(Memo1.Handle); </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">end</span><span class="f_CodeExample" style="color: #000000;">; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">procedure</span><span class="f_CodeExample" style="color: #000000;"> TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Shift: TShiftState; X, Y: Integer); </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">begin</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> CreateCaret(Edit1.Handle, </span><span class="f_CodeExample" style="color: #800000;">0</span><span class="f_CodeExample" style="color: #000000;">, </span><span class="f_CodeExample" style="color: #800000;">10</span><span class="f_CodeExample" style="color: #000000;">, </span><span class="f_CodeExample" style="color: #800000;">4</span><span class="f_CodeExample" style="color: #000000;">); </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> ShowCaret(Edit1.Handle); </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">end</span><span class="f_CodeExample" style="color: #000000;">; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">end</span><span class="f_CodeExample" style="color: #000000;">. </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;">{The form file source (*.dfm) }</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">object</span><span class="f_CodeExample" style="color: #000000;"> Form1: TForm1 </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Left = </span><span class="f_CodeExample" style="color: #800000;">192</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Top = </span><span class="f_CodeExample" style="color: #800000;">107</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Width = </span><span class="f_CodeExample" style="color: #800000;">544</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Height = </span><span class="f_CodeExample" style="color: #800000;">375</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Caption = </span><span class="f_CodeExample" style="color: #ff0000;">'Form1'</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Color = clBtnFace </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Font.Charset = </span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">DEFAULT</span><span class="f_CodeExample" style="color: #000000;">_CHARSET </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Font.Color = clWindowText </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Font.Height = -</span><span class="f_CodeExample" style="color: #800000;">11</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Font.</span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">Name</span><span class="f_CodeExample" style="color: #000000;"> = </span><span class="f_CodeExample" style="color: #ff0000;">'MS Sans Serif'</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Font.Style = [] </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> OldCreateOrder = False </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> PixelsPerInch = </span><span class="f_CodeExample" style="color: #800000;">96</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> TextHeight = </span><span class="f_CodeExample" style="color: #800000;">13</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">object</span><span class="f_CodeExample" style="color: #000000;"> Image1: TImage </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Left = </span><span class="f_CodeExample" style="color: #800000;">12</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Top = </span><span class="f_CodeExample" style="color: #800000;">4</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Width = </span><span class="f_CodeExample" style="color: #800000;">16</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Height = </span><span class="f_CodeExample" style="color: #800000;">16</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> AutoSize = True </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Picture.Data = </span><span class="f_CodeExample" style="color: #000080;">{ </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> 07544269746D6170B6020000424DB602000000000000B6000000280000001000 </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> 0000100000000100100000000000000200000000000000000000100000000000 </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> 000000000000000080000080000000808000800000008000800080800000C0C0 </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> FF00000000000000000000000000000000000000000000000000000000000000 </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> 0000000000000000000000000000000000000000000000000000000000000000 </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> 000000000000FF7FFF7FFF7FFF7F000000000000FF7FFF7FFF7FFF7FFF7FFF7F </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> 00000000FF7FFF7FFF7FFF7F000000000000FF7FFF7FFF7FFF7FFF7FFF7F0000 </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> 0000FF7FFF7FFF7FFF7FFF7F00000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000 </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> 000000000000FF7FFF7FFF7F0000000000000000FF7FFF7FFF7FFF7F00000000 </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> 0000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000 </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> 0000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000 </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> 0000000000000000FF7FFF7FFF7F00000000FF7FFF7FFF7FFF7F000000000000 </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> 00000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000000000000000 </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> 00000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000000000000000 </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> 000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7F0000000000000000 </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> 000000000000000000000000FF7FFF7FFF7FFF7FFF7F00000000000000000000 </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> 0000000000000000000000000000FF7FFF7FFF7FFF7F00000000000000000000 </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> 0000000000000000000000000000FF7FFF7FFF7F000000000000000000000000 </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> 00000000000000000000000000000000FF7F0000000000000000000000000000 </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> 0000}</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">end</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">object</span><span class="f_CodeExample" style="color: #000000;"> Memo1: TMemo </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Left = </span><span class="f_CodeExample" style="color: #800000;">12</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Top = </span><span class="f_CodeExample" style="color: #800000;">36</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Width = </span><span class="f_CodeExample" style="color: #800000;">149</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Height = </span><span class="f_CodeExample" style="color: #800000;">149</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Lines.Strings = (</span><span class="f_CodeExample" style="color: #ff0000;">'Memo1'</span><span class="f_CodeExample" style="color: #000000;">) </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> TabOrder = </span><span class="f_CodeExample" style="color: #800000;">0</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> OnMouseDown = Memo1MouseDown </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">end</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">object</span><span class="f_CodeExample" style="color: #000000;"> Edit1: TEdit </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Left = </span><span class="f_CodeExample" style="color: #800000;">220</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Top = </span><span class="f_CodeExample" style="color: #800000;">60</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Width = </span><span class="f_CodeExample" style="color: #800000;">121</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Height = </span><span class="f_CodeExample" style="color: #800000;">21</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> TabOrder = </span><span class="f_CodeExample" style="color: #800000;">1</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Text = </span><span class="f_CodeExample" style="color: #ff0000;">'Edit1'</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> OnMouseDown = Edit1MouseDown </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">end</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">end</span></p>
</td>
</tr>
</tbody>
</table>
</div>
<p> </p>
<p style="text-align: right;"><span style="color: #ff6600; font-family: 'Courier New'; font-size: 8pt; font-weight: bold;"><span style="font-family: Arial Unicode MS;"> </span></span></p>
<p><span style="color: #000000; font-family: 'Times New Roman'; font-weight: bold;">Взято с сайта</span> https://www.swissdelphicenter.ch/en/tipsindex.php</p>
<p><span style="font-family: 'MS Sans Serif'; font-size: 8pt;"> </span></p>
<div style="margin: 7px 0px; padding: 0px; text-align: justify; text-indent: 0px;">
<table style="border-width: 1px; border-style: solid; border-color: #000000 #c0c0c0 #c0c0c0 #000000; border-spacing: 0px; background-color: #ffffc4;" border="1" cellspacing="0" cellpadding="5" bgcolor="#ffffc4">
<tbody>
<tr align="left" valign="top">
<td style="border-width: 1px; border-style: solid; border-color: #c0c0c0 #000000 #000000 #c0c0c0;">
<p style="text-align: justify;"><span style="color: #000000; font-family: 'Times New Roman'; font-weight: bold;">Code:</span></p>
</td>
</tr>
<tr align="left">
<td style="border-width: 1px; border-style: solid; border-color: #c0c0c0 #000000 #000000 #c0c0c0;">
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;">{ </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> The example below demonstrates creating custom caret: </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;">}</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">unit</span><span class="f_CodeExample" style="color: #000000;"> Unit1; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">interface</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">uses</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> ExtCtrls, StdCtrls; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">type</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> TForm1 = </span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">class</span><span class="f_CodeExample" style="color: #000000;">(TForm) </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Memo1: TMemo; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Image1: TImage; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Edit1: TEdit; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> </span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">procedure</span><span class="f_CodeExample" style="color: #000000;"> Memo1MouseDown(Sender: TObject; Button: TMouseButton; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Shift: TShiftState; X, Y: Integer); </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> </span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">procedure</span><span class="f_CodeExample" style="color: #000000;"> Edit1MouseDown(Sender: TObject; Button: TMouseButton; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Shift: TShiftState; X, Y: Integer); </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">private</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> </span><span class="f_CodeExample" style="color: #000080;">{ Private declarations }</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">public</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> </span><span class="f_CodeExample" style="color: #000080;">{ Public declarations }</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">end</span><span class="f_CodeExample" style="color: #000000;">; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">var</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Form1: TForm1; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">implementation</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #0000ff;">{$R *.DFM}</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">procedure</span><span class="f_CodeExample" style="color: #000000;"> TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Shift: TShiftState; X, Y: Integer); </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">begin</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> CreateCaret(Memo1.Handle, Image1.Picture.Bitmap.Handle, </span><span class="f_CodeExample" style="color: #800000;">0</span><span class="f_CodeExample" style="color: #000000;">, </span><span class="f_CodeExample" style="color: #800000;">0</span><span class="f_CodeExample" style="color: #000000;">); </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> ShowCaret(Memo1.Handle); </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">end</span><span class="f_CodeExample" style="color: #000000;">; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">procedure</span><span class="f_CodeExample" style="color: #000000;"> TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Shift: TShiftState; X, Y: Integer); </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">begin</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> CreateCaret(Edit1.Handle, </span><span class="f_CodeExample" style="color: #800000;">0</span><span class="f_CodeExample" style="color: #000000;">, </span><span class="f_CodeExample" style="color: #800000;">10</span><span class="f_CodeExample" style="color: #000000;">, </span><span class="f_CodeExample" style="color: #800000;">4</span><span class="f_CodeExample" style="color: #000000;">); </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> ShowCaret(Edit1.Handle); </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">end</span><span class="f_CodeExample" style="color: #000000;">; </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">end</span><span class="f_CodeExample" style="color: #000000;">. </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;">{The form file source (*.dfm) }</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">object</span><span class="f_CodeExample" style="color: #000000;"> Form1: TForm1 </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Left = </span><span class="f_CodeExample" style="color: #800000;">192</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Top = </span><span class="f_CodeExample" style="color: #800000;">107</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Width = </span><span class="f_CodeExample" style="color: #800000;">544</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Height = </span><span class="f_CodeExample" style="color: #800000;">375</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Caption = </span><span class="f_CodeExample" style="color: #ff0000;">'Form1'</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Color = clBtnFace </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Font.Charset = </span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">DEFAULT</span><span class="f_CodeExample" style="color: #000000;">_CHARSET </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Font.Color = clWindowText </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Font.Height = -</span><span class="f_CodeExample" style="color: #800000;">11</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Font.</span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">Name</span><span class="f_CodeExample" style="color: #000000;"> = </span><span class="f_CodeExample" style="color: #ff0000;">'MS Sans Serif'</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Font.Style = [] </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> OldCreateOrder = False </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> PixelsPerInch = </span><span class="f_CodeExample" style="color: #800000;">96</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> TextHeight = </span><span class="f_CodeExample" style="color: #800000;">13</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">object</span><span class="f_CodeExample" style="color: #000000;"> Image1: TImage </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Left = </span><span class="f_CodeExample" style="color: #800000;">12</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Top = </span><span class="f_CodeExample" style="color: #800000;">4</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Width = </span><span class="f_CodeExample" style="color: #800000;">16</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Height = </span><span class="f_CodeExample" style="color: #800000;">16</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> AutoSize = True </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Picture.Data = </span><span class="f_CodeExample" style="color: #000080;">{ </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> 07544269746D6170B6020000424DB602000000000000B6000000280000001000 </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> 0000100000000100100000000000000200000000000000000000100000000000 </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> 000000000000000080000080000000808000800000008000800080800000C0C0 </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> FF00000000000000000000000000000000000000000000000000000000000000 </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> 0000000000000000000000000000000000000000000000000000000000000000 </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> 000000000000FF7FFF7FFF7FFF7F000000000000FF7FFF7FFF7FFF7FFF7FFF7F </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> 00000000FF7FFF7FFF7FFF7F000000000000FF7FFF7FFF7FFF7FFF7FFF7F0000 </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> 0000FF7FFF7FFF7FFF7FFF7F00000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000 </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> 000000000000FF7FFF7FFF7F0000000000000000FF7FFF7FFF7FFF7F00000000 </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> 0000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000 </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> 0000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000 </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> 0000000000000000FF7FFF7FFF7F00000000FF7FFF7FFF7FFF7F000000000000 </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> 00000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000000000000000 </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> 00000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F0000000000000000 </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> 000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7F0000000000000000 </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> 000000000000000000000000FF7FFF7FFF7FFF7FFF7F00000000000000000000 </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> 0000000000000000000000000000FF7FFF7FFF7FFF7F00000000000000000000 </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> 0000000000000000000000000000FF7FFF7FFF7F000000000000000000000000 </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> 00000000000000000000000000000000FF7F0000000000000000000000000000 </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000080;"> 0000}</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">end</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">object</span><span class="f_CodeExample" style="color: #000000;"> Memo1: TMemo </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Left = </span><span class="f_CodeExample" style="color: #800000;">12</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Top = </span><span class="f_CodeExample" style="color: #800000;">36</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Width = </span><span class="f_CodeExample" style="color: #800000;">149</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Height = </span><span class="f_CodeExample" style="color: #800000;">149</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Lines.Strings = (</span><span class="f_CodeExample" style="color: #ff0000;">'Memo1'</span><span class="f_CodeExample" style="color: #000000;">) </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> TabOrder = </span><span class="f_CodeExample" style="color: #800000;">0</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> OnMouseDown = Memo1MouseDown </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">end</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">object</span><span class="f_CodeExample" style="color: #000000;"> Edit1: TEdit </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Left = </span><span class="f_CodeExample" style="color: #800000;">220</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Top = </span><span class="f_CodeExample" style="color: #800000;">60</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Width = </span><span class="f_CodeExample" style="color: #800000;">121</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Height = </span><span class="f_CodeExample" style="color: #800000;">21</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> TabOrder = </span><span class="f_CodeExample" style="color: #800000;">1</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Text = </span><span class="f_CodeExample" style="color: #ff0000;">'Edit1'</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> OnMouseDown = Edit1MouseDown </span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">end</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">end</span></p>
</td>
</tr>
</tbody>
</table>
</div>
<p> </p>
<p style="text-align: right;"><span style="color: #ff6600; font-family: 'Courier New'; font-size: 8pt; font-weight: bold;"><span style="font-family: Arial Unicode MS;"> </span></span></p>
<p><span style="color: #000000; font-family: 'Times New Roman'; font-weight: bold;">Взято с сайта</span> https://www.swissdelphicenter.ch/en/tipsindex.php</p>
Как убрать публичное свойство компонента
2017-08-04T17:08:23+07:00
2017-08-04T17:08:23+07:00
https://delphi-hlp.ru/index.php/obshchie-voprosy-vcl/kak-ubrat-publichnoe-svojstvo-komponenta.html
Super User
toto44@inbox.ru
<p><span style="color: #000000; font-family: 'Times New Roman';">Из TForm property не убиpал, но из TWinControl было дело. А дело было так:</span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/obshchie-voprosy-vcl/kak-ubrat-publichnoe-svojstvo-komponenta.html">Подробнее...</a></p>
<p><span style="color: #000000; font-family: 'Times New Roman';">Из TForm property не убиpал, но из TWinControl было дело. А дело было так:</span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/obshchie-voprosy-vcl/kak-ubrat-publichnoe-svojstvo-komponenta.html">Подробнее...</a></p>
Как установить компонент от другой версии, если имеется только .DCU файл?
2017-08-04T17:07:05+07:00
2017-08-04T17:07:05+07:00
https://delphi-hlp.ru/index.php/obshchie-voprosy-vcl/kak-ustanovit-komponent-ot-drugoj-versii-esli-imeetsya-tolko-dcu-fajl.html
Super User
toto44@inbox.ru
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Никак. DCU файлы разных версий Дельфи несовместимы. Нужны либо исходники компонентов, либо надо просить у разработчика компиляцию для текущей версии Дельфи.</span></p>
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Никак. DCU файлы разных версий Дельфи несовместимы. Нужны либо исходники компонентов, либо надо просить у разработчика компиляцию для текущей версии Дельфи.</span></p>
Можно ли как-то уменьшить мерцание при перерисовке компонента?
2017-08-04T16:58:42+07:00
2017-08-04T16:58:42+07:00
https://delphi-hlp.ru/index.php/obshchie-voprosy-vcl/mozhno-li-kak-to-umenshit-mertsanie-pri-pererisovke-komponenta.html
Super User
toto44@inbox.ru
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Если добавить флаг csOpaque (непрозрачный) к свойству ControlStyle компонента</span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">- то фон компонента перерисовываться не будет.</span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/obshchie-voprosy-vcl/mozhno-li-kak-to-umenshit-mertsanie-pri-pererisovke-komponenta.html">Подробнее...</a></p>
<p><span style="font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Если добавить флаг csOpaque (непрозрачный) к свойству ControlStyle компонента</span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">- то фон компонента перерисовываться не будет.</span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/obshchie-voprosy-vcl/mozhno-li-kak-to-umenshit-mertsanie-pri-pererisovke-komponenta.html">Подробнее...</a></p>
Помещение VCL компонентов в область заголовка
2017-08-04T16:47:24+07:00
2017-08-04T16:47:24+07:00
https://delphi-hlp.ru/index.php/obshchie-voprosy-vcl/pomeshchenie-vcl-komponentov-v-oblast-zagolovka.html
Super User
toto44@inbox.ru
<p> </p>
<p> </p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Здесь есть хитрость:</span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Нужно разместить все необходимые элементы управления в отдельной форме, которая должна отслеживать перемещение и изменение размеров основной формы. Данная форма будет всегда находится над областью заголовка основной формы. </span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Нижеприведенный проект включает в себя 2 формы и выпадающий список (combobox). После запуска программы список появляется в области заголовка главной формы. Два ключевых вопроса: 1) организация перехвата сообщения WM_MOVE главной формы; и 2) возвращение фокуса в главную форму после того, как пользователь нажмет на каком-либо элементе управления, способным иметь фокус (например, TComboBox, TButton и др.) </span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/obshchie-voprosy-vcl/pomeshchenie-vcl-komponentov-v-oblast-zagolovka.html">Подробнее...</a></p>
<p> </p>
<p> </p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Здесь есть хитрость:</span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Нужно разместить все необходимые элементы управления в отдельной форме, которая должна отслеживать перемещение и изменение размеров основной формы. Данная форма будет всегда находится над областью заголовка основной формы. </span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;"> </span></p>
<p><span style="color: #000000; font-family: tahoma,arial,helvetica,sans-serif; font-size: 12pt;">Нижеприведенный проект включает в себя 2 формы и выпадающий список (combobox). После запуска программы список появляется в области заголовка главной формы. Два ключевых вопроса: 1) организация перехвата сообщения WM_MOVE главной формы; и 2) возвращение фокуса в главную форму после того, как пользователь нажмет на каком-либо элементе управления, способным иметь фокус (например, TComboBox, TButton и др.) </span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/obshchie-voprosy-vcl/pomeshchenie-vcl-komponentov-v-oblast-zagolovka.html">Подробнее...</a></p>
Процедуры и функции RX_lib
2017-08-03T17:08:33+07:00
2017-08-03T17:08:33+07:00
https://delphi-hlp.ru/index.php/obshchie-voprosy-vcl/protsedury-i-funktsii-rx-lib.html
Super User
toto44@inbox.ru
<p><span style="color: #000000; font-family: 'Times New Roman';"> </span></p>
<h1 style="text-align: center;"><span style="color: #000000; font-family: 'Times New Roman'; font-weight: bold;">AppUtils unit: </span></h1>
<p><span style="color: #000000; font-family: 'Times New Roman';"> </span><span style="color: #000000; font-family: 'Times New Roman';"> </span></p>
<p style="margin: 0px 0px 0px 24px;"><span style="color: #000000; font-family: 'Times New Roman'; font-weight: bold;">AppBroadcast </span><span style="color: #000000; font-family: 'Times New Roman';">- Функция посылает сообщение Msg всем формам приложения.</span></p>
<p style="margin: 0px 0px 0px 24px;"><span style="color: #000000; font-family: 'Times New Roman'; font-weight: bold;">FindForm </span><span style="color: #000000; font-family: 'Times New Roman';">- Функция перебирает формы приложения, проверяя для каждой из них, является ли она экземпляром класса FormClass</span></p>
<p style="margin: 0px 0px 0px 24px;"><span style="color: #000000; font-family: 'Times New Roman'; font-weight: bold;">FindShowForm </span><span style="color: #000000; font-family: 'Times New Roman';">- Функция перебирает формы приложения, проверяя для каждой из них, является ли она экземпляром класса FormClass</span></p>
<p style="margin: 0px 0px 0px 24px;"><span style="color: #000000; font-family: 'Times New Roman'; font-weight: bold;">GetDefaultIniName </span><span style="color: #000000; font-family: 'Times New Roman';">- Функция возвращает имя INI-файла "по умолчанию" для приложения.</span></p>
<p style="margin: 0px 0px 0px 24px;"><span style="color: #000000; font-family: 'Times New Roman'; font-weight: bold;">GetDefaultIniRegKey </span><span style="color: #000000; font-family: 'Times New Roman';">- Функция возвращает имя ключа регистрационной базы данных Windows (Registry) "по умолчанию" для приложения</span></p>
<p style="margin: 0px 0px 0px 24px;"><span style="color: #000000; font-family: 'Times New Roman'; font-weight: bold;">GetDefaultSection </span><span style="color: #000000; font-family: 'Times New Roman';">- Функция возвращает строку для указанной компоненты Component,</span></p>
<p style="margin: 0px 0px 0px 24px;"><span style="color: #000000; font-family: 'Times New Roman'; font-weight: bold;">GetUniqueFileNameInDir </span><span style="color: #000000; font-family: 'Times New Roman';">- Возвращает уникальное для заданного каталога имя файла, InstantiateForm- функция создает экземпляр формы типа FormClass</span></p>
<p style="margin: 0px 0px 0px 24px;"><span style="color: #000000; font-family: 'Times New Roman'; font-weight: bold;">ReadFormPlacement </span><span style="color: #000000; font-family: 'Times New Roman';">- Процедура ReadFormPlacement используется для восстановления формы</span></p>
<p style="margin: 0px 0px 0px 24px;"><span style="color: #000000; font-family: 'Times New Roman'; font-weight: bold;">RestoreFormPlacement </span><span style="color: #000000; font-family: 'Times New Roman';">- Процедура RestoreFormPlacement используется для восстановл. формы</span></p>
<p style="margin: 0px 0px 0px 24px;"><span style="color: #000000; font-family: 'Times New Roman'; font-weight: bold;">RestoreGridLayout </span><span style="color: #000000; font-family: 'Times New Roman';">- Восстанавливает из INI-файла ширины колонок компонент TCustomGrid</span></p>
<p style="margin: 0px 0px 0px 24px;"><span style="color: #000000; font-family: 'Times New Roman'; font-weight: bold;">RestoreMDIChildren </span><span style="color: #000000; font-family: 'Times New Roman';">- Создает и показывает MDIChild-формы</span></p>
<p style="margin: 0px 0px 0px 24px;"><span style="color: #000000; font-family: 'Times New Roman'; font-weight: bold;">SaveFormPlacement </span><span style="color: #000000; font-family: 'Times New Roman';">- Процедура используется для сохранения состояния формы</span></p>
<p style="margin: 0px 0px 0px 24px;"><span style="color: #000000; font-family: 'Times New Roman'; font-weight: bold;">SaveGridLayout</span></p>
<p style="margin: 0px 0px 0px 24px;"><span style="color: #000000; font-family: 'Times New Roman'; font-weight: bold;">SaveMDIChildren</span></p>
<p style="margin: 0px 0px 0px 24px;"><span style="color: #000000; font-family: 'Times New Roman'; font-weight: bold;">ShowDialog </span><span style="color: #000000; font-family: 'Times New Roman';">- Создание и модальное исполнение диалога</span></p>
<p style="margin: 0px 0px 0px 24px;"><span style="color: #000000; font-family: 'Times New Roman'; font-weight: bold;">WriteFormPlacement </span><span style="color: #000000; font-family: 'Times New Roman';">- Процедура используется для сохранения состояния формы,</span></p>
<p><span style="color: #000000; font-family: 'Times New Roman';"> </span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/obshchie-voprosy-vcl/protsedury-i-funktsii-rx-lib.html">Подробнее...</a></p>
<p><span style="color: #000000; font-family: 'Times New Roman';"> </span></p>
<h1 style="text-align: center;"><span style="color: #000000; font-family: 'Times New Roman'; font-weight: bold;">AppUtils unit: </span></h1>
<p><span style="color: #000000; font-family: 'Times New Roman';"> </span><span style="color: #000000; font-family: 'Times New Roman';"> </span></p>
<p style="margin: 0px 0px 0px 24px;"><span style="color: #000000; font-family: 'Times New Roman'; font-weight: bold;">AppBroadcast </span><span style="color: #000000; font-family: 'Times New Roman';">- Функция посылает сообщение Msg всем формам приложения.</span></p>
<p style="margin: 0px 0px 0px 24px;"><span style="color: #000000; font-family: 'Times New Roman'; font-weight: bold;">FindForm </span><span style="color: #000000; font-family: 'Times New Roman';">- Функция перебирает формы приложения, проверяя для каждой из них, является ли она экземпляром класса FormClass</span></p>
<p style="margin: 0px 0px 0px 24px;"><span style="color: #000000; font-family: 'Times New Roman'; font-weight: bold;">FindShowForm </span><span style="color: #000000; font-family: 'Times New Roman';">- Функция перебирает формы приложения, проверяя для каждой из них, является ли она экземпляром класса FormClass</span></p>
<p style="margin: 0px 0px 0px 24px;"><span style="color: #000000; font-family: 'Times New Roman'; font-weight: bold;">GetDefaultIniName </span><span style="color: #000000; font-family: 'Times New Roman';">- Функция возвращает имя INI-файла "по умолчанию" для приложения.</span></p>
<p style="margin: 0px 0px 0px 24px;"><span style="color: #000000; font-family: 'Times New Roman'; font-weight: bold;">GetDefaultIniRegKey </span><span style="color: #000000; font-family: 'Times New Roman';">- Функция возвращает имя ключа регистрационной базы данных Windows (Registry) "по умолчанию" для приложения</span></p>
<p style="margin: 0px 0px 0px 24px;"><span style="color: #000000; font-family: 'Times New Roman'; font-weight: bold;">GetDefaultSection </span><span style="color: #000000; font-family: 'Times New Roman';">- Функция возвращает строку для указанной компоненты Component,</span></p>
<p style="margin: 0px 0px 0px 24px;"><span style="color: #000000; font-family: 'Times New Roman'; font-weight: bold;">GetUniqueFileNameInDir </span><span style="color: #000000; font-family: 'Times New Roman';">- Возвращает уникальное для заданного каталога имя файла, InstantiateForm- функция создает экземпляр формы типа FormClass</span></p>
<p style="margin: 0px 0px 0px 24px;"><span style="color: #000000; font-family: 'Times New Roman'; font-weight: bold;">ReadFormPlacement </span><span style="color: #000000; font-family: 'Times New Roman';">- Процедура ReadFormPlacement используется для восстановления формы</span></p>
<p style="margin: 0px 0px 0px 24px;"><span style="color: #000000; font-family: 'Times New Roman'; font-weight: bold;">RestoreFormPlacement </span><span style="color: #000000; font-family: 'Times New Roman';">- Процедура RestoreFormPlacement используется для восстановл. формы</span></p>
<p style="margin: 0px 0px 0px 24px;"><span style="color: #000000; font-family: 'Times New Roman'; font-weight: bold;">RestoreGridLayout </span><span style="color: #000000; font-family: 'Times New Roman';">- Восстанавливает из INI-файла ширины колонок компонент TCustomGrid</span></p>
<p style="margin: 0px 0px 0px 24px;"><span style="color: #000000; font-family: 'Times New Roman'; font-weight: bold;">RestoreMDIChildren </span><span style="color: #000000; font-family: 'Times New Roman';">- Создает и показывает MDIChild-формы</span></p>
<p style="margin: 0px 0px 0px 24px;"><span style="color: #000000; font-family: 'Times New Roman'; font-weight: bold;">SaveFormPlacement </span><span style="color: #000000; font-family: 'Times New Roman';">- Процедура используется для сохранения состояния формы</span></p>
<p style="margin: 0px 0px 0px 24px;"><span style="color: #000000; font-family: 'Times New Roman'; font-weight: bold;">SaveGridLayout</span></p>
<p style="margin: 0px 0px 0px 24px;"><span style="color: #000000; font-family: 'Times New Roman'; font-weight: bold;">SaveMDIChildren</span></p>
<p style="margin: 0px 0px 0px 24px;"><span style="color: #000000; font-family: 'Times New Roman'; font-weight: bold;">ShowDialog </span><span style="color: #000000; font-family: 'Times New Roman';">- Создание и модальное исполнение диалога</span></p>
<p style="margin: 0px 0px 0px 24px;"><span style="color: #000000; font-family: 'Times New Roman'; font-weight: bold;">WriteFormPlacement </span><span style="color: #000000; font-family: 'Times New Roman';">- Процедура используется для сохранения состояния формы,</span></p>
<p><span style="color: #000000; font-family: 'Times New Roman';"> </span></p>
<p class="feed-readmore"><a target="_blank" href ="/index.php/obshchie-voprosy-vcl/protsedury-i-funktsii-rx-lib.html">Подробнее...</a></p>