Otsikko kertoneekin jo kaiken. Eli formin background olisi mukava osata vaihtaa. Ottaisin kernaasti vastaan osaavilta apua, kiitos.
Backgroundin vaihto
Delphi-aloittelija
5499
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 5
Vanhimmat
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);
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:
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