02. september 2003 - 16:36
Der er
1 kommentar og
1 løsning
ComboBox og EditText i samarbejde
Jeg udtrykker nok mit problem på en dårlig måde, men her er det:
Jeg skal have en ComboBox og en EditText til at samarbejde. Min ComboBox har 4 linjer:
- England
- France
- Belgium
- Denmark
Hvis jeg så skriver "1" i min EditText, vil jeg gerne have, at England dukker op i min ComboBox, og hvis jeg skriver "3", vil jeg gerne have Belgium dukker op osv. Desuden vil jeg gerne have den til, at virke den anden vej lige så vel. Altså, at jeg kan vælge England i min ComboBox og så dukker 1 op i min EditText osv.
På forhånd tak, MM
02. september 2003 - 16:47
#1
procedure TForm1.Edit1Change(Sender: TObject);
var
tmpint: Integer;
begin
Try
tmpint := StrToInt(Edit1.Text);
Except
End;
Case tmpint Of
1: ComboBox1.ItemIndex := 0;
2: ComboBox1.ItemIndex := 1;
3: ComboBox1.ItemIndex := 2;
4: ComboBox1.ItemIndex := 3;
Else
ComboBox1.ItemIndex := -1;
End;
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Case ComboBox1.ItemIndex Of
0: Edit1.Text := '1';
1: Edit1.Text := '2';
2: Edit1.Text := '3';
3: Edit1.Text := '4';
Else
Edit1.Text := '';
End;
end;
OBS: Når du kører programmet fra Delphi, så vil du få en fejl hvis der ikke står et tal i Edit1. Denne fejl fremkommer ikke når du kører programmet for sig selv (altså bare ved at eksekvere .exe filen)
Snowball
