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

UptoLike

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

Рубрика:

if Assigned (FOnClick) then FOnClick (Self);

end;

Ɇɟɬɨɞ Click ɩɪɟɞɧɚɡɧɚɱɟɧ ɞɥɹ ɜɵɡɨɜɚ ɩɨɥɶɡɨɜɚɬɟɥɶɫɤɨɝɨ ɨɛɪɚɛɨɬ-

ɱɢɤɚ ɫɨɛɵɬɢɹ, ɟɫɥɢ ɨɧ ɭɤɚɡɚɧ ɜ ɩɪɨɝɪɚɦɦɟ. Ɋɚɡɭɦɟɟɬɫɹ, Click ɬɚɤɠɟ ɞɨɥ-

ɠɟɧ ɛɵɬɶ ɝɞɟ-ɬɨ ɜɵɡɜɚɧ. ȼ ɫɥɭɱɚɟ TControl ɦɟɬɨɞ Click ɜɵɡɵɜɚɟɬɫɹ

ɜɧɭɬɪɢ ɨɛɪɚɛɨɬɱɢɤɚ Windows-ɫɨɨɛɳɟɧɢɹ

WM_MOUSEDOWN. ɇɨ ɦɨɝɭɬ ɛɵɬɶ ɢ

ɞɪɭɝɢɟ ɜɚɪɢɚɧɬɵ. Ȼɨɥɟɟ ɩɨɞɪɨɛɧɭɸ ɢɧɮɨɪɦɚɰɢɸ ɦɨɠɧɨ ɩɨɥɭɱɢɬɶ ɩɪɢ ɢɡɭ-

ɱɟɧɢɢ ɦɨɞɭɥɹ Controls.pas ɛɢɛɥɢɨɬɟɤɢ VCL (ɝɞɟ ɨɩɢɫɚɧ ɤɥɚɫɫ

TControl), ɚ ɬɚɤɠɟ ɜ [1–4].

3. ɉɪɨɟɤɬɢɪɨɜɚɧɢɟ ɤɨɦɩɨɧɟɧɬɚ

3.1. ɗɬɚɩɵ ɩɪɨɟɤɬɢɪɨɜɚɧɢɹ

Ɋɚɫɫɦɨɬɪɢɦ ɩɪɨɰɟɫɫ ɫɨɡɞɚɧɢɹ ɤɨɦɩɨɧɟɧɬɚ ɧɚ ɨɱɟɧɶ ɩɪɨɫɬɨɦ ɩɪɢɦɟɪɟ

ɫɨɡɞɚɧɢɹ ɩɨɬɨɦɤɚ ɤɨɦɩɨɧɟɧɬɚ Button (Ʉɧɨɩɤɚ) [2].

ɉɪɨɰɟɫɫ, ɨɩɢɫɚɧɧɵɣ ɞɚɥɟɟ, ɦɨɠɧɨ ɢɫɩɨɥɶɡɨɜɚɬɶ ɞɥɹ ɪɚɡɪɚɛɨɬɤɢ ɥɸ-

ɛɨɝɨ ɤɨɦɩɨɧɟɧɬɚ Delphi, ɧɟɡɚɜɢɫɢɦɨ ɨɬ ɟɝɨ ɫɥɨɠɧɨɫɬɢ.

1. ɉɪɨɰɟɫɫ ɧɚɱɢɧɚɟɬɫɹ ɫ ɫɨɡɞɚɧɢɹ ɤɚɬɚɥɨɝɚ, ɜ ɤɨɬɨɪɵɣ ɛɭɞɟɬ ɡɚɩɢɫɚɧ

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

ɦɨɞɭɥɟɣ Delphi ɫɩɨɫɨɛɨɦ, ɨɱɟɧɶ ɩɨɯɨɠɢɦ ɧɚ ɦɨɞɭɥɢ ɮɨɪɦ Delphi ɫ ɨɛɴɹɜ-

ɥɟɧɢɟɦ ɤɥɚɫɫɚ ɞɥɹ ɤɨɦɩɨɧɟɧɬɚ, ɩɨɹɜɥɹɸɳɢɦɫɹ ɜ ɪɚɡɞɟɥɟ ɢɧɬɟɪɮɟɣɫɚ ɢ ɨɩ-

ɪɟɞɟɥɟɧɢɟɦ ɦɟɬɨɞɨɜ, ɤɨɬɨɪɵɟ ɩɨɹɜɥɹɸɬɫɹ ɜ ɪɚɡɞɟɥɟ ɪɟɚɥɢɡɚɰɢɢ.

2. ɋɥɟɞɭɸɳɢɣ ɲɚɝ ɡɚɤɥɸɱɚɟɬɫɹ ɜ ɫɨɡɞɚɧɢɢ ɦɨɞɭɥɹ ɤɨɦɩɨɧɟɧɬɚ. ɗɬɨ

ɦɨɠɧɨ ɜɵɩɨɥɧɢɬɶ ɥɢɛɨ ɜɪɭɱɧɭɸ, ɥɢɛɨ ɡɚɞɟɣɫɬɜɨɜɚɜ ɗɤɫɩɟɪɬɚ ɤɨɦɩɨɧɟɧ-

ɬɨɜ (Component Expert).

3. ɉɨɫɥɟ ɬɨɝɨ ɤɚɤ ɨɩɪɟɞɟɥɟɧɵ ɛɚɡɨɜɵɟ ɷɥɟɦɟɧɬɵ ɦɨɞɭɥɹ, ɜɵɩɨɥɧɹɟɬɫɹ

ɫɥɟɞɭɸɳɢɣ ɲɚɝ, ɡɚɤɥɸɱɚɸɳɢɣɫɹ ɜ ɨɛɴɹɜɥɟɧɢɢ ɤɥɚɫɫɚ ɢ ɧɚɩɢɫɚɧɢɢ ɩɨɞ-

ɞɟɪɠɢɜɚɸɳɢɯ ɦɟɬɨɞɨɜ.