Hab noch ein kleines Problem mit dem Enabled.
Wenn der Eintrag von der Combobox1 auf dem 2ten Eintrag steht, dann soll Edit1 auf Enabled false stehen.
Irgendwie hab ich einen fehler gebaut, ich weiss aber net wo der is.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if combobox1.items:='2' or Combobox1.items:='4' then
begin
Edit1.Enabled:=false
end
else
   begin
 Edit1.Enabled:=true
 end;
end;

Zwei Fehler werden mir angezeigt:
Unit1.pas(349): Incompatible types: 'TStrings' and 'Char'.
Project1.dpr(9): Could not compile used unit 'Unit1.pas'.

Kann mir da jemand weiterhelfen?
MfG Dave

Hallo

Abfragen werden in Delphi mit dem = (ist gleich) gemacht. D.h. if x = y then.
Zuweisungen werden mit := (doppelpunkt ist gleich).

In deinem Fall einfach

markieren

Delphi-Quellcode:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if (ComboBox1.ItemIndex = 2) or (ComboBox1.ItemIndex = 4) then begin
Edit1.Enabled := False;
end
else
Edit1.Enabled := True
end;

Zudem noch: Der gewählte Listenindex ist in ItemIndex zu finden.

Lg

Jo, jetzte gehts, danke
Hab es entlich fertig bekommen.
Hier is mein Tool

Kürzer wäre es mit Edit1.Enabled := ComboBox1.ItemIndex in [2,4];

Zitat von DeddyH:

Kürzer wäre es mitEdit1.Enabled := ComboBox1.ItemIndex in [2,4];

Danke, das geht auch. Habs grad fertig gestellt
Über dem tread kannste es Downloaden
MfG Dave

P.s.: Totzdem danke