Backgroundin vaihto

Delphi-aloittelija

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

5

463

Äänestä

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Jos venäjällä olisi kansan valitsema presidentti, olisiko Ukrainan sotaa?

      Ei varmasti olisi. Sehän on tiedossa, että raskaalla vaalivilpillä putin jatkaa pressana.
      Maailman menoa
      286
      4030

    2. Riikka jytkytti naftan hinnan jo yli 2,3 euroon

      Sannan aikaan esimerkiksi dieseliä selvästi kalliimpaa bensaakin sai 1,3 eurolla. https://www.is.fi/autot/art-200001188
      Maailman menoa
      107
      3659

    3. Vasemmiston feministinaiset puolustavat islamia

      mikä on täysin järjenvastaista, mutta eihän femakoilla paljon järkeä olekkaan, leijuvat siellä omassa kuplassaan. Myös
      Maailman menoa
      190
      2678

    4. Päivän Sanna: Suomi maailman onnellisin maa

      Sanna muutti Suomen maailman onnellisimmaksi maaksi. Hänen pyyteetön työnsä maailmalla tuottaa edelleen tulosta.
      Maailman menoa
      46
      2423

    5. Ei se halua mitään!!

      Arkailija koko tyyppi!
      Ikävä
      62
      2355

    6. Jätän tähän viesti kaivatullesi

      jos jotain jäänyt sanomatta. 👇
      Ikävä
      154
      1952

    7. Olet kyllä erittäin huono yhdistelemään pisteitä.

      Etkä vain sinä vaan kaikki teilläpäin.
      Ikävä
      34
      1747

    8. Etkö sitten itse

      ole koskaan ylittänyt rajaa?
      Ikävä
      43
      1373

    9. Onko jo liian "vanha" vai mitä mieltä olet? 57-v. saa raakaa tekstiä tv:ssä

      The Summit Suomi tv-ohjelmassa 57-vuotiaan Maritan jaksamista kyseenalaistettiin iän takia. Onko tässä iässä jo liian "v
      50 plus
      35
      1348

    10. Mitä järkeä iskeä

      Varattua ja yrittää saada sitä eroamaan
      Ikävä
      46
      1242
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt