Hallo alle zusammen!
Habe ein kleines Problem mit der Registry und das lautet wie folgt:
Ich habe diese Prozedur und möchte sie mit in die Registry einbauen. Das heißt wenn ich auf checked clicke möchte ich das es beim neu starten des Programmes wieder gecheckt ist und das selbe mit der Suchfunktion und dem Label.
Delphi-Quellcode:
procedure TFmHaupt.WarengruppenSuchenExecute(Sender: TObject);
begin
case TComponent(Sender).Tag of
3303: begin
WaGrWGNr.Checked := true;
WaGrBezeichnung.Checked := false;
WarSU1.Text := '';
Label3.Caption := 'Warengruppen Nr.';
WarSU1.Visible := True;
WarSU1.OnChange := WarSU1Change;
end;
3304: begin
WaGrWgNr.Checked := false;
WaGrBezeichnung.Checked := true;
WarSU1.Text := '';
Label3.Caption := 'Bezeichnung';
WarSU1.Visible := True;
WarSU1.OnChange := WarSU2Change;
end;
end;
end;
Ich habe es schon so probiert an die Registry abzuspeichern.
Delphi-Quellcode:
// yy Registry auslesen
regist:=TRegistry.Create;
regist.RootKey:=HKEY_CURRENT_USER;
regist.OpenKey('Software\ZVVerwaltung\DialogPosition\FMHaupt', true);
TComponent(Sender).Tag := regist.ReadInteger('Checked3016');
// yy Registry einlesen
procedure TFmHaupt.FmClose(Sender: TObject; var Action: TCloseAction);
var regist : TRegistry;
begin
regist:=TRegistry.Create;
regist.RootKey:=HKEY_CURRENT_USER;
regist.OpenKey('Software\ZVVerwaltung\DialogPosition\FMHaupt', true);
regist.WriteInteger('checked3016', TComponent(Sender).Tag);
Ich habe es versucht über den TComponent(Sender) das funktioniert allesdiengs nicht! Kann mir jemand sagen ob ich überhaupt auf dem richtigen weg bin oder ob ich ganz falsch drann bin denn ich komme einfach nicht weiter!
Mfg und Danke im Vorraus
Denise
[EDIT=Luckie]Delphi-tags hinzugefügt. Beim nächsten Mal bitte selber machen. Danke.[/EDIT]