onchange zur Laufzeit

smokydog · Beiträge: 38

Hallo.

Mein Problem ist glaube ich zu lösen aber ich komme nicht drauf.

Ich habe, sagen wir mal 10 SpinEdit Felder, aber alle anderes benannt. Aber alle sollen in ihren eigenen Onchange meine Prozedure

markieren

Delphi-Quelltext

1:	registry_write(name:string;wert:integer);

aufrufen. Der name soll dann der Name des SpinEdits ein und der Wert, der Wert von SpinEdit.

Ich hoffe ich habe das Problem gut genug geschildert.

Danke.

Moderiert von Tino: Delphi-Tags hinzugefügt.
Moderiert von Tino: Überflüssige Absätze entfernt.
Moderiert von Tino: Topic aus Sonstiges verschoben am Mo 17.01.2005 um 09:04

Ehemaliges Mitglied Erhaltene Danke: 1

Du musst ne allgemeine OnChange-Prozedur schreiben und diese dann allen Spinedits zuweisen. Hier mal die ganze Unit, damit es keine Missverständnisse gibt:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin;

type
  TForm1 = class(TForm)
    procedure SpinEditXChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  a: integer;
begin
  for a := 0 to ComponentCount -1 do
    if Components[a] is TSpinedit then
      TSpinedit(Components[a]).OnChange := SpinEditXChange;
end;

procedure TForm1.SpinEditXChange(Sender: TObject);
begin
  with TSpinEdit(sender) do
    registry_write(Name, value);
end;

end.

Nun kannst du beliebig viele Spinedits auf deine Form legen und alle erhalten die gleiche OnChange-Routine.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme