ich hab ca. 20 andere Formulare, die jeweils haargenau die selben Variablen ud die selben Prozeduren verwenden und bei denen es einwandfrei funktioniert.
Ausserdem schreib ich nirgends was in Variablen oder so..
Das hier ist der komplette Code:
Delphi-Quellcode:
procedure TtfKonten.LoadKontenToTreeView;
begin
with tvKonten.Items do
begin
AddChild(nil,cKontodaten);
AddChild(nil,cAnsprechpartner);
AddChild(nil,cOptionen);
AddChild(nil,cNotizen);
AddChild(nil,cZahlungen);
end;
end;
{******************************************************************************}
procedure TtfKonten.FormCreate(Sender: TObject);
begin
OpenedForms[ftKonten]:=True;
if Owner is TtfMain then
FormStyle:=fsMDIChild;
ChangeMode(BenutzerEinstellungen.ErsteModulAnsicht);
ChangeShowedPart(spZahlung);
LoadKontenToTreeView;
end;
{******************************************************************************}
procedure TtfKonten.FormClose(Sender: TObject; var Action: TCloseAction);
begin
OpenedForms[ftKonten]:=False;
Action:=caFree;
end;
{******************************************************************************}
procedure TtfKonten.FilterActivate(AFActive : Boolean);
var
b : TBitmap;
begin
//unvollständig
if AFActive then
sbFilter.Action:=Filter_deactivate
else sbFilter.Action:=Filter_Activate;
//Bild auf Speedbutton setzen
b:=TBitmap.Create;
AMKonten.Images.GetBitmap(TAction(sbFilter.Action).ImageIndex,b);
sbFilter.Glyph:=b;
b.Free;
end;
{******************************************************************************}
procedure TtfKonten.Filter_DeactivateExecute(Sender: TObject);
begin
FilterActivate(False);
end;
{******************************************************************************}
procedure TtfKonten.Filter_ActivateExecute(Sender: TObject);
begin
FilterActivate(True);
end;
{******************************************************************************}
procedure TtfKonten.EditExecute(Sender: TObject);
begin
ChangeMode(mtEdit);
end;//Hier ist ein Haltepunkte , bis hierhin funkitoniert alles einwandfrei, erst danach kommt ein Fehler
{******************************************************************************}
procedure TtfKonten.BrowseExecute(Sender: TObject);
begin
ChangeMode(mtBrowse);//
end;//Hier ist ein Haltepunkte , bis hierhin funkitoniert alles einwandfrei, erst danach kommt ein Fehler
{******************************************************************************}
procedure TtfKonten.SchliessenExecute(Sender: TObject);
begin
Close;
end;
{*******************************************************************************
****In ChangeMode wird der Modus in den Übergebenen Modus gewechselt************
****hierbei wird das jeweilige Panel im Zentrum ********************************
****und der entsprechende Button in der Toolbar angezeigt***********************
*******************************************************************************}
procedure TtfKonten.ChangeMode(AMode : TModeTypes);
var a: TAction;
begin
pEditMode.Visible:= AMode = mtEdit;
PBrowseMode.Visible:= AMode = mtBrowse;
pZahlungen.Visible:= AMode = mtZahlung;
if AMode = mtEdit then a:=Browse
else a:=Edit;
AMKonten.ActionBars.BeginUpdate;
AMKonten.ActionBars[0].Items[7].Action:=a;//Hier weise ich die Action zu!!
{if AMode = mtBrowse then
AMKonten.ActionBars[0].Items[7].Action:=Edit
else AMKonten.ActionBars[0].Items[7].Action:=Browse;
AMKonten.ActionBars.EndUpdate;
Caption:=Format('Kontenübersicht [%s]',[ModeStrings[AMode]]);}
end;
{******************************************************************************}
procedure TtfKonten.tvKontenChange(Sender: TObject; Node: TTreeNode);
begin
{
try
with tvKonten do
begin
ChangeShowedPart(spNone);
if Selected.Text = cKontodaten then
ChangeShowedPart(spKontodaten)
else if Selected.Text = cOptionen then
ChangeShowedPart(spOptionen)
else if Selected.Text = cNotizen then
ChangeShowedPart(spNotizen)
else if Selected.Text = cAnsprechpartner then
ChangeShowedPart(spAnsprechpartner)
else if Selected.Text = cNotizen then
ChangeShowedPart(spNotizen);
end;
except
end;}
end;
{******************************************************************************}
procedure TtfKonten.ChangeShowedPart(APart : TShowingParts);
begin
pKontodaten.Visible:=APart = spKontodaten;
pNotizen.Visible:=APart = spNotizen;
pOptionen.Visible:= APart = spOptionen;
pZahlung.Visible:= APart = spZahlung;
pAnsprechpartner.Visible:= APart = spAnsprechpartner;
end;
{******************************************************************************}
procedure TtfKonten.Zahlungen_zuweisenExecute(Sender: TObject);
begin
ChangeMode(mtZahlung);
end;
Diese Case-Anweisung hab ich schon paarmal überarbeitet in den letzten 1,5 Stunden.. deswegen ists nichtmehr ganz so wie ichs oben geschrieben hab...