Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Unterschiedliches verhalten von TEdit, wenn auf Panel platziert (https://www.delphipraxis.net/215461-unterschiedliches-verhalten-von-tedit-wenn-auf-panel-platziert.html)

bernau 8. Jul 2024 13:10

Unterschiedliches verhalten von TEdit, wenn auf Panel platziert
 
Liste der Anhänge anzeigen (Anzahl: 1)
Beim Umstieg von Delphi 11 auf Delphi 12 bin ich auf ein unterschiedliches Verhalten gestoßen. Habe dazu ein kleines Testprogramm.

Folgendes soll erreicht werden:

Ein TEdit soll eine Warnfarbe anzeigen, wenn weniger als 3 Zeichen eingegeben wurden, danach soll es die Farbe des Syles anzeigen. Habe dazu mal einen Testcode:

Delphi-Quellcode:
procedure TForm1.EditChange(Sender: TObject);
begin
  SetEditColor(TEdit(Sender), length(TEdit(Sender).text) <= 3);
end;

procedure TForm1.SetEditColor(const aEdit: TEdit; const aIsError: Boolean);
var
  lSelStart: Integer;
  lSelLenght: Integer;
begin
  lSelStart := aEdit.SelStart;
  lSelLenght := aEdit.SelLength;

  if aIsError then
    begin
      aEdit.StyleElements := aEdit.StyleElements - [seClient];
      aEdit.Color := clred
    end
  else
    begin
      aEdit.StyleElements := aEdit.StyleElements + [seClient];
      aEdit.Color := clWindow;
    end;

  aEdit.SelStart := lSelStart;
  aEdit.SelLength := lSelLenght;
end;
Ein Edit ist direkt auf dem Form platziert und ein Edit ist auf einem Panel platziert.

Beim Edit, welches direkt auf dem Form platziert ist, ist das verhalten wie erwartet. ab dem vierten Zeichen bekommt das Edit die Stylefarbe und der Cursor befindet sich hinter dem letzten Zeichen.

Beim Edit, welches auf dem Panel platziert ist, wird zwar die Farbe geändert, aber der ganze Text ist markiert. Was natürlich zur Folge hat, dass der bereits eingegebene Text beim nächsten Tastendruck entfernt wird.

Unter Delphi 11 war das Verhalten beider Edits gleich. Bei Delphi 12 ist das Verhalten der Edits wie beschrieben.

Übrigens ist bei beiden Edits nach dem vierten Zeichen "SelStart = 4" und "SelLength = 0". Wird bei dem Edit auf dem Panel aber komplett ignoriert und der ganze Text ist markiert.

Könnt Ihr das nachvollziehen?

bernau 8. Jul 2024 14:06

AW: Unterschiedliches verhalten von TEdit, wenn auf Panel platziert
 
Ich rudere mal etwas zurück. Der Fehler tritt bei einem etwas älteren Projekt auf.

Ich habe mal ein neues leeres Projekt erzeugt und dort läuft der Code fehlerfrei.

Muss wohl mal die Projektoptionen beider Projekte vergleichen.

bernau 8. Jul 2024 17:08

AW: Unterschiedliches verhalten von TEdit, wenn auf Panel platziert
 
Der Fehler tritt definitiv auf, wenn ein Style ausgewählt wird.

z.B.
Windwos 10
Luna
etc.


Der Fehler tritt nicht auf, wenn der Style "Windows" ausgewählt wird.


Jetzt noch mal eine Bitte: Kann das jemand nachvollziehen?

Neues VCL-Projekt.
In den Projektoptionen Style "Windows 10" auswählen. (Oder Luna)
Ein TEdit direkt auf das Form.
Ein TPanel auf das Form und darauf ein TEdit.
Quelltext aus dem ersten Post verwenden.

Danke

Ancaron 9. Jul 2024 12:07

AW: Unterschiedliches verhalten von TEdit, wenn auf Panel platziert
 
Wird dir wahrscheinlich wenig weiterhelfen, aber unter 10.4 verhalten sich beide Edits wie erwartet gleich.

bernau 9. Jul 2024 17:35

AW: Unterschiedliches verhalten von TEdit, wenn auf Panel platziert
 
Fehler tritt nur unter Delphi12 auf.

Habe mir jetzt beholfen, indem ich noch ein application.processmessages zugefügt habe.

Irgendwie wird beim Setzen von StyleElements etwas in die MessageQueue gesetzt, was SelStart und SelLenght nachträglich ändert, nachdem OnChange von dem Edit abgearbeitet wurde.

Delphi-Quellcode:
procedure TForm1.SetEditColor(const aEdit: TEdit; const aIsError: Boolean);
var
  lSelStart: Integer;
  lSelLenght: Integer;
begin
  lSelStart := aEdit.SelStart;
  lSelLenght := aEdit.SelLength;

  if aIsError then
    begin
      aEdit.StyleElements := aEdit.StyleElements - [seClient];
      aEdit.Color := clred
    end
  else
    begin
      aEdit.StyleElements := aEdit.StyleElements + [seClient];
      aEdit.Color := clWindow;
    end;

  application.ProcessMessages;

  aEdit.SelStart := lSelStart;
  aEdit.SelLength := lSelLenght;
end;


Alle Zeitangaben in WEZ +1. Es ist jetzt 12:38 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz