combobox

Eli kokeilin sitä Lazaruksessa ja laitoin tuon koodin vähän täydennettyinä ComboBox:n onChange tapahtumaan (Tuplaklikkaus komponenttimuokkaimessa tapahtumat-välilehdellä tekee tuon tapahtuman rungon ja täydennettynä se on tälläinen:)


procedure TForm1.ComboBox1Change(Sender: TObject);
begin
   if combobox1.itemindex=0 then
      begin
         image1.Visible:=true;
         image2.Visible:=false;
         image3.Visible:=false;
      end;
   if combobox1.ItemIndex=1 then
      begin
         image1.Visible:=false;
         image2.Visible:=true;
         image3.Visible:=false;
      end;
   if combobox1.itemindex=2 then
      begin
         image1.Visible:=false;
         image2.Visible:=false;
         image3.Visible:=true;
      end;
end;

Eli selitän tämän mun ohjelman jotenkin. Eli tarkoitus olisi tehdä ohjelma joka laskee pinta-alan. Kappale jonka pinta-ala lasketaan valitaan comboboxista. Eli jos otan cb:n valinnan 1 ruutuun ilmestyy kuva jossa on neliö. Vieressä on teksti kentät (2) joihin kirjoitaan luvut ja LASKE panikkeella ohjelma laskee pinta-alan teksti kenttään 3. Eli nyt laske painikkeessani on tälläinen ohjelma kirjoitettuna :

a:=strtofloat(edit1.text);
b:=strtofloat(edit2.Text);
s:=a*b;
edit3.Text:=floattostr(s);

Nyt pitäs löytää keino, miten vaihdan tuon s:a*b :n s:a*b/2 :ksi samalla kun painan comboboxin valintaa 2.


Ohjelman alussa olen esitellyt muuttujat

var
Form1: TForm1;
s,a,b:real;

kuinkakas kirjoitti:

Eli selitän tämän mun ohjelman jotenkin. Eli tarkoitus olisi tehdä ohjelma joka laskee pinta-alan. Kappale jonka pinta-ala lasketaan valitaan comboboxista. Eli jos otan cb:n valinnan 1 ruutuun ilmestyy kuva jossa on neliö. Vieressä on teksti kentät (2) joihin kirjoitaan luvut ja LASKE panikkeella ohjelma laskee pinta-alan teksti kenttään 3. Eli nyt laske painikkeessani on tälläinen ohjelma kirjoitettuna :

a:=strtofloat(edit1.text);
b:=strtofloat(edit2.Text);
s:=a*b;
edit3.Text:=floattostr(s);

Nyt pitäs löytää keino, miten vaihdan tuon s:a*b :n s:a*b/2 :ksi samalla kun painan comboboxin valintaa 2.


Ohjelman alussa olen esitellyt muuttujat

var
Form1: TForm1;
s,a,b:real;

Lue lisää

Tälläistäkö ratkaisua haet

procedure TForm1.Button1Click(Sender: TObject);
var a, b, ala :real;
begin
   a := StrToFloat( Edit1.Text );
   b := StrToFloat( Edit2.Text );
   case ComboBox1.ItemIndex of
      0 : ala := a * b;
      1 : ala := ( a * b ) / 2;
      else ala := 0;
   end;
   Edit3.Text := FloatToStr( ala );
end;

Olioita voi upottaa esim. tähän mainittuun TComboBox-komponenttiin.

var
munOlio: TOmaLuokka;
begin
munOlio := TOmaLuokka.Create();

cbxMunComboBox.Items.AddObject( munOlio.Otsikko, TObject( munOlio ));
end;

// ja pomimalla se sitten sieltä..
var
munOlio: TOmaLuokka;
begin
index := cbxMunComboBox.ItemIndex;

munOlio := TOmaLuokka(cbxMunComboBox.Items.Object[index]);

if Assigned( munOlio ) then
begin
munOlio.Terve();
end;

end;

// jne.. kätevää :)




end;

Delphikoodari.. kirjoitti:

Olioita voi upottaa esim. tähän mainittuun TComboBox-komponenttiin.

var
munOlio: TOmaLuokka;
begin
munOlio := TOmaLuokka.Create();

cbxMunComboBox.Items.AddObject( munOlio.Otsikko, TObject( munOlio ));
end;

// ja pomimalla se sitten sieltä..
var
munOlio: TOmaLuokka;
begin
index := cbxMunComboBox.ItemIndex;

munOlio := TOmaLuokka(cbxMunComboBox.Items.Object[index]);

if Assigned( munOlio ) then
begin
munOlio.Terve();
end;

end;

// jne.. kätevää :)




end;

Lue lisää

Entäs onnistusko sillälailla, että jos kirjoittaisin
tuohon painonappiin ::

procedure TForm1.Button2Click(Sender: TObject);
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.Text);
s:=a b;
edit4.Text:=floattostr(s);

if combobox1.itemindex=1 then
begin
s:=a*b;
end;

onnistuukos kirjoitti:

Entäs onnistusko sillälailla, että jos kirjoittaisin
tuohon painonappiin ::

procedure TForm1.Button2Click(Sender: TObject);
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.Text);
s:=a b;
edit4.Text:=floattostr(s);

if combobox1.itemindex=1 then
begin
s:=a*b;
end;

Lue lisää

En tajua mikä on logiikka tuossa esimerkissä?

Eli kun painat nappia s := a b, jonka tulos näytetään ja jos jossakin pudotusvalikossa on toinen itemi valittuna s onkin a*b ??

Tokihan tuo onnistuu, mikäs siinä.

Delphikoodari.. kirjoitti:

En tajua mikä on logiikka tuossa esimerkissä?

Eli kun painat nappia s := a b, jonka tulos näytetään ja jos jossakin pudotusvalikossa on toinen itemi valittuna s onkin a*b ??

Tokihan tuo onnistuu, mikäs siinä.

Lue lisää

Siis kun valitsen combobxin vaihto ehdon 1(0) LASKE painike laskee

a:=strtofloat(edit1.text);
b:=strtofloat(edit2.Text);
s:=a b;
edit3.Text:=floattostr(s);

Kun valitsen comboboxin vaihtoehdon 2(1) niin LASKE panikse laskisikin

a:=strtofloat(edit1.text);
b:=strtofloat(edit2.Text);
s:=a*b;
edit4.Text:=floattostr(s);

jne..

Eli miten tuo onnistuisi yksinkertaisimmalla tavalla?

combobox kirjoitti:

Siis kun valitsen combobxin vaihto ehdon 1(0) LASKE painike laskee

a:=strtofloat(edit1.text);
b:=strtofloat(edit2.Text);
s:=a b;
edit3.Text:=floattostr(s);

Kun valitsen comboboxin vaihtoehdon 2(1) niin LASKE panikse laskisikin

a:=strtofloat(edit1.text);
b:=strtofloat(edit2.Text);
s:=a*b;
edit4.Text:=floattostr(s);

jne..

Eli miten tuo onnistuisi yksinkertaisimmalla tavalla?

Lue lisää

Toi vaihtoehto 2(1) niin ei tietenkään tulisi edit4:ään niin kuin siinä lukee vaan edelleen edit3.