Nur speichern wenn Benuter Eingabe tätigt und nicht das Prog

[cartilla]

Hallo!

Ich habe auf meinem Formular verschiedene Steuerelemente (Edit-Felder, Colorboxen, Radiogroup), denen ich allen ein gemeinsames OnChange (bzw. OnClick bei Radiogroup) zugewiesen habe. Dort wird eine Prozedur zum Speichern aller Eigenschaften aufgerufen.

Wenn ich nun per Hand einen Wert ändere funktioniert das natürlich wie es soll. Wenn ich aber nun im Programm z. B. einem der Edit-Felder, einen Wert zuweise, wird natürlich auch gespeichert, was aber nicht soll.

Wie kann ich das Problem am geschicktesten lösen, dass er nur speichert, wenn der Benutzer Eingaben tätigt und nicht das Programm? Ein Button zum Speichern statt OnChange/OnClick ist leider nicht möglich. Vielen Dank!

[choose]

Hallo cartilla,

herzlich willkommen bei Delphi-PRAXIS!

Sieh mal in der Delphi Online-Hilfe (OH) unter TEdit bei der Eigenschaft Modified nach.

[cartilla]

Zitat von choose:

Hallo cartilla,

herzlich willkommen bei Delphi-PRAXIS!

Sieh mal in der Delphi Online-Hilfe (OH) unter TEdit bei der Eigenschaft Modified nach.

OK, aber was ist denn mit der Radiogroup und den Colorboxen? Da darf er auch nicht speichern.

[Jens Schumann]

Hallo,
da alle Komponenten dasselbe Event verwenden kann man wie folgt vorgehen.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    Button1: TButton;
    procedure Edit1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    FEventEnabled : Boolean;
    procedure EnableEvents;
    procedure DisableEvents;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}


procedure TForm1.DisableEvents;
begin
  FEventEnabled:=False;
end;

// Auf dieses Event zeigen alle Komponenten
// entweder mit OnClick oder OnChange;
procedure TForm1.Edit1Change(Sender: TObject);
begin
  If FEventEnabled then
    begin
    // Mach was mit dem Sender
    end;
end;

procedure TForm1.EnableEvents;
begin
  FEventEnabled:=True;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FEventEnabled:=True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // verändere Edit1 ohne dass sich das Event auswirkt
  DisableEvents;
  Edit1.Text:='42';:
  EnableEvents;
end;

end.

[cartilla]

Zitat von Jens Schumann:

Hallo,
da alle Komponenten dasselbe Event verwenden kann man wie folgt vorgehen.
...

Ich habe es jetzt so gemacht, wie Jens vorgeschlagen hat. Vielen Dank an Euch!