Sign in Join
Wiki copytemporary

Cursor/fi: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

OldNewLine
11Kohdistin eli kursorin määritellään Cursor - [[Property|ominaisuudella]] TCursor objektilla.
22
33## Luettelo kohdistimen vakion nimistä
44
5-<table border="1">
6-
7-<tr>
8-
9-<td>
10-
115Vakion nimi
126
13-</td>
14-
15-<td>
16-
177Kokonaisluku arvo
188
19-</td>
20-
21-<td>
22-
239Kuvio
2410
25-</td>
26-
27-</tr>
28-
29-<tr>
30-
31-<td>
32-
3311crDefault
3412
35-</td>
36-
37-<td align="right">
38-
39130
4014
41-</td>
42-
43-<td>
44-
45-<figure>
46-<img src="crArrow.png" title="crArrow.png" />
47-<figcaption>crArrow.png</figcaption>
48-</figure>
49-
50-</td>
51-
52-</tr>
53-
54-<tr>
55-
56-<tr>
57-
58-<td>
15+![](/wiki-images/b/b8/CrArrow.png)
5916
6017crNone
6118
62-</td>
63-
64-<td align="right">
65-
6619-1
6720
68-</td>
69-
70-<td>
71-
7221Näkymätön hiiren osoitin
7322
74-</td>
75-
76-</tr>
77-
78-<tr>
79-
80-<tr>
81-
82-<td>
83-
8423crArrow
8524
86-</td>
87-
88-<td align="right">
89-
9025-2
9126
92-</td>
93-
94-<td>
95-
96-<figure>
97-<img src="crArrow.png" title="crArrow.png" />
98-<figcaption>crArrow.png</figcaption>
99-</figure>
100-
101-</td>
102-
103-</tr>
104-
105-<tr>
106-
107-<td>
27+![](/wiki-images/b/b8/CrArrow.png)
10828
10929crCross
11030
111-</td>
112-
113-<td align="right">
114-
11531-3
11632
117-</td>
118-
119-<td>
120-
121-<figure>
122-<img src="crCross.png" title="crCross.png" />
123-<figcaption>crCross.png</figcaption>
124-</figure>
125-
126-</td>
127-
128-</tr>
129-
130-<tr>
131-
132-<td>
33+![](/wiki-images/4/4f/CrCross.png)
13334
13435crIBeam
13536
136-</td>
137-
138-<td align="right">
139-
14037-4
14138
142-</td>
143-
144-<td>
145-
146-<figure>
147-<img src="crIBeam.png" title="crIBeam.png" />
148-<figcaption>crIBeam.png</figcaption>
149-</figure>
150-
151-</td>
152-
153-</tr>
154-
155-<tr>
156-
157-<td>
39+![](/wiki-images/3/32/CrIBeam.png)
15840
15941crSize
16042
161-</td>
162-
163-<td align="right">
164-
16543-22
16644
167-</td>
168-
169-<td>
170-
171-<figure>
172-<img src="crSize.png" title="crSize.png" />
173-<figcaption>crSize.png</figcaption>
174-</figure>
175-
176-</td>
177-
178-</tr>
179-
180-<tr>
181-
182-<td>
45+![](/wiki-images/1/16/CrSize.png)
18346
18447crSizeNESW
18548
186-</td>
187-
188-<td align="right">
189-
19049-6
19150
192-</td>
193-
194-<td>
195-
196-<figure>
197-<img src="crSizeNESW.png" title="crSizeNESW.png" />
198-<figcaption>crSizeNESW.png</figcaption>
199-</figure>
200-
201-</td>
202-
203-</tr>
204-
205-<tr>
206-
207-<td>
51+![](/wiki-images/b/ba/CrSizeNESW.png)
20852
20953crSizeNS
21054
211-</td>
212-
213-<td align="right">
214-
21555-7
21656
217-</td>
218-
219-<td>
220-
221-<figure>
222-<img src="crSizeNS.png" title="crSizeNS.png" />
223-<figcaption>crSizeNS.png</figcaption>
224-</figure>
225-
226-</td>
227-
228-</tr>
229-
230-<tr>
231-
232-<td>
57+![](/wiki-images/2/2e/CrSizeNS.png)
23358
23459crSizeNWSE
23560
236-</td>
237-
238-<td align="right">
239-
24061-8
24162
242-</td>
243-
244-<td>
245-
246-<figure>
247-<img src="crSizeNWSE.png" title="crSizeNWSE.png" />
248-<figcaption>crSizeNWSE.png</figcaption>
249-</figure>
250-
251-</td>
252-
253-</tr>
254-
255-<tr>
256-
257-<td>
63+![](/wiki-images/3/34/CrSizeNWSE.png)
25864
25965crSizeWE
26066
261-</td>
262-
263-<td align="right">
264-
26567-9
26668
267-</td>
268-
269-<td>
270-
271-<figure>
272-<img src="crSizeWE.png" title="crSizeWE.png" />
273-<figcaption>crSizeWE.png</figcaption>
274-</figure>
275-
276-</td>
277-
278-</tr>
279-
280-<tr>
281-
282-<td>
69+![](/wiki-images/8/8c/CrSizeWE.png)
28370
28471crUpArrow
28572
286-</td>
287-
288-<td align="right">
289-
29073-10
29174
292-</td>
293-
294-<td>
295-
296-<figure>
297-<img src="crUpArrow.png" title="crUpArrow.png" />
298-<figcaption>crUpArrow.png</figcaption>
299-</figure>
300-
301-</td>
302-
303-</tr>
304-
305-<tr>
306-
307-<td>
75+![](/wiki-images/2/24/CrUpArrow.png)
30876
30977crHourGlass
31078
311-</td>
312-
313-<td align="right">
314-
31579-11
31680
317-</td>
318-
319-<td>
320-
321-<figure>
322-<img src="crHourGlass.png" title="crHourGlass.png" />
323-<figcaption>crHourGlass.png</figcaption>
324-</figure>
325-
326-</td>
327-
328-</tr>
329-
330-<tr>
331-
332-<td>
81+![](/wiki-images/2/2f/CrHourGlass.png)
33382
33483crDrag
33584
336-</td>
337-
338-<td align="right">
339-
34085-12
34186
342-</td>
343-
344-<td>
345-
346-<figure>
347-<img src="crDrag.png" title="crDrag.png" />
348-<figcaption>crDrag.png</figcaption>
349-</figure>
350-
351-</td>
352-
353-</tr>
354-
355-<tr>
356-
357-<td>
87+![](/wiki-images/b/b7/CrDrag.png)
35888
35989crNoDrop
36090
361-</td>
362-
363-<td align="right">
364-
36591-13
36692
367-</td>
368-
369-<td>
370-
371-<figure>
372-<img src="crNoDrop.png" title="crNoDrop.png" />
373-<figcaption>crNoDrop.png</figcaption>
374-</figure>
375-
376-</td>
377-
378-</tr>
379-
380-<tr>
381-
382-<td>
93+![](/wiki-images/5/5c/CrNoDrop.png)
38394
38495crHSplit
38596
386-</td>
387-
388-<td align="right">
389-
39097-14
39198
392-</td>
393-
394-<td>
395-
396-<figure>
397-<img src="crHSplit.png" title="crHSplit.png" />
398-<figcaption>crHSplit.png</figcaption>
399-</figure>
400-
401-</td>
402-
403-</tr>
404-
405-<tr>
406-
407-<td>
99+![](/wiki-images/0/09/CrHSplit.png)
408100
409101crVSplit
410102
411-</td>
412-
413-<td align="right">
414-
415103-15
416104
417-</td>
418-
419-<td>
420-
421-<figure>
422-<img src="crVSplit.png" title="crVSplit.png" />
423-<figcaption>crVSplit.png</figcaption>
424-</figure>
425-
426-</td>
427-
428-</tr>
429-
430-<tr>
431-
432-<td>
105+![](/wiki-images/9/99/CrVSplit.png)
433106
434107crMultiDrag
435108
436-</td>
437-
438-<td align="right">
439-
440109-16
441110
442-</td>
443-
444-<td>
445-
446-<figure>
447-<img src="crMultiDrag.png" title="crMultiDrag.png" />
448-<figcaption>crMultiDrag.png</figcaption>
449-</figure>
450-
451-</td>
452-
453-</tr>
454-
455-<tr>
456-
457-<td>
111+![](/wiki-images/1/1e/CrMultiDrag.png)
458112
459113crSQLWait
460114
461-</td>
462-
463-<td align="right">
464-
465115-17
466116
467-</td>
468-
469-<td>
470-
471-<figure>
472-<img src="crSQLWait.png" title="crSQLWait.png" />
473-<figcaption>crSQLWait.png</figcaption>
474-</figure>
475-
476-</td>
477-
478-</tr>
479-
480-<tr>
481-
482-<td>
117+![](/wiki-images/8/82/CrSQLWait.png)
483118
484119crNo
485120
486-</td>
487-
488-<td align="right">
489-
490121-18
491122
492-</td>
493-
494-<td>
495-
496-<figure>
497-<img src="CrNo.png" title="CrNo.png" />
498-<figcaption>CrNo.png</figcaption>
499-</figure>
500-
501-</td>
502-
503-</tr>
504-
505-<tr>
506-
507-<td>
123+![](/wiki-images/3/32/CrNo.png)
508124
509125crAppStart
510126
511-</td>
512-
513-<td align="right">
514-
515127-19
516128
517-</td>
518-
519-<td>
520-
521-<figure>
522-<img src="crAppStart.png" title="crAppStart.png" />
523-<figcaption>crAppStart.png</figcaption>
524-</figure>
525-
526-</td>
527-
528-</tr>
529-
530-<tr>
531-
532-<td>
129+![](/wiki-images/e/e8/CrAppStart.png)
533130
534131crHelp
535132
536-</td>
537-
538-<td align="right">
539-
540133-20
541134
542-</td>
543-
544-<td>
545-
546-<figure>
547-<img src="crHelp.png" title="crHelp.png" />
548-<figcaption>crHelp.png</figcaption>
549-</figure>
550-
551-</td>
552-
553-</tr>
554-
555-<tr>
556-
557-<td>
135+![](/wiki-images/4/44/CrHelp.png)
558136
559137crHandPoint
560138
561-</td>
562-
563-<td align="right">
564-
565139-21
566140
567-</td>
568-
569-<td>
570-
571-<figure>
572-<img src="crHandPoint.png" title="crHandPoint.png" />
573-<figcaption>crHandPoint.png</figcaption>
574-</figure>
575-
576-</td>
577-
578-</tr>
579-
580-</table>
581-
582-\
141+![](/wiki-images/e/eb/CrHandPoint.png)
583142
584143## Esimerkit
585144
586145### Esimerkki 1: Näytä kaikki kohdistimen tyypit
587146
588147\(1\) Lomakkeella [[TForm|Form1]], vedä ja pudota [[TComboBox|ComboBox]] komponentti lomakkeelle.
589148
590149\(2\) Laita ComboBox1:n Items (TStrings) kohtaan seuraavat merkkijonot:
591150
592151``` pascal
593152crAppStart
594153crArrow
595154crCross
596155crDefault
597156crDrag
598157crHandPoint
599158crHelp
600159crHourGlass
601160crHSplit
602161crIBeam
603162crMultiDrag
604163crNo
605164crNoDrop
606165crNone
607166crSizeAll
608167crSizeNESW
609168crSizeNS
610169crSizeNWSE
611170crSizeWE
612171crSQLWait
613172crUpArrow
614173crVSplit
615174```
616175
617176\(3\) Lisää ComboBox1Change tapahtuman käsittelijään seuraava koodi:
618177
619178``` pascal
620179procedure TForm1.ComboBox1Change(Sender: TObject);
621180begin
622181 Cursor := StringToCursor(ComboBox1.Text);
623182end;
624183```
625184
626185Näin voidaan valita kohdistimen tyyppi ComboBoxista ja nähdä sen, kun hiirtä siirretään lomakkeella. Vain kun se siirretään ComboBoxin päälle, kohdistin palaa oletusarvoon (crDefault).
627186
628187### Esimerkki 2: Vaihda objektien kohdistin
629188
630189``` pascal
631190procedure TForm1.FormCreate(Sender: TObject);
632191begin
633192 Cursor := crHourGlass;
634193 // Vaihtaa lomakkeen kursorin tiimalasiksi
635194
636195 Button1.Cursor := crHourGlass;
637196 // Vaihtaa Button1-painikkeen kursorin tiimalasiksi.
638197
639198 Memo1.Cursor := crHourGlass;
640199 // Vaihtaa Memo1:n kursorin tiimalasiksi.
641200end;
642201```
643202
644203### Esimerkki 3:Vaihtaa kaikkien muiden kontrollien tiimalasiksi lasiksi, paitsi TBitBtn-kontrollien
645204
646205``` pascal
647206procedure TForm1.FormCreate(Sender: TObject);
648207var
649208 I: Integer;
650209begin
651210 Cursor := crHourGlass;
652211 for I := 0 to ControlCount - 1 do
653212 begin
654213 if (Controls[I].ClassType <> TBitBtn) then
655214 Controls[I].Cursor := crHourGlass;
656215 end;
657216end;
658217```
659218
660219Jos käytössä on kuitenkin GroupBox, niin sen kontrollit olisi käsiteltävä sen sisällä erikseen.
661220
662221``` pascal
663222procedure TForm1.FormCreate(Sender: TObject);
664223var
665224 I: Integer;
666225begin
667226 Cursor := crHourGlass;
668227 for I := 0 to ControlCount - 1 do
669228 begin
670229 if (Controls[I].ClassType <> TBitBtn) then
671230 Controls[I].Cursor := crHourGlass;
672231 end;
673232 for I := 0 to GroupBox1.ControlCount - 1 do
674233 begin
675234 if (GroupBox1.Controls[I].ClassType <> TBitBtn) then
676235 GroupBox1.Controls[I].Cursor := crHourGlass;
677236 end;
678237end;
679238```
680239
681240Edellä esitetyllä esimerkillä, jossa oli käytössä Form1, sekä muita lomakkeen konrolleja kuten [[TMemo/fi|Memo]], [[TEdit/fi|Edit]], [[TImage/fi|Image]], [[TBitBtn/fi|BitBtn]], jne. Tämä muuttaisi kaikki muut kuin BitBtn kontrollien kohdistimet tiimalasiksi. On olemassa konrolleja kuten [[TGroupBox/fi|TGroupBox]], [[TPanel/fi|TPanel]], joka toimii erillisinä "kontteina" muille konrolleille ja näiden kohteiden on oltava osoitteesta erillään päälomakkeesta, jotta niiden sisäistä ohjausta voidaan muuttaa toiseen kohdistimeen [[runtime/fi|ajonaikaisesti]].
682241
683242---
684243*From the Free Pascal wiki, page "Cursor/fi", as it stood on 2020-02-12 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).*

Back to history