Sender
Delphi — среда быстрой разработки, где в качестве языка программирования используется Object Pascal. На сегодняшний день позволяет разрабатывать ПО для Microsoft Windows, Mac OS, iOS и Android и входит в состав Embarcadero RAD Studio
https://delphi-hlp.ru/index.php/ob-ektnoe-orientirovanie/sender.feed
2022-09-13T05:00:47+07:00
Delphi help
info@delphi-hlp.ru
Joomla! - Open Source Content Management
Работа с Sender
2013-08-19T16:59:11+07:00
2013-08-19T16:59:11+07:00
https://delphi-hlp.ru/index.php/ob-ektnoe-orientirovanie/sender/rabota-s-sender.html
Super User
toto44@inbox.ru
<p> </p>
<div style="text-align: justify; text-indent: 0px; margin: 7px 0px; padding: 0px;">
<table style="border-bottom: #c0c0c0 1px solid; border-left: #000000 1px solid; background-color: #ffffc4; border-spacing: 0px; border-top: #000000 1px solid; border-right: #c0c0c0 1px solid;" border="1" cellspacing="0" cellpadding="5" bgcolor="#ffffc4">
<tbody>
<tr align="left" valign="top">
<td style="border-bottom: #000000 1px solid; border-left: #c0c0c0 1px solid; border-top: #c0c0c0 1px solid; border-right: #000000 1px solid;">
<p style="text-align: justify;"><span style="font-family: 'Times New Roman'; color: #000000; font-weight: bold;">Code:</span></p>
</td>
</tr>
<tr align="left">
<td style="border-bottom: #000000 1px solid; border-left: #c0c0c0 1px solid; border-top: #c0c0c0 1px solid; border-right: #000000 1px solid;">
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">unit</span><span class="f_CodeExample" style="color: #000000;"> TestInputForm;</span></p>
<p class="p_CodeExample"> </p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">interface</span></p>
<p class="p_CodeExample"> </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;">StdCtrls, DdhInpuB;</span></p>
<p class="p_CodeExample"> </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;"> Edit1: TEdit;</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Label1: TLabel;</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> DdhInputButton1: TDdhInputButton;</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> DdhInputButton2: TDdhInputButton;</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> DdhInputButton3: TDdhInputButton;</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;"> DdhInputButtonClick(Sender: TObject);</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: #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: #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"> </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"> </p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">implementation</span></p>
<p class="p_CodeExample"> </p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #0000ff;">{$R *.DFM}</span></p>
<p class="p_CodeExample"> </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.DdhInputButtonClick(Sender: TObject);</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;">ShowMessage (</span><span class="f_CodeExample" style="color: #ff0000;">'You have clicked the '</span><span class="f_CodeExample" style="color: #000000;"> +</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> (Sender </span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">as</span><span class="f_CodeExample" style="color: #000000;"> TButton).</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;">','#13</span><span class="f_CodeExample" style="color: #000000;"> +</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #ff0000;">'having the caption '</span><span class="f_CodeExample" style="color: #000000;"> +</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> (Sender </span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">as</span><span class="f_CodeExample" style="color: #000000;"> TButton).Caption);</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"> </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> </p>
<p style="text-align: right;"><span style="font-family: 'Arial Unicode MS', 'Lucida Sans Unicode', 'Arial'; color: #ff6600; font-size: 8pt; font-weight: bold;"> </span></p>
<p> </p>
<p><span style="font-family: 'Times New Roman'; color: #000000; font-weight: bold;">Взято с </span>https://delphiworld.narod</p>
<p> </p>
<div style="text-align: justify; text-indent: 0px; margin: 7px 0px; padding: 0px;">
<table style="border-bottom: #c0c0c0 1px solid; border-left: #000000 1px solid; background-color: #ffffc4; border-spacing: 0px; border-top: #000000 1px solid; border-right: #c0c0c0 1px solid;" border="1" cellspacing="0" cellpadding="5" bgcolor="#ffffc4">
<tbody>
<tr align="left" valign="top">
<td style="border-bottom: #000000 1px solid; border-left: #c0c0c0 1px solid; border-top: #c0c0c0 1px solid; border-right: #000000 1px solid;">
<p style="text-align: justify;"><span style="font-family: 'Times New Roman'; color: #000000; font-weight: bold;">Code:</span></p>
</td>
</tr>
<tr align="left">
<td style="border-bottom: #000000 1px solid; border-left: #c0c0c0 1px solid; border-top: #c0c0c0 1px solid; border-right: #000000 1px solid;">
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">unit</span><span class="f_CodeExample" style="color: #000000;"> TestInputForm;</span></p>
<p class="p_CodeExample"> </p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">interface</span></p>
<p class="p_CodeExample"> </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;">StdCtrls, DdhInpuB;</span></p>
<p class="p_CodeExample"> </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;"> Edit1: TEdit;</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> Label1: TLabel;</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> DdhInputButton1: TDdhInputButton;</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> DdhInputButton2: TDdhInputButton;</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> DdhInputButton3: TDdhInputButton;</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;"> DdhInputButtonClick(Sender: TObject);</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: #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: #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"> </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"> </p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #008000; font-weight: bold;">implementation</span></p>
<p class="p_CodeExample"> </p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #0000ff;">{$R *.DFM}</span></p>
<p class="p_CodeExample"> </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.DdhInputButtonClick(Sender: TObject);</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;">ShowMessage (</span><span class="f_CodeExample" style="color: #ff0000;">'You have clicked the '</span><span class="f_CodeExample" style="color: #000000;"> +</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> (Sender </span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">as</span><span class="f_CodeExample" style="color: #000000;"> TButton).</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;">','#13</span><span class="f_CodeExample" style="color: #000000;"> +</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #ff0000;">'having the caption '</span><span class="f_CodeExample" style="color: #000000;"> +</span></p>
<p class="p_CodeExample"><span class="f_CodeExample" style="color: #000000;"> (Sender </span><span class="f_CodeExample" style="color: #008000; font-weight: bold;">as</span><span class="f_CodeExample" style="color: #000000;"> TButton).Caption);</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"> </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> </p>
<p style="text-align: right;"><span style="font-family: 'Arial Unicode MS', 'Lucida Sans Unicode', 'Arial'; color: #ff6600; font-size: 8pt; font-weight: bold;"> </span></p>
<p> </p>
<p><span style="font-family: 'Times New Roman'; color: #000000; font-weight: bold;">Взято с </span>https://delphiworld.narod</p>