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.
