Hallo Leute, ich habe folgendes problem:
Ich habe eine Hauptform und einige Unterformen. Darunter ist auch eine Form (ExtraForm), wo ich alle Personen Sehe, die von heute bis in 7 Tagen Geburtstag haben. Nun habe ich in der ExtraForm eine Checkbox eingebaut. Wenn der User diese aktiviert, dann soll sich diese Form automatisch beim Start öffnen, so dass er nie vergisst, wer Geburtstag hat. Wenn er die Checkbox nicht aktiviert, dann kann man mit einem Button auf diese Form zugreifen.
Dieser Button beinhaltet auch einen Code, damit die Kunden gefiltert werden.
Nun. Ich habe folgendes in die Hautpform geschrieben:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
| procedure TKundendaten.save_inifile;
var
Ini : TIniFile;
begin
Ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'settings.ini' );
Ini.WriteBool('Sektion1','check_box',ExtraForm.CheckBox1.Checked);
Ini.Free;
end;
procedure TKundendaten.load_inifile;
var
Ini : TIniFile;
begin
Ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'settings.ini' );
ExtraForm.CheckBox1.Checked:=ini.ReadBool('Sektion1','check_box', true);
Ini.Free;
end;
procedure TKundendaten.FormShow(Sender: TObject);
begin
load_inifile;
if ExtraForm.CheckBox1.Checked Then Geburtsdatum.Click;
end; |
save_inifile und load_inifile habe ich auch noch so:
Quelltext
1:
2:
3:
4:
| public
{ Public-Deklarationen }
procedure save_inifile;
procedure load_inifile; |
In der ExtraForm habe ich beim onClick der checkbox folgendes stehen:
Quelltext
1:
2:
3:
4:
| procedure TExtraForm.CheckBox1Click(Sender: TObject);
begin
Kundendaten.save_inifile;
end; |
Es funktioniert fast alles. Es werden immer die richtigen werte in der INI-Datei geschrieben.
ABER die ExtraForm öffnet sich einfach nicht beim Starten des Programmes. Ich habe schon soviel probiert, aber es funktioniert einfach nicht.
Was kann ich da nur noch tun?
PS: Muß ich bei der ExtraForm bei Visible auf etwas achten? dort steht 'false'
