Tanulás a kurzor alatt lévő képernyő részének növelésére
Ebben a leckében szeretném elmondani, hogyan lehet növelni a képernyő bizonyos területét a Delphi egér kurzorterületén. Nos, futtasd a Delphit, szükségünk van: a További lapon, a TackBar (Win32), az Időzítő (System) elemen levő képeket az űrlapon dobjuk le. Most állítsuk be a TrackBar komponens "Min" tulajdonságát 1-re, és állítsuk be az Időzítő összetevő "Interval" tulajdonságát 1. Minden alapművelet az Időzítőben történik, így létrehozzuk az OnTime eseménykezelőt. Az alábbiakban az esemény kódja látható.
eljárás TForm1.Timer1Timer (Sender: TObject);
var
helyes, pontos, posforme: TRect;
iwidth, iheight, dmx, dmy: Integer;
itmpx, itmpy: Valódi;
c: TCanvas;
kurzor: TPoint;
// posform egy téglalapot képvisel
// koordináták formája (képvezérlés).
posforme: = rect (form1.left,
form1.top,
form1.left + form1.width,
form1.top + form1.height);
// A nagyított képernyő megjelenítése
// ha a kurzor az űrlapon kívül van.
ha nem ptinrect (posforme, cursor) akkor
A forrás letölthető innen: