Cursor/fi
│
Deutsch (de) │
English (en) │
suomi (fi) │
Kohdistin eli kursorin määritellään Cursor - ominaisuudella TCursor objektilla.
Luettelo kohdistimen vakion nimistä
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.