Cursor/fi

Kohdistin eli kursorin määritellään Cursor - ominaisuudella TCursor objektilla.

Luettelo kohdistimen vakion nimistä

Vakion nimi

Kokonaisluku arvo

Kuvio

crDefault

0

crNone

-1

Näkymätön hiiren osoitin

crArrow

-2

crCross

-3

crIBeam

-4

crSize

-22

crSizeNESW

-6

crSizeNS

-7

crSizeNWSE

-8

crSizeWE

-9

crUpArrow

-10

crHourGlass

-11

crDrag

-12

crNoDrop

-13

crHSplit

-14

crVSplit

-15

crMultiDrag

-16

crSQLWait

-17

crNo

-18

crAppStart

-19

crHelp

-20

crHandPoint

-21

Esimerkit

Esimerkki 1: Näytä kaikki kohdistimen tyypit

(1) Lomakkeella Form1, vedä ja pudota ComboBox komponentti lomakkeelle.

(2) Laita ComboBox1:n Items (TStrings) kohtaan seuraavat merkkijonot:

crAppStart
crArrow
crCross
crDefault
crDrag
crHandPoint
crHelp
crHourGlass
crHSplit
crIBeam
crMultiDrag
crNo
crNoDrop
crNone
crSizeAll
crSizeNESW
crSizeNS
crSizeNWSE
crSizeWE
crSQLWait
crUpArrow
crVSplit

(3) Lisää ComboBox1Change tapahtuman käsittelijään seuraava koodi:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
     Cursor := StringToCursor(ComboBox1.Text);
end;

Nä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).

Esimerkki 2: Vaihda objektien kohdistin

procedure TForm1.FormCreate(Sender: TObject);
begin
     Cursor := crHourGlass;
     // Vaihtaa lomakkeen kursorin tiimalasiksi

     Button1.Cursor := crHourGlass;
     // Vaihtaa Button1-painikkeen kursorin tiimalasiksi.

     Memo1.Cursor := crHourGlass;
     // Vaihtaa Memo1:n kursorin tiimalasiksi.
end;

Esimerkki 3:Vaihtaa kaikkien muiden kontrollien tiimalasiksi lasiksi, paitsi TBitBtn-kontrollien

procedure TForm1.FormCreate(Sender: TObject);
var
   I: Integer;
begin
     Cursor := crHourGlass;
     for I := 0 to ControlCount - 1 do
     begin
          if (Controls[I].ClassType <> TBitBtn) then
             Controls[I].Cursor := crHourGlass;
     end;
end;

Jos käytössä on kuitenkin GroupBox, niin sen kontrollit olisi käsiteltävä sen sisällä erikseen.

procedure TForm1.FormCreate(Sender: TObject);
var
   I: Integer;
begin
     Cursor := crHourGlass;
     for I := 0 to ControlCount - 1 do
     begin
          if (Controls[I].ClassType <> TBitBtn) then
             Controls[I].Cursor := crHourGlass;
     end;
     for I := 0 to GroupBox1.ControlCount - 1 do
     begin
          if (GroupBox1.Controls[I].ClassType <> TBitBtn) then
             GroupBox1.Controls[I].Cursor := crHourGlass;
     end;
end;

Edellä esitetyllä esimerkillä, jossa oli käytössä Form1, sekä muita lomakkeen konrolleja kuten Memo, Edit, Image, BitBtn, jne. Tämä muuttaisi kaikki muut kuin BitBtn kontrollien kohdistimet tiimalasiksi. On olemassa konrolleja kuten TGroupBox, 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 ajonaikaisesti.

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.