═εΓα ⌠ε≡∞α Ω≤≡±ε≡α

╩αΩ ±ετΣα≥ⁿ Φ Φ±∩εδⁿτεΓα≥ⁿ φεΓ≤■ ⌠ε≡∞≤ Ω≤≡±ε≡α?

─δ ²≥επε φσεß⌡εΣΦ∞ε ±ετΣα≥ⁿ φεΓ√Θ Ω≤≡±ε≡(√) Γ ∩εΣ⌡εΣ ∙σ∞ Σδ ²≥επε ≡σΣαΩ≥ε≡σ ≡σ±≤≡±εΓ (φα∩≡Φ∞σ≡ ßε≡δαφΣεΓ±ΩΦΘ Resource Workshop). ╧≡Φ ²≥ε∞ φαΣε εß≡α≥Φ≥ⁿ ΓφΦ∞αφΦσ φα ≥ε ≈≥ε Φ∞σφα Γ ≡σΣαΩ≥ε≡σ ≡σ±≤≡±εΓ (ε±εßσφφε Γ ≥ε∞, Ωε≥ε≡√Θ ∩ε±≥αΓδ σ≥± ± Delphi) φαΣε ∩Φ±α≥ⁿ ταπδαΓφ√∞Φ ß≤ΩΓα∞Φ. ╧ε±δσ ²≥επε "∩σ≡σΣ Γφ≤≥≡σφφΦ∞ ≤∩ε≥≡σßδσφΦσ∞" (δ≤≈°σ Γ±σπε Γ ∩≡ε÷σΣ≤≡σ εß≡αßε≥ΩΦ ±εß√≥Φ OnCreate πδαΓφεΘ ⌠ε≡∞√) φσεß⌡εΣΦ∞ε ταπ≡≤τΦ≥ⁿ Ω≤≡±ε≡(√) Φτ res-⌠αΘδα ΩαΩ ≤Ωαταφε φΦµσ:


{$I CURSOR.RES}

Screen.Cursors[1] := LoadCursor(hInstance, 'CURSOR_1');
Button1.Cursor := 1;

╬ß≡α≥Φ≥σ ΓφΦ∞αφΦσ φα ≥ε, ≈≥ε ±Φ±≥σ∞φ√σ Ω≤≡±ε≡√ Γ Screen.Cursors φα≈Φφα■≥± ± φ≤δ Φ ΦΣ≤≥ Γ ∞Φφ≤±εΓε∞ φα∩≡αΓδσφΦΦ. ╧ε²≥ε∞≤ ∩≡Φ ±ετΣαφΦΦ φεΓ√⌡ Ω≤≡±ε≡εΓ δ≤≈°σ Γ√ßΦ≡α≥ⁿ ∩εδεµΦ≥σδⁿφ√σ ≈Φ±δα (δ≤≈°σ φσ ±δΦ°Ωε∞ ßεδⁿ°Φσ :-)).
┴εδσσ ≤Σεßφ√Θ Γα≡Φαφ≥ - ²≥ε εß· ΓΦ≥ⁿ ∩ε±≥ε φφ≤■ (≡αΓφ≤■ φα∩≡Φ∞σ≡ 12):


const
   CUR_HAND = 12;

...

Screen.Cursors[CUR_HAND] := LoadCursor(hInstance, 'CURSOR_HAND');
Button1.Cursor := CUR_HAND;

╤εΓσ≥√ φα≈Φφα■∙Φ∞