Wenn man in einer TComboBox-Dropdown-Liste mehrmals hintereinander denselben Eintrag auswählt, wird jedesmal wieder der OnChange-Event aufgerufen. Eigentlich steht das ja im Widerspruch zur semantischen Bedeutung des Wortes "Change", denn es findet beim wiederholten Aufruf desselben Eintrages ja kein "Wechsel" der Eigenschaft ItemIndex statt.
Um zu verhindern, dass beim wiederholten Aufruf desselben Eintrages die Aktion im OnChange Event-Handler wiederholt aufgerufen wird, verwende ich folgenden Code:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
cbbTest.Tag := cbbTest.ItemIndex;
end;
procedure TForm1.cbbTestChange(Sender: TObject);
begin
if cbbTest.Tag <> cbbTest.ItemIndex then
begin
cbbTest.Tag := cbbTest.ItemIndex;
// diese Aktion wird nur bei Auswahl eines ANDEREN Eintrages ausgeführt:
CodeSite.Send('TForm1.cbbTestChange: ', cbbTest.Items[cbbTest.ItemIndex]);
end;
end;
Hier ist ein einfaches Projekt, welches das demonstriert:
ComboBoxTest.zip
Es wäre wünschenswert, wenn man den Aufruf von OnChange bei der wiederholten Auswahl desselben Eintrages durch simples Setzen einer Eigenschaft in der ComboBox verhindern könnte. Kennt jemand eine solche ComboBox?
Geändert von PeterPanino, damit der Platz auf dem Bildschirm nicht so leer aussieht.
Programmierung allgemein
Antwort
Zitat
Linear-Darstellung
