Backgroundin vaihto

Delphi-aloittelija

Otsikko kertoneekin jo kaiken. Eli formin background olisi mukava osata vaihtaa. Ottaisin kernaasti vastaan osaavilta apua, kiitos.

5

456

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • vaikeamman kautta

      Joskus asiat voidaan tehdä vaikeamman kautta.

      Tehdään nyt vaikka niin (Tarkoituksena on
      että saat muitakin ideoita)


      Eli laita lomakkeelle (form) ensin TImage-komponentti.

      Laita sen Align ominaisuus arvoon alClient.


      Tuo sen päälle painonappi (TButton).

      Tee painonapille onClick -tapahtuma.

      Muokkaa onClick tapahtuma tälläiseksi:

      procedure TForm1.Button1Click(Sender: TObject);
      var StartX, StartY:integer;
      begin
      With Image1.Canvas do
      begin
      Brush.Color:= clRed;
      StartX := 0;
      StartY := 0;
      Rectangle(StartX, StartY,StartX Width, StartY Height);
      end;
      end;


      Tämän kokeilun jälkeen voit vaikkapa
      laittaa tuon koodin lomakkeen luontitapahtumaan (eli onCreate)
      Eli luot tuollaisen tapahtuman jolloin sen nimeksi tulee
      procedure TForm1.FormCreate(Sender: TObject);

      • Tänks

        Mutta herää vielä vain kysymys, että miten tungen jonkun kuvatiedoston sinne taustalle? Ja missä tiedostomuodossa sen pitää olla?


      • on tarjolla
        Tänks kirjoitti:

        Mutta herää vielä vain kysymys, että miten tungen jonkun kuvatiedoston sinne taustalle? Ja missä tiedostomuodossa sen pitää olla?

        Käytännössä png (bmp tai xpm )-kuva.
        Tosin muitakin formaatteja on tuettuna.


      • Helpoin tapa
        Tänks kirjoitti:

        Mutta herää vielä vain kysymys, että miten tungen jonkun kuvatiedoston sinne taustalle? Ja missä tiedostomuodossa sen pitää olla?

        Helpoin tapa:

        TImage- komponentti ikkunaan. Komponenttimuokkaimessa menet Picture kohtaan. Painat kolme pistettä (...) nappia, jonka jälkeen avautuu tuo kuva -ikkuna. Kuvan haet tuo-napilla ja
        ok-lla hyväksyt sen.


      • asddfghjlkä'
        Helpoin tapa kirjoitti:

        Helpoin tapa:

        TImage- komponentti ikkunaan. Komponenttimuokkaimessa menet Picture kohtaan. Painat kolme pistettä (...) nappia, jonka jälkeen avautuu tuo kuva -ikkuna. Kuvan haet tuo-napilla ja
        ok-lla hyväksyt sen.

        Tarkemmin täällä:

        http://wiki.mureakuha.com/wiki/Valmiin_kuvan_tuominen_omaan_ohjelmaan


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Eutanasia?

      Kertokaas omia mielipiteitä eutanasiaan liittyen. Onko mielestäsi oikein vai väärin ja miksi?
      Arvot ja etiikka
      10
      12427
    2. Eutanasia - miksi eläimelle sallitaan armokuolema, mutta ihmiselle ei?

      Olen pitkään ihmetellyt yhtä asiaa Suomessa. Kun koira kärsii parantumattomasta sairaudesta ja kovista kivuista, eläinlä
      Arvot ja etiikka
      5
      11193
    3. Riikka Purran kaudella nousi bensan hinta yli 2 euron

      Muistatteko kuinka edellisen vasemmistohallituksen aikana, ns. Marinin aikakaudella, bensiiniä sai 1,3 euron litrahinnal
      Maailman menoa
      177
      5112
    4. Veli Sofia teki urosmehiläisen työn

      Paljastaessaan kuinka TPS:ssä ei joukkuehenki toimi sooloilijoiden vuoksi, jonka takia koko seura ei pärjää kilpailussa
      Maailman menoa
      31
      3726
    5. Mitäs nyt sijoittajat?

      Pörssit laskevat maailmalla Iranin sodan takia ja muutenkin ovat olleet Trumpin vallan alla epävarmat. Ainoa, mikä on no
      Maailman menoa
      196
      3564
    6. Hjallis Harkimon, 72, Jasmine-rakas, 37, paljastaa suhteen alusta: "Vähän..."

      Liikemies, kansanedustaja Hjallis Harkimo ja tuottaja-juontaja Jasmine Pajari ovat pariskunta. He asuvat yhdessä Sipooss
      Suomalaiset julkkikset
      50
      3149
    7. Unisex-vessat

      Ahdistaa. Miksi kaikki pitää tasapäistää tasa-arvon nimissä? Tasa-arvo on sitä, että kunnioitetaan sukupuolien erilaisu
      Tunteet
      109
      2874
    8. Jäit kiinni siitä

      että katselet minua. Käänsin pääni, minäkin etsin sinua, ja meidän katseemme kohtasivat. Eikä se haittaa - molemmat ky
      Ikävä
      13
      2448
    9. Sosiaalidemokratia romahtanut kautta maailman

      nuoret eivät enää kannata järjetöntä aatetta, joten demarien täytyy hakea kannattajia mamuista. Ruotsin sos.demit jo kie
      Maailman menoa
      53
      2185
    10. Jutta Larm, 52, haluaa kumota tämän piintyneen ikämyytin

      Oletko samaa mieltä? Jutta Larm on 52-vuotias ja tehnyt pitkän uran yrittäjänä. Hän haluaa kumota tämän piintyneen ikämy
      50 plus
      19
      1975
    Aihe