În această lecție vreau să vă spun cum în Delphi să crească o anumită zonă a ecranului în zona cursorului mouse-ului. Ei bine, rulați Delphi, avem nevoie de: Imagine din fila Suplimentar, TackBar (Win32), Timer (System) drop aceste componente pe formular. Acum, să setăm proprietatea "Min" a componentei TrackBar la 1 și să setăm proprietatea "Interval" a componentei Timer la 1. Toate acțiunile de bază au loc în Timer, așa că vom crea manualul de evenimente OnTime pe acesta. Mai jos este codul pentru acest eveniment.
procedura TForm1.Timer1Timer (expeditor: TObject);
var
srect, drect, posforme: TRect;
iwidth, iheight, dmx, dmy: Integer;
itmpx, itmpy: Real;
c: TCanvas;
kursor: TPoint;
// posform reprezintă un dreptunghi cu
// coordonează formularul (controlul imaginii).
posforme: = rect (form1.left,
form1.top,
form1.left + form1.width,
form1.top + form1.height);
// Afișați ecranul mărit
// dacă cursorul este în afara formularului.
dacă nu ptinrect (posforme, kursor) atunci
Descărcați sursa poate fi descărcată mai jos: