Разработка компонентов в DELPHI. Вощинская Г.Э. - 32 стр.

UptoLike

Составители: 

interface
uses SysUtils, WinTypes, WinProcs, Messages, Classes,
Graphics, Controls, Forms, Dialogs, StdCtrls,
UMyButton;
type
TForml = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ɉɪɢɜɚɬɧɵɟ ɨɛɴɹɜɥɟɧɢɹ }
public
{Ɉɛɳɟɞɨɫɬɭɩɧɵɟ ɨɛɴɹɜɥɟɧɢɹ J
BtnTest : TMyButton;
end;
var
Forml: TForml;
implementation
{$R *.DFM}
procedure TForml.FormCreate(Sender: TObject);
begin
BtnTest := TMyButton.Create( Self ) ;
BtnTest.Parent := Self;
BtnTest.Left := 100;
BtnTest.Top := 100;
BtnTest.Caption := 'MyButton';
end;
end.
32
ɉɟɪɜɵɣ ɲɚɝ ɞɨɫɬɚɬɨɱɧɨ ɩɪɨɫɬ ɢ ɰɟɥɟɧɚɩɪɚɜɥɟɧ. Ɍɚɤ ɤɚɤ ɦɵ ɛɭɞɟɦ
ɫɫɵɥɚɬɶɫɹ ɧɚ ɬɢɩ ɧɨɜɨɝɨ ɤɨɦɩɨɧɟɧɬɚ, ɬɨ ɧɭɠɧɨ ɜɤɥɸɱɢɬɶ ɷɬɨɬ ɦɨɞɭɥɶ ɤɨɦ-
ɩɨɧɟɧɬɚ ɜ uses-ɪɚɡɞɟɥ ɦɨɞɭɥɹ ɤɨɦɩɨɧɟɧɬɚ. ȼɬɨɪɨɣ ɲɚɝ ɫɜɹɡɚɧ ɫ ɞɨɛɚɜɥɟɧɢ-
ɟɦ ɩɨɥɹ ɨɛɴɟɤɬɚ ɜ ɪɚɡɞɟɥ public ɤɥɚɫɫɚ ɮɨɪɦɵ. ɉɨɥɟ ɨɛɴɟɤɬɚ ɛɭɞɟɬ ɢɫ-
ɩɨɥɶɡɨɜɚɬɶɫɹ ɞɥɹ ɫɫɵɥɤɢ ɧɚ ɫɨɡɞɚɜɚɟɦɵɣ ɤɨɦɩɨɧɟɧɬ, ɢ, ɫɥɟɞɨɜɚɬɟɥɶɧɨ, ɬɢ-
ɩɨɦ ɩɨɥɹ ɛɭɞɟɬ ɜɧɨɜɶ ɫɨɡɞɚɧɧɵɣ ɤɨɦɩɨɧɟɧɬɧɵɣ ɤɥɚɫɫ. ȼ ɬɟɤɭɳɟɣ ɬɟɫɬɨɜɨɣ
ɩɪɨɝɪɚɦɦɟ ɩɨɥɟ BtnTest ɨɛɴɹɜɥɹɟɬɫɹ ɬɢɩɨɦ TMyButton.