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

UptoLike

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

Рубрика:

ɤɨɦɩɨɧɟɧɬɵ ɜ ɩɚɤɟɬ, ɤɨɦɩɢɥɢɪɨɜɚɬɶ ɩɚɤɟɬɵ. Ɋɟɞɚɤɬɨɪ ɩɚɤɟɬɨɜ (ɪɢɫ. 7) ɚɜ-

ɬɨɦɚɬɢɱɟɫɤɢ ɩɨɹɜɢɬɫɹ, ɟɫɥɢ ɡɚɝɪɭɡɢɬɶ ɩɚɤɟɬ DPK ɜ Delphi ɱɟɪɟɡ ɦɟɧɸ File

|Open Project. Ɍɚɤɠɟ ɨɧ ɛɭɞɟɬ ɜɵɡɜɚɧ, ɟɫɥɢ ɜɵɛɪɚɬɶ ɩɪɢ ɭɫɬɚɧɨɜɤɟ ɩɚɤɟɬɚ

ɜɤɥɚɞɤɭ Into Existing Package.

Ɋɢɫ. 7. Ɋɟɞɚɤɬɨɪ ɩɚɤɟɬɨɜ

ȼ ɨɤɧɟ ɪɟɞɚɤɬɨɪɚ ɩɪɟɞɫɬɚɜɥɟɧ ɮɚɣɥ DPK, ɤɨɬɨɪɵɣ ɜ ɧɚɲɟɦ ɩɪɢɦɟɪɟ ɢɦɟɟɬ

ɜɢɞ:

package my_butt_pack;

{$R *.res}

{Ⱦɥɹ ɫɨɤɪɚɳɟɧɢɹ ɨɛɴɟɦɚ ɨɩɰɢɢ ɤɨɦɩɢɥɹɰɢɢ ɨɩɭɳɟɧɵ}

requires // ɬɪɟɛɭɟɦɵɟ ɛɢɛɥɢɨɬɟɤɢ

rtl, vcl;

contains // ɫɨɞɟɪɠɚɧɢɟ ɩɚɤɟɬɚ

UMyButton in 'UMyButton.pas';

end.

Ʉɧɨɩɤɚ Compile ɩɨɡɜɨɥɹɟɬ ɨɬɤɨɦɩɢɥɢɪɨɜɚɬɶ ɬɟɤɭɳɢɣ ɩɚɤɟɬ (ɫɟɤɰɢɹ

Contains) ɢ ɭɫɬɚɧɨɜɢɬɶ ɟɝɨ ɜ ɫɪɟɞɭ ɩɪɨɝɪɚɦɦɢɪɨɜɚɧɢɹ ɤɚɤ ɩɚɤɟɬ ɜɪɟɦɟɧɢ ɩɪɨ-

ɟɤɬɢɪɨɜɚɧɢɹ (ɤɧɨɩɤɚ Install). Ʉɧɨɩɤɚ Add ɞɨɛɚɜɥɹɟɬ ɦɨɞɭɥɶ ɜ ɩɚɤɟɬ, ɚ Remove

ɭɞɚɥɹɟɬ ɜɵɞɟɥɟɧɧɵɣ ɦɨɞɭɥɶ ɢɡ ɩɚɤɟɬɚ. Ʉɧɨɩɤɚ Option ɨɬɨɛɪɚɠɚɟɬ ɫɬɚɧɞɚɪɬ-

ɧɨɟ ɨɤɧɨ ɨɩɰɢɣ ɩɪɨɟɤɬɨɜ ɢ ɩɚɤɟɬɨɜ. Ɋɚɡɭɦɟɟɬɫɹ, ɩɨɫɥɟɞɧɢɟ ɞɟɣɫɬɜɢɹ ɥɟɝɤɨ

ɜɵɩɨɥɧɢɬɶ ɢ ɨɛɵɱɧɵɦ ɪɟɞɚɤɬɢɪɨɜɚɧɢɟɦ ɮɚɣɥɚ, ɧɚɩɪɢɦɟɪ, ɜ NotePad.