TEdit Cursor fehlt nach SetFocus

[haentschman]

Danke für die schnelle Reaktion.

Es ist und bleibt eine lustige Raterunde...

ActiveControl := Edit1 gewinnt nicht.

- alles was irgendwie mit Visualisierung zu tun hat habe ich durch.
- selbst den Focus im Kreis laufen lassen und wieder zurück

das einzige was ich herausgefunden habe:

- mit der Message Variante -->
im OnShow nur der Aufruf der MessageProzedur
folgender Code in der MessageProzedur

Delphi-Quellcode:

Abbruch:= True;
  Edit1.Text:= '';
  FMesswerte.Top:= FWartungBearbeiten.Top + (FWartungBearbeiten.Height div 2) - 50;
  FMesswerte.Left:= FWartungBearbeiten.Left + (FWartungBearbeiten.Width div 2) - 160;
  Label1.Caption:= FWartungBearbeiten.ZQueryTat.FieldValues['MESSWERTTEXT'];
  Label2.Caption:= FWartungBearbeiten.ZQueryTat.FieldValues['EINHEIT'];
  Label3.Caption:= ' ' + FWartungBearbeiten.ZQueryTat.FieldValues['DETAIL'] + ' * ' + FWartungBearbeiten.ZQueryTat.FieldValues['BEZEICHNUNG'] + ' ';
  Edit1.SetFocus;

bei Breakpoint auf Zeile 1 ist der Cursor sichtbar, lasse ich weiterlaufen ist er weg.