Einzelnen Beitrag anzeigen

Benutzerbild von anse
anse

Registriert seit: 30. Okt 2006
Ort: Neuenkirchen
195 Beiträge
 
Delphi 11 Alexandria
 
#2

Re: TEdit (mit TUpDown) feuert OnChange bei erstem OnPaint

  Alt 12. Okt 2008, 11:12
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.
Ansgar Becker
  Mit Zitat antworten Zitat