Edit1.Text Inhalt sperren ?

[taktaky]

Hallo,

bis jetzt verwende ich den Inspector die Option Enabled. Aber mit dieser Option kann man den Inhalt nicht kopieren und der Feld wird deaktiviert.

So möchte ich nicht sondern der Inhalt soll gesperrt werden d.h. kopieren ja, ändern nein

so möchte ich den Feld von Edit1.Text haben.

Wie kann ich sowas machen?

Gruß

[mkinzler]

Einfach jede Änderung des Benutzers rückgängig machen.

[Nils_13]

Delphi-Quellcode:

ReadOnly := True;

[Hansa]

Knapper gehts nimmer. :mrgreen: Ich habe eine Form da ist das so ähnlich. Diese Form hat eine private Variable AltFeldWert. Im Edit.OnEnter wird der gesetzt. Bei mir gehts drum zu sehen, ob überhaupt was geändert wurde. Falls ja : Aktion durchführen (im Edit.OnExit). Bei dir müsste man lediglich den im OnEnter gespeicherten Wert im OnExit zurücksetzen.

Delphi-Quellcode:

Edit.Text := AltFeldWert;

Es reicht ein gemeinsames OnEnter für die gewünschten Edits. Jedes einzelne müsste allerdings sein eigenes OnExit besitzen. Alternative (aber nicht nötig) : jedes Edit erhält eine eigene Variable um den alten Wert zu speichern.

[taktaky]

Zitat:

Zitat von Nils_13

Delphi-Quellcode:

ReadOnly := True;

Hallo zusammen,

Danke!

Mit ReadOnly:=true ist die beste Lösung :thumb:

Gruß

[Die Muhkuh]

Zitat:

Zitat von Hansa

Knapper gehts nimmer. :mrgreen: Ich habe eine Form da ist das so ähnlich. Diese Form hat eine private Variable AltFeldWert. Im Edit.OnEnter wird der gesetzt. Bei mir gehts drum zu sehen, ob überhaupt was geändert wurde. Falls ja : Aktion durchführen (im Edit.OnExit). Bei dir müsste man lediglich den im OnEnter gespeicherten Wert im OnExit zurücksetzen.

Delphi-Quellcode:

Edit.Text := AltFeldWert;

Es reicht ein gemeinsames OnEnter für die gewünschten Edits. Jedes einzelne müsste allerdings sein eigenes OnExit besitzen. Alternative (aber nicht nötig) : jedes Edit erhält eine eigene Variable um den alten Wert zu speichern.

Hi Hansa,

warum braucht jedes Edit sein eigenes OnExit?

Delphi-Quellcode:

procedure OnExit(Sender: TObject);
begin
  (Sender as TEdit).Text := AltFeldWert;
end;

[Hansa]

Zitat:

Zitat von Die Muhkuh

..warum braucht jedes Edit sein eigenes OnExit?...

Weil bei mir DB dahinter hängt. Da muss schon das richtige Feld aktualisiert werden, oder die entsprechende SP aufgerufen werden. Der alte Feldwert alleine nützt da nichts. Der Fragesteller braucht allerdings tatsächlich nur ein OnExit.

[taktaky]

Hi

OnChange funktioniert besser aber am besten ReadOnly:= True :wink:

Gruß

[Hansa]

OnChance ? :shock: Wieso ist das besser ? Als was ? Das gilt jedenfalls mal nicht für ein DB-Programmm welches Änderungen durchführt. Bei ReadOnly sollte das OnChange sowieso nicht gehen. :mrgreen: Es wäre ein Unding die Datenbank mit jedem einzelnen geänderten Zeichen zu belästigen, obwohl das Feld letztendlich zum Schlusss nicht mal geändert wurde. Benutze du lieber die OnEnter/Onexit Methode, um das Edit-Feld notfalls einfach zurückzusetzen. Ich hingegen muss eben hingehen und nachgucken, ob eine Änderung an den Daten gemacht werden musss oder nicht. Deshalb wird der geänderte Wert auch benötigt, um eine Änderung durchzuführen. Also nicht irgendwas einfach rückgängig machen, sondern auch, um eine Änderung an der richtigen Stelle zu machen. Und genau deshalb reicht zwar ein OnEnter, aber nicht nur ein OnExit.

[taktaky]

Zitat:

Zitat von Hansa

OnChance ? :shock: Wieso ist das besser ? Als was ? Das gilt jedenfalls mal nicht für ein DB-Programmm welches Änderungen durchführt. Bei ReadOnly sollte das OnChange sowieso nicht gehen. :mrgreen: Es wäre ein Unding die Datenbank mit jedem einzelnen geänderten Zeichen zu belästigen, obwohl das Feld letztendlich zum Schlusss nicht mal geändert wurde. Benutze du lieber die OnEnter/Onexit Methode, um das Edit-Feld notfalls einfach zurückzusetzen. Ich hingegen muss eben hingehen und nachgucken, ob eine Änderung an den Daten gemacht werden musss oder nicht. Deshalb wird der geänderte Wert auch benötigt, um eine Änderung durchzuführen. Also nicht irgendwas einfach rückgängig machen, sondern auch, um eine Änderung an der richtigen Stelle zu machen. Und genau deshalb reicht zwar ein OnEnter, aber nicht nur ein OnExit.

Hi

der Feld wird automatisch bei Form1.OnCreate ausgefüllt werden (Windows Version)
Vielleicht deswegen hat es bei mir nicht geklappt.

Ich habe die Option ReadOnly:=true verwendet

Gruß