Registriert seit: 27. Apr 2003
Ort: Bad Honnef
1.644 Beiträge
Delphi 2009 Professional
|
Re: Nur speichern wenn Benuter Eingabe tätigt und nicht das
18. Nov 2003, 14:04
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.
|
|
Zitat
|