Ĺadny brzuch
Chodzi mi o to, że w ComboBox`ie są opcje, a w nich kod:
if ComboBox1.Text='Jak wyświetlić tekst na czerwono?' then Memo1.lines.add('Wpisz kod: blablabla'); if ComboBox1.Text='Jak zrobić coś tam?' then Memo1.lines.add('Wpisz kod:'); Memo1.lines.add('blablakodblabla');
I jak wybieram którąś z opcji to pokazuje mi wszystko, a nie daną opcję :(
Oczywiście w Items mam wpisane Jak wyśw(....)? i Jak zrobić coś tam?.....
Proszę o pomoc.
Użytkownik Magister_Z edytował ten post 31 październik 2005, 10:40
Może zamiast Memo1.Lines.Add(costam) daj Memo1.Text:=costam ??
Nie działa...
kompiluje się, ale potem nie wyświetla, dałem:
procedure TForm3.ComboBox1Change(Sender: TObject); begin if ComboBox1.Text = 'Jak wstawić obrazek?' then Memo1.Text:=('costam'); Memo1.Text:=('sprobowałeś?'); if ComboBox1.Text = 'Co zrobić aby tekst wyświetlił się na środku?' then Memo1.text:=('hahahaha'); Memo1.Text:=('naprawdę?'); end;
na początku bez nawiasów potem z i tak samo...
EDIT: wyświetla się, ale obojętnie na który klikne zawsze się pokaże 'naprawdę?'
Użytkownik Magister_Z edytował ten post 31 październik 2005, 10:54
Nie wiem, czy Cię dobrze rozumiem, ale możesz zrobić tak:
procedure TForm1.ComboBox1Click(Sender: TObject); var i: Integer; begin //sprawdzenie, która pozycja w Combo jest wybrana i := ComboBox1.ItemIndex; //jeśli żadna, koniec i wyjście z procedury if i = -1 then Exit; //a tutaj działania, w zależności od wybranej opcji: case i of 0: Memo1.Lines.Text := 'Użytkownik wybrał pierwszą pozycję'; 1: Memo1.Lines.Text := 'Użytkownik wybrał drugą pozycję'; // i tak dalej end; end;
Chyba że chodziło Ci o pokazanie w Memo dokładnie tego, co jest wypisane w ComboBoksie - wtedy zamiast case...end trzeba wpisać:
Memo1.Lines.Text := ComboBox1.Items[i];
No dobra... popraw Twój pierwszy kod, na początku daj Memo1.Clear;, gdy chcesz dodać więcej niż linijkę, używaj then begin ... end;.
dzieki dziala :P
Nie działa...
kompiluje się, ale potem nie wyświetla, dałem:
procedure TForm3.ComboBox1Change(Sender: TObject); begin if ComboBox1.Text = 'Jak wstawić obrazek?' then Memo1.Text:=('costam'); Memo1.Text:=('sprobowałeś?'); if ComboBox1.Text = 'Co zrobić aby tekst wyświetlił się na środku?' then Memo1.text:=('hahahaha'); Memo1.Text:=('naprawdę?'); end;
na początku bez nawiasów potem z i tak samo...
EDIT: wyświetla się, ale obojętnie na który klikne zawsze się pokaże 'naprawdę?'
Ok, dzięki ;)
Użytkownik Magister_Z edytował ten post 31 październik 2005, 15:32
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
if ComboBox1.Text='Jak wyświetlić tekst na czerwono?' then Memo1.lines.add('Wpisz kod: blablabla'); if ComboBox1.Text='Jak zrobić coś tam?' then Memo1.lines.add('Wpisz kod:'); Memo1.lines.add('blablakodblabla');
I jak wybieram którąś z opcji to pokazuje mi wszystko, a nie daną opcję :(
Oczywiście w Items mam wpisane Jak wyśw(....)? i Jak zrobić coś tam?.....
Proszę o pomoc.
Użytkownik Magister_Z edytował ten post 31 październik 2005, 10:40
Może zamiast Memo1.Lines.Add(costam) daj Memo1.Text:=costam ??
Nie działa...
kompiluje się, ale potem nie wyświetla, dałem:
procedure TForm3.ComboBox1Change(Sender: TObject); begin if ComboBox1.Text = 'Jak wstawić obrazek?' then Memo1.Text:=('costam'); Memo1.Text:=('sprobowałeś?'); if ComboBox1.Text = 'Co zrobić aby tekst wyświetlił się na środku?' then Memo1.text:=('hahahaha'); Memo1.Text:=('naprawdę?'); end;
na początku bez nawiasów potem z i tak samo...
EDIT: wyświetla się, ale obojętnie na który klikne zawsze się pokaże 'naprawdę?'
Użytkownik Magister_Z edytował ten post 31 październik 2005, 10:54
Nie wiem, czy Cię dobrze rozumiem, ale możesz zrobić tak:
procedure TForm1.ComboBox1Click(Sender: TObject); var i: Integer; begin //sprawdzenie, która pozycja w Combo jest wybrana i := ComboBox1.ItemIndex; //jeśli żadna, koniec i wyjście z procedury if i = -1 then Exit; //a tutaj działania, w zależności od wybranej opcji: case i of 0: Memo1.Lines.Text := 'Użytkownik wybrał pierwszą pozycję'; 1: Memo1.Lines.Text := 'Użytkownik wybrał drugą pozycję'; // i tak dalej end; end;
Chyba że chodziło Ci o pokazanie w Memo dokładnie tego, co jest wypisane w ComboBoksie - wtedy zamiast case...end trzeba wpisać:
Memo1.Lines.Text := ComboBox1.Items[i];
No dobra... popraw Twój pierwszy kod, na początku daj Memo1.Clear;, gdy chcesz dodać więcej niż linijkę, używaj then begin ... end;.
dzieki dziala :P
Nie działa...
kompiluje się, ale potem nie wyświetla, dałem:
procedure TForm3.ComboBox1Change(Sender: TObject); begin if ComboBox1.Text = 'Jak wstawić obrazek?' then Memo1.Text:=('costam'); Memo1.Text:=('sprobowałeś?'); if ComboBox1.Text = 'Co zrobić aby tekst wyświetlił się na środku?' then Memo1.text:=('hahahaha'); Memo1.Text:=('naprawdę?'); end;
na początku bez nawiasów potem z i tak samo...
EDIT: wyświetla się, ale obojętnie na który klikne zawsze się pokaże 'naprawdę?'
Ok, dzięki ;)
Użytkownik Magister_Z edytował ten post 31 październik 2005, 15:32