Forum: Object-Pascal / Delphi-Language
by Demon666,
26. Jun 2010
nein, aber ich hab ne prozedur in der FormOptionen geschlossen wird:
procedure TFormOptionen.BtOKClick(Sender: TObject);
var save: Tstringlist; //hier wird gespeichert. reihenfolge: checkbox, buttonhöhe,buttonbreite,Radiogroup"Symbol",RadioGroup"SymbolPosition";
begin
save:=tstringlist.create;
if cbleiste.checked then
save.add('t')
else
save.Add('f'); //wenn die checkbox ein...
Forum: Object-Pascal / Delphi-Language
by Demon666,
26. Jun 2010
Also beim schließen greif ich nicht dauf zu. Was meinst du mit "freigegeben"? (Bin Delphi neuling)
Forum: Object-Pascal / Delphi-Language
by Demon666,
26. Jun 2010
Ok danke der fehler ist jetzt behoben... und ein neuer ist aufgetreten.
Beim Schließen des Programms bekomme ich die Meldung ..."Zugriffsverletzung bei Adresse 00460985"... mit verweis auf die zeile If Formoptionen.CBleiste.Checked=false then in der prozedur Darstellunganpassen
Forum: Object-Pascal / Delphi-Language
by Demon666,
26. Jun 2010
ok aber es muss in der onshow procedure von Form1 liegen oder? dann poste ich die mal komplett:
procedure TForm1.FormShow(Sender: TObject);
var save:tstringlist;
begin
save:=tstringlist.create;
save.LoadFromFile('save.txt');
if save='f' then
formoptionen.CBLeiste.Checked:=false
Forum: Object-Pascal / Delphi-Language
by Demon666,
26. Jun 2010
Die Liste RGSymbol hat die 3 Einträge und die Liste RGSymbolPosition hat 4. Passt also alles oder?
Forum: Object-Pascal / Delphi-Language
by Demon666,
26. Jun 2010
Hi leute
Ich hab ein Problem. Wenn ich mein Programm starte bekomme ich die Meldung "Listenindex Überschreitet sein Maximum (3)". Ich poste mal einfach den Teil meines Quellcodes den ich geschrieben hab bevor der Fehler aufgetreten ist.
Case FormOptionen.RGSymbol.ItemIndex of
0: begin
BtOeffnen.Glyph.loadfromfile('Bilder\Öffnen.bmp');
BtOeffnen.Caption:='Öffnen';
...