Einzelnen Beitrag anzeigen

Mojito

Registriert seit: 29. Okt 2012
39 Beiträge
 
#1

Komponenteneigenschaften gehen verloren

  Alt 1. Nov 2012, 23:54
Hallo liebe Delphi-Freunde,

ich möchte das die letzten Werte von den Variablen des Typs TRadioGroup(Indexwert) und TSpinButton(Zaehlung) bei dem Drücken auf Cancel beibehalten werden. Also die letzten Werte die eingegeben wurden worden, wenn auf OK gedrückt wurde sollen bei erneutem Aufruf des Formulars vorausgewählt sein. Leider ist das nicht der Fall und es werden willkürlich andere Zahlen angegeben. Was mag ich übersehen haben?
Vielen Dank euch!

Delphi-Quellcode:
function Formular1.starting:boolean;
var Indexwert, Zaehlung:byte;
begin
Zaehlung:=SpnEdtCount.Value;
Indexwert:=RdGrpOperator.ItemIndex;

case ShowModal of

mrOk:
begin
if not (SpnEdtCount.Value > 5) and (RdGrpOperator.ItemIndex <> -1) then
   starting := FALSE
else
   starting := TRUE;
end;

mrCancel:
begin
SpnEdtCount.Value:=Indexwert;
RdGrpOperator.ItemIndex:=Zaehlung;
starting := FALSE;
      end;
end;
end;
  Mit Zitat antworten Zitat