danke durch die zweite antwort hebt sich die erste auf nun hab ich aber ne andere frage un zwar in meinem programm soll die erste combo box bei der zweiten einen eintrag hinzufügen und dann jenachdem was bei der zweiten ausgewählt ist verschiedenen text ins memofeld schreiben.
er zeigt den text aber erst an wenn man nachdem man im 2 combobox [0] ausgewählt hat im erten [0] nochmal auswählt
hoffe hr versteht mich
schaut eudh den ganzen quelltext mal an
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
| unit synchronsprecher_u;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
cbo_sprecher: TComboBox;
cbo_Auswahl: TComboBox;
memo: TMemo;
Button1: TButton;
procedure cbo_sprecherChange(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.cbo_sprecherChange(Sender: TObject);
begin
cbo_auswahl.visible:=true;
if cbo_sprecher.ItemIndex=0 then
begin
cbo_auswahl.Items.Append('moderierte Sendungen');
case cbo_auswahl.itemindex of
0:memo.Lines.Add('Benedikt Weber studierte Kommunikationsfachwirtschaft und begann in den 90er Jahren mehrere Kinder- und Jugendsendungen zu moderieren. Viele Zuschaern ist vor allem durch die Bastelsendung Art Attack bekannt');
end;
end
else
begin
end;
end;
end. |
