TComboBox, SelectedItem a OnChange

24.5.2012 0:34:42 #

spravne by asi melo byt, ze se udalost vyvola (protoze napr. na to navazuji povoleni/zakazani jinych komponent),
ale je to o tom zvyku a urcite by to chtelo i moznost, kdyz to tu udalost nevyvola
(resp. lze tu udalost odstranit a pak dat zpet - zas prace)

<z>

24.5.2012 8:16:13 #

Dle mého názoru je správná varianta, že se událost nevyvolá, protože mám možnost ji vyvolat ručně, ale simulovat nevyvolání je mnohem složitější. Dle mého názoru se události mají volat pouze při změně uživatelem a ne kódem.

PetrK

24.5.2012 8:46:53 #

Došlo ke změně hodnoty, je zcela irelevantní jakým způsobem. Proto se událost vyvolat má.

Leoš

24.5.2012 9:32:08 #

Také si myslím, že událost by se vyvolat v tomto případě měla - ve VCL jsem ji pak po změně SelectedItem většinou volal ručně. V FMX je tedy situace opačná. Pokud nebudu chtít, aby se událost vyvolala, tak nastavím obsluhu OnChange na nil a po změně hodnoty SelectedItem ji zase vrátím zpět.

Alnath

24.5.2012 10:02:00 #

Radek ad opakované vyvolání při stejné hodnotě:
Tam je otázka, co chápat jako OnChange(). Může to být změna na jinou hodnotu a může to nastavení nějaké (byť stejné) hodnoty. Pro oba případy si umím představit stav, kdy to bude správná funkčnost.

Leoš

24.5.2012 10:02:14 #

No nevím... U které varianty je jednodušší zápis a ověření funkčnosti?
VCL:

procedure TForm42.ButtonSetWithEventCallClick(Sender: TObject);
begin
  ComboBoxVCL.ItemIndex := 1;
  ComboBoxVCL.OnChange(nil);
end;

procedure TForm42.ButtonSetWithoutEventCallClick(Sender: TObject);
begin
  ComboBoxVCL.ItemIndex := 1;
end;

procedure TForm42.ComboBoxVCLChange(Sender: TObject);
begin
  Beep;
end;

FMX:
procedure TForm43.ButtonChangeWithEventCallClick(Sender: TObject);
begin
  ComboBoxFMX.ItemIndex := 1;
end;

procedure TForm43.ButtonChangeWithoutEventCallClick(Sender: TObject);
var
  e: TNotifyEvent;
begin
  e := ComboBoxFMX.OnChange;
  ComboBoxFMX.OnChange := nil;
  ComboBoxFMX.ItemIndex := 1;
  ComboBoxFMX.OnChange := e;
end;

procedure TForm43.ComboBoxFMXChange(Sender: TObject);
begin
  Beep;
end;

PetrK