TEdit (mit TUpDown) feuert OnChange bei erstem OnPaint

[anse]

2 Workarounds gefunden:

1.

Delphi-Quellcode:

private FWasModified : Boolean

proc PageControl.OnChanging
  FWasModified := OKButton.Enabled

proc PageControl.OnChange
  OKButton.Enabled := FWasModified

2.

Delphi-Quellcode:

proc Form.OnShow
  UpDown.Position := 123;
  PageControl.ActivePage := tabWithUpDownInIt;
  PageControl.ActivePage := firstTab;

Der zweite sieht eher dreckig aus, daher habe ich den ersten bevorzugt, der den Modifikations-Status über das automatische OnChange hinweg "rettet". Der 2. setzt einfach darauf, daß der überflüssige OnChange einmal beim Start direkt ausgeführt wird.