AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

editfeld - onchange - problem

Offene Frage von "AlexanderBrade"
Ein Thema von AlexanderBrade · begonnen am 4. Feb 2009 · letzter Beitrag vom 4. Feb 2009
Antwort Antwort
AlexanderBrade

Registriert seit: 14. Dez 2008
189 Beiträge
 
Delphi 2005 Personal
 
#1

editfeld - onchange - problem

  Alt 4. Feb 2009, 22:44
Hallo an alle,
geht so was:
if not edit1.Text='then button1.enabled:=true; Im prinzip soll der OK Button des FOrmulars immer nur dann aktiv sein, wenn etwas im editFeld steht um Komplikationen zu vermeiden, aber das scheint nicht ganz hinzuhauen!
  Mit Zitat antworten Zitat
Benutzerbild von pilic
pilic

Registriert seit: 10. Aug 2006
Ort: Aschbach
131 Beiträge
 
Turbo Delphi für Win32
 
#2

Re: editfeld - onchange - problem

  Alt 4. Feb 2009, 22:53
Natürlich geht das, nur musst du den Button auch wieder deaktivieren, wenn es leer ist.
  Mit Zitat antworten Zitat
AlexanderBrade

Registriert seit: 14. Dez 2008
189 Beiträge
 
Delphi 2005 Personal
 
#3

Re: editfeld - onchange - problem

  Alt 4. Feb 2009, 22:55
Ja, aber, seine Standardantwort lautet beim Compilieren:
[Fehler] Unit12.pas(31): E2015 Operator ist auf diesen Operandentyp nicht anwendbar!!!!!!!!!!!
  Mit Zitat antworten Zitat
BullsEye

Registriert seit: 8. Sep 2007
Ort: Werlte
872 Beiträge
 
Delphi 7 Personal
 
#4

Re: editfeld - onchange - problem

  Alt 4. Feb 2009, 22:56
Delphi-Quellcode:
procedure TForm1.Edit1Change(Sender: TObject);
begin
  IF (edit1.Text <> '') THEN BEGIN
  Button1.Enabled := true;
  END ELSE BEGIN
  Button1.Enabled := false;
  END;
end;
So funktioniert das.

Musst nur den Button von Anfang an Disablen:

Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.Enabled := false;
end;
  Mit Zitat antworten Zitat
Benutzerbild von Meflin
Meflin

Registriert seit: 21. Aug 2003
4.856 Beiträge
 
#5

Re: editfeld - onchange - problem

  Alt 4. Feb 2009, 22:58
Oder einfacher
Button1.Enabled := Edit1.Text <> '';
  Mit Zitat antworten Zitat
AlexanderBrade

Registriert seit: 14. Dez 2008
189 Beiträge
 
Delphi 2005 Personal
 
#6

Re: editfeld - onchange - problem

  Alt 4. Feb 2009, 23:07
Noch mal kurz eine andere Sache:
Wie schaffe ich es, dass ich die editbox nicht noch einmal anklicken muss und sofort nach dem Formularaufruf eingeben kann?
Geht das über den OI?

P.S. Das andere klappt dankt eurer Hilfe!
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.132 Beiträge
 
Delphi 12 Athens
 
#7

Re: editfeld - onchange - problem

  Alt 4. Feb 2009, 23:13
nur eine Frage pro Thread

pssst: Edit in Tabulatorreinfolge an Platz 1 setzen oder Form.ActiveControl das Edit zuweisen (notfalls im Form.OnCreate)

Zitat:
if not edit1.Text='then
und warum das nicht geht ... NOT hat Vorrang vor Vergleichen, also übersetzt Delphi das so:
if (not edit1.Text) = 'then ein String kann nicht negiert werden,
aber das Gegenteil von = ist <>
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Benutzerbild von Meflin
Meflin

Registriert seit: 21. Aug 2003
4.856 Beiträge
 
#8

Re: editfeld - onchange - problem

  Alt 4. Feb 2009, 23:13
im OnDisplay deines Formulars:
Edit1.SetFocus
und am besten gleich noch
Delphi-Quellcode:
Edit1.SetFocus;
Edit1.SelectAll;
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:05 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz