TSplitter/fi

TSplitter on komponentti joka voidaan sijoittaa paneeliin tai lomakkeelle pystysuoraan tai vaakasuoraan. Palkki erottaa alipaneelit toisistaan.

Komponenttia käytetään visuaalisena erottimena lomakkeen kahden puoliskon välillä ja sen ansiosta sovelluksen käyttäjä voi muuttaa komponentin kokoa joko pystysuoraan tai vaakasuoraan. Se löytyy komponenttipaletin Additional -välilehdeltä .

TSplitter voi työskennellä pohjimmiltaan kahdella eri tavalla: Align "linjaamalla" (Delphin tapaan) tai AnchorSidesin kautta (Tätä ominaisuutta ei ole Delphissä).

Splitter ja Align

TSplitter:ä voidaan käyttää monissa yksinkertaisissa asettelukohteissa, kuten esim. kahden komponentin välillä. Esimerkiksi kun tarvitaan vapaasti muokattavaa koon säätämistä muistion ja listboxin tmv. välillä.

Seuraava esimerkki osoittaa tämän.

Suunnitteluaikana

1. Luo uusi lomake
2. Pudota TMemo lomakkeelle (Klikkaa hiiren vasemmalla näppäimellä TMemo-kuvaketta komponenttivalikoissa valitaksesi sen ja sitten vasemmalla klikkaa lomaketta)
3. Aseta komponenttimuokkaimessa Memo1:n Align ominaisuus arvoon alLeft.
4. Pudota TSplitter lomakkeelle
5. Oletuksena sen Align ominaisuus on jo arvossa alLeft.
6. Pudota toinen TMemo lomakkeelle.
7. Aseta komponenttimuokkaimessa Memo2:n Align ominaisuus arvoon alClient.

Ajonaikana

Voidaan samat toiminnot kuin yllä oleva myös suorittaa koodilla suunnitteluaikaisen / komponenttimuokkaimen käytön sijasta:

procedure TMainForm.FormCreate(Sender: TObject);
var
  Memo1: TMemo;
  Splitter1: TSplitter;
  Memo2: TMemo;
begin
  Memo1:=TMemo.Create(Self);
  with Memo1 do begin
    Name:='Memo1';
    Parent:=Self;
    Align:=alLeft;
  end;
  Splitter1:=TSplitter.Create(Self);
  with Splitter1 do begin
    Name:='Splitter1';
    Parent:=Self;
    Left:=1; // position it right of Memo1
    Align:=alLeft;
  end;
  Memo2:=TMemo.Create(Self);
  with Memo2 do begin
    Name:='Memo2';
    Parent:=Self;
    Align:=alClient;
  end;
end;

Splitter ja AnchorSides

AnchorSides sallii hienosäädetyt asettelut. Kohdistus täyttää kaiken tilan. AnchorSides antaa ankkuroida ohjaimet mihin tahansa muun sisaruksen hallintaan.

Suunnitteluaikana

1. Luo uusi lomake
2. Pudota TMemo lomakkeelle (Klikkaa hiiren vasemmalla näppäimellä TMemo-kuvaketta komponenttivalikoissa valitaksesi sen ja sitten vasemmalla klikkaa lomaketta)
3. Aseta komponenttimuokkaimessa Memo1:n Align ominaisuus arvoon alLeft.
4. Pudota TSplitter lomakkeelle
5. Aseta sen Align ominaisuus arvoon alNone
6. Valitse Memo1
7. Näytä -> Anchor Editor
8. Ankkuroi Memo1 oikea puoli Splitter1: een
9. Pudota toinen TMemo lomakkeelle.
10. Aseta komponenttimuokkaimessa Memo2:n Align ominaisuus arvoon alRight.
11. ankkuroi Memo2: n vasen puoli Splitter1: een. Varmista, että ankkuroit Splitter1: n oikealle puolelle (Anchor-editorin painike Comboboxin alapuolella).

Ajonaikana

Voidaan samat toiminnot kuin yllä oleva myös suorittaa koodilla suunnitteluaikaisen / komponenttimuokkaimen käytön sijasta:

procedure TMainForm.FormCreate(Sender: TObject);
var
  Memo1: TMemo;
  Splitter1: TSplitter;
  Memo2: TMemo;
begin
  Memo1:=TMemo.Create(Self);
  with Memo1 do begin
    Name:='Memo1';
    Parent:=Self;
    Align:=alLeft;
  end;
  Splitter1:=TSplitter.Create(Self);
  with Splitter1 do begin
    Name:='Splitter1';
    Parent:=Self;
    Align:=alNone;
    Left:=100; // some value
    AnchorParallel(akBottom,0,Parent);
  end;
  Memo1.AnchorToNeighbour(akRight,0,Splitter1);
  Memo2:=TMemo.Create(Self);
  with Memo2 do begin
    Name:='Memo2';
    Parent:=Self;
    Align:=alRight;
    AnchorToNeighbour(akLeft,0,Splitter1);
  end;
end;

Katso myös

• TSplitter doc
• TPairSplitter

From the Free Pascal wiki, page "TSplitter/fi", as it stood on 2022-08-06 after a change by Kai Burghardt, 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.