Delphi XE10 Fehler? Tedit.Text wird nicht aktualisiert

[Neumann]

Habe etwas sehr Merkwürdiges in einem Programm, wenn ich es mit D XE 10 compiliere:

Formular mit einem Edit, edartikelcount.

Auf die Form gesetzt, Text ist dann edartikelcount wie man im Ojektinspektor sehen kann.

Dann komt Form.create:

Delphi-Quellcode:

procedure TdlgVerkaufsartikel.FormCreate(Sender: TObject);

begin
  TranslateComponent (self);
  startdate:=jvdtp.datetime;
  aktdate:=startdate;
  pagecontrol1.ActivePageIndex:=0;
  edcountartikel.Text:='Willi';
end;

Der Text 'Willi' wird nie angezeigt; aber doch gesetzt, wie ich beim Debuggen sehen kann

Jetzt wird das Fenster aufgerufen mit showmodal:

Delphi-Quellcode:

procedure TdlgVerkaufsartikel.FormActivate(Sender: TObject);
var
  tralt:tibctransaction;
begin
  sortfield:='Art_Nr';
  lbsuchennach.Caption:=sortfield;
  screen.Cursor:=crhourglass;
  startper;
  //tralt:=dm.IBCQVar.Transaction;
  //dm.IBCQVar.Transaction:= dm.IBCTrArtikel;
  edcountartikel.Color:=clred;
  openquery('select count(Art_nr) from verkaufsartikel',dm.ibcqvar);
  edcountartikel.Text:='Alfred'; //inttostr(dm.IBCQVar.Fields[0].AsInteger);
  ...
end;

Starte ich das Programm und beobachte was passiert im Einzelschrittmodus dann wird edcountartikel.text wie erwartet von 'Willi' zu 'Alfred' geändert.

Aber angezeigt wird zur Laufzeit 'edCountArtikel' also der Text wie er im Ojektinspektor gesetzt war.

Die rote Farbe ist allerdings da.

Grosse Frage: Warum und weshalb???

Vorher habe ich mit Delphi XE gearbeitet, da war noch alles richtig (Anzahl der Artikel wurde angezeigt)

:?:?

[Lemmy]

Hi,

bei so was: Versuchen das mit einem neuen, leeren Projekt nach zustellen. Wenn da der Fehler zu reproduzieren ist, dann das Projekt einfach hier anhängen. Wenn nicht dann liegt es am Projekt.

Tipp: Schau mal ob das Formular ggf. doppelt erzeugt wird - einmal automatisch und dann von dir nochmal manuell.

Grüße

[haentschman]

Moin...:P

Inzwischen habe ich auch mit XE diverse verdächtige Komponenten die ab ubnd zu mal "offensichtlich" nicht den Wert haben. Ein beherztes Refresh oder Repaint bringt da Abhilfe. Im Notfalle Application.ProcessMessages. In der Regel sind das bei mir Labels welche in einem Event aus einem Thread heraus (Synchronisiert... bevor Nachfragen kommen. :lol:) aktualisiert werden.

[Neumann]

Problem habe ich selber gefunden. Es lag an Gnugettext, was wohl noch ein Problem mit Delphi XE10 hat.

[Der schöne Günther]

Danke für die Warnung. Kannst du das näher erläutern? Zu was für einem Problem soll es da kommen?