Ĺadny brzuch
Mam sobie combobox'a i w onchange mam kodzik:
var i: Integer; begin i := ComboBox1.ItemIndex; if i = -1 then Exit; case i of 0: Memo1.Lines.Text :='blabla'; 1: Memo1.Lines.Text:='kuku'; end;
Czyli w memo się wyświetla tekścik po kliknieciu w comboboxie odpowiedniego tekstu.
A ja chciałbym aby jeszcze w edicie się pojawiał tekst, ale inny i nie wiem jak to zrobić...
Przykładowo byłby taki kod jak na górze i dodatkowo w edicie by się wyświetlalo:
np. słowo komputer.
tyle że dla każdego przycisku INNE SŁOWO!!!
trzeba chyba Edit1.Text="komputer";
ale mi nie zadzialalo jak umiescilem w :
0: Edit1.text.....
Proszę o pomoc :)
case ComboBox1.ItemIndex of 0: begin Memo1.text := 'Text 0 dla memo'; edit1.Text := 'Text 0 dla edita'; end; 1: begin Memo1.text := 'Text 1 dla memo'; edit1.Text := 'Text 1 dla edita'; end; end;
O to chodzi?
Tak działa, dzięki
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
var i: Integer; begin i := ComboBox1.ItemIndex; if i = -1 then Exit; case i of 0: Memo1.Lines.Text :='blabla'; 1: Memo1.Lines.Text:='kuku'; end;
Czyli w memo się wyświetla tekścik po kliknieciu w comboboxie odpowiedniego tekstu.
A ja chciałbym aby jeszcze w edicie się pojawiał tekst, ale inny i nie wiem jak to zrobić...
Przykładowo byłby taki kod jak na górze i dodatkowo w edicie by się wyświetlalo:
np. słowo komputer.
tyle że dla każdego przycisku INNE SŁOWO!!!
trzeba chyba Edit1.Text="komputer";
ale mi nie zadzialalo jak umiescilem w :
0: Edit1.text.....
Proszę o pomoc :)
case ComboBox1.ItemIndex of 0: begin Memo1.text := 'Text 0 dla memo'; edit1.Text := 'Text 0 dla edita'; end; 1: begin Memo1.text := 'Text 1 dla memo'; edit1.Text := 'Text 1 dla edita'; end; end;
O to chodzi?
Tak działa, dzięki