Combobox ItemIndex=-1; Text ändern im Event

[StTüff]

Hallo zusammen!

Ich benutze eine Combobox, um darin das Dateiformat einer dargestellten Datei zu verwalten. Bekannte Formate werden als Items geladen. Wird eine Datei mit unbekanntem Format geladen, kann diese (mit Einschränkungen) trotzdem Angezeigt werden. Dann bleibt die Combobox auf dem Index -1 und der Text wird in 'nicht gültig' geändert.
Soweit so gut, funktioniert prima.
Jetzt wollte ich aber die eigentliche Funktion für die die Combobox vorgesehen ist programmieren: Eine Formatkonvertierung. Das habe ich auch gemacht und auch das funktioniert. Ich habe allerdings ein Problem, wenn der Anwender den Vorgang abbricht und die alten Werte der Combobox wiederhergestellt werden sollen.
Folgende Situation:
1. Es wird eine Datei mit unbekanntem Format geladen => Combobox: ItemIndex:=-1 und Text:= 'nicht gültig'
2. Anwender wählt einen Eintrag in der Combobox für die Konvertierung aus.
3. Im Event (OnChange, oder OnSelect) wird eine Abfrage ausgelöst, ob die Konvertierung wirklich gemacht werden soll.
4a. "Ja": Alles prima (Konvertierung wird durchgeführt und Combo steht auf dem richtigen Eintrag.
4b. "Nein": Die alten Werte in der Combobox müssen wiederhergestellt werden (also ItemIndex:=-1 und Text:='nicht gültig').

4b funktioniert leider nicht. Zwar wird der Index auf -1 gesetzt und auch der Text lässt sich ändern, wird aber danach (vermutlich durch die Eventbehandlung des Objekts) noch mals mit '' überschrieben.

Ich habe schon versucht das mit "abort" zu verhindern. Leider kein Erfolg. Auch alle möglichen Tips aus dem Forum zu ähnlichen Themen haben mich leider nicht weiter gebracht.

Hat jemand eine Idee, oder kann mir sagen, ob es ein Event gibt, dass ausgelöst wird, wenn die Bearbeitung abgeschlossen ist (so dass nichts mehr überschrieben wird, oder wie ich die "Weiterbearbeitung" verhindern kann.

Vielen Dank und viele Grüße,

StTüff

[DeddyH]

Zeig doch mal den Event-Handler.

[StTüff]

Gerne:

Delphi-Quellcode:

procedure TForm1.CoBo_VersionChange(Sender: TObject);
begin
  if MessageDlg('Soll die Konvertierung durchgeführt werden?', mtConfirmation,
    [mbyes, mbCancel], 0)=mrYes
  then
  begin
    ...Konvertierung...
  end else
  begin
    CoBo_Version.ItemIndex :=-1;
    CoBo_Version.Text:='Test';
  end;
end;

Gruß,

StTüff

[Sharky]

Hai StTüff,

eventuell ist ja das OnCloseUp besser für dich geeignet. Dieses wird aufgerufen wenn die Auswahlliste der TComboBox geschlossen wird.

[marabu]

Hallo,

ich würde den Zustand der Daten nicht nur in der ComboBox, sondern zusätzlich in einer property der Form oder bei Bedarf auch in einer globalen Variable festhalten. Wird die Aktion ordnungsgemäß ausgeführt, dann kannst du die neue Einstellung in die Variable übertragen, andernfalls initialisierst du die ComboBox neu.

Für die eigentliche Benutzeraktion gilt wie immer: Sie sollte durch eine TAction ausgeführt werden können, d.h. nur Komponenten kommen in Frage, die über die Eigenschaft Action verfügen. Ich würde einen Button oder ein MenuItem bevorzugen und eine ComboBox nur für Einstellungen verwenden.

Grüße vom marabu

[StTüff]

Hallo Sharky!

Das habe ich auch schon versucht. Hilft leider nicht. Aus der PalmOS-Programmierung kenne ich so was wie "Handled=true" um die weitere Verarbeitung zu verhindern. Gibt es so was auch hier (wie gesagt: "abort" hilft auch nicht).

Gruß,

StTüff

[StTüff]

Hallo Marabu!

Erst mal Danke für die Antwort.
Mir hilft es leider nichts, die Aktion über einen Button oder ähnliches auszulösen, da ich ja an einer Stelle das Format, in das konvertiert werden soll vorgeben muss. Wenn nun die Änderung des Comboboxinhalts (bzw. die Auswahl) keine Aktion auslösen würde, dann wäre der Inhalt nicht mehr konsisten mit dem Tatsächlichen Format.
Ich könnte natürlich hergehen und nach dem Tastendruck ein weiteres Formular öffnen, bei dem die Zielversion vorzugeben ist und das Formular dann wieder schließen. Das halte ich aber für sehr umständlich und nicht gerade bedienerfreundlich.
Bei der Neuanlage einer Datei ist es so realisiert und dort passt das auch ganz gut. Wenn aber das Format gewechselt werden soll, dann hätte ich das schon ganz gern durch eine einfache Auswahl in der Combobox gemacht (was ja auch funktionieren würde, wenn ich nicht die Abbruchsmöglichkeit vorsehen hätte wollen).

Es muss doch eine Möglichkeit geben, wie ich die Werte (die ich natürlich so gespeichert habe, wie Du es auch vorgesschlagen hast) in der Combobox wiederherzustellen.
Aus meiner Sicht sind zwei Wege denkbar:
1. Die weitere Ausführung verhindern.
oder
2. Auf ein Event regieren, dass erst eintritt, wenn die objektseitigen Änderungen schon durchgeführt wurden, so dass nichts mehr überschrieben wird.

Die Frage ist nur wie....

Gruß,

StTüff

[Sidorion]

Nimm anstatt dem OnChange das OnSelect Ereignis der CB. Dieses wird nur gefeuert, wenn der Nutzer in der Auswahlliste einen Eintrag auswählt, nicht aber, wenn durch Programmcode oder Nutzereingaben der Text des Edits verändert wird.

[marabu]

Hallo Stephan,

ich würde das technische Problem so lösen: Die ComboBox würde ich mit dem Style csDropDownList betreiben, bei den Items würde ich dem Item 0 den Text 'nicht gültig' zuweisen, auf die Verwendung von ItemIndex -1 würde ich verzichten.

Delphi-Quellcode:

procedure TDemoForm.ComboBoxChange(Sender: TObject);
begin
  with Sender as TComboBox do
    if MessageDlg('Okay?', mtConfirmation, mbOkCancel, 0) 
      then self.ComboIndex := ItemIndex
      else ItemIndex := self.ComboIndex;
    end;
end;

Freundliche Grüße

[StTüff]

Hallo Sidorion!

Das löst mein Problem leider nicht, da das Event ja zur richtigen Zeit ausgelöst wird. Lediglich der Text lässt sich nicht ändern. Trotzdem vielen Dank!


Hallo Marabu!

Daran habe ich auch schon gedacht. Dann habe ich aber das Problem, dass der Anwender das Format "nicht gültig" auswählen kann, was vielleicht auch etwas komisch ist (vor allem was mache ich, wenn der das dann auch macht...).

Eine weitere mögliche Lösung ist, dass ich dann die Combobox einfach leer lasse und die Information in ein separates Label o.Ä. packe. Geht, ist aber nicht gerade die Ideallösung.

Gruß,

Stephan