Există programe care vă permit să creșteți o anumită zonă a ecranului în zona cursorului mouse-ului. Avem nevoie de o formă, de un control al imaginii, de un panou, de temporizator și de un cursor. Adăugați o imagine și un panou la formular. Am plasat restul comenzilor pe panou. Glisorul va schimba mărirea ecranului. Acum, totul este gata pentru programare. Dar, în prealabil, trebuie să schimbați unele proprietăți ale controalelor. Proprietatea min componenta trackbar trebuie să fie egală cu 1, proprietatea Interval de cronometrul și nu egal cu 1. Acum scrie codul în sine, toată acțiunea principală va avea loc numai atunci când are loc un eveniment, OnTimer, deci aduce doar handler lui:
procedura TForm1.Timer1Timer (expeditor: TObject);
Dacă nu IsIconic (Application.Handle) începe apoi
// PosForm reprezintă un dreptunghi cu
// coordonatele formei (controlul imaginii).
// dacă cursorul este în afara formularului.
Dacă nu începe PtInRect (PosForme, Kursor)
// Apoi codul poate fi folosit pentru a mări selecția
// părți ale ecranului. Cu modificări minore este posibil
// utilizați pentru a reduce
iTmpX: = iWidth / (TrackBar1.Poziție * 4);
iTmpY: = iHeight / (TrackBar1.Poziția * 4);
// Obțineți mânerul ferestrei desktop.
// Transferați o parte din imaginea ferestrei în TImage.
// Asigurați-vă că procesați toate mesajele Windows.
Așa cum sa dovedit, totul nu este atât de dificil, este un cod gata de utilizare pe care îl puteți aplica cu succes în programele dvs.!
Mikhail Khristosenko. Creșteți suprafața ecranului folosind Delphi.
Articole similare
Trimiteți-le prietenilor: