Wo ist der Fehler ?

[PsTo]

Sobald ich in meinem programm ein Opendialog ausführe, und dieses in einem label anzeige, und danach auf MainMenu gehe und klicke, schliesst sich das programm

Delphi-Quellcode:

procedure TForm1.Image4Click(Sender: TObject);
begin
Form1.OpenDialog1.Execute;
Form1.sPanel1.Caption:=Form1.OpenDialog1.Filename;
end;

weiss jemand hilfe? finde den fehler nicht

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]

[divBy0]

besser ist:

Delphi-Quellcode:

procedure TForm1.Image4Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    sPanel1.Caption := OpenDialog1.Filename;
end;

Was ist denn in MainMenu deklariert?

[PsTo]

Zitat von divBy0:

besser ist:

Delphi-Quellcode:

procedure TForm1.Image4Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    sPanel1.Caption := OpenDialog1.Filename;
end;

Was ist denn in MainMenu deklariert?

Danke. Habs mal geändert im code, problem bleibt aber weiterhin.
Also das Mainmenu ist unverändert, und beinhaltet nur zwei Menuteile mit paar unterordnern, wobei keines dieser ein event enthält

[quendolineDD]

Schließt sich das Programm mit einer Fehlermeldung? Und wenn ja, mit welcher?
Ansonsten, wie ist das MainMenu implementiert?

[PsTo]

Zitat von quendolineDD:

Schließt sich das Programm mit einer Fehlermeldung? Und wenn ja, mit welcher?
Ansonsten, wie ist das MainMenu implementiert?

Nein, es erscheint keine fehlermeldung. das programm schliesst einfach ohne ton oder meldung.
Das Mainmenu allgemein geht aber (auch nach dem drücken anderer buttons im code), es ist nur nach dem opendialog wo es sich schliesst.
Also Habe mainmenu nur als komponente in die form genommen, unter type oder im code wird mainmenu nirgendwo benutzt.

[quendolineDD]

Poste mal den ganzen Quelltext. Bisher ist nicht ersichtlich woher die unerwartete Reaktion stammt.

[PsTo]

Also die anderen proceduren gehen. die blocken mainmenu nicht, das habe ich schon durchgetestet.
Ebenfalls seltsam ist, dass ich eben meinmenu neu reingemacht habe, ohne unterseiten, da gings, und mit unterseiten gehts wieder nicht mehr.
sollte es am schluss wirklich keine lösung mehr geben, werde ich trotzdem mal quellcode reinmachen.
die prozedur image4click beinhaltet jedoch nur die beiden zeilen, und n dieser liegt es demnach.

edit: der fehler liegt weder am untermenu des mainmenu, oder am opendialog.execute :S

[divBy0]

Hast du vielleicht eine Actionlist auf der Form, die mit dem Mainmenu verknüpft ist?

Welche Delphiversion benutzt du?

[PsTo]

Zitat von divBy0:

Hast du vielleicht eine Actionlist auf der Form, die mit dem Mainmenu verknüpft ist?

Welche Delphiversion benutzt du?

Könntest du mir das mit der actionlist genauer erklären?
ich nutze delphi 7

[divBy0]

Schau am besten mal in der OH nach, da ist die TActionlist gut erklärt.

Aber wenn du keine drauf hast, kann es daran nicht liegen. Zeig doch einfach mal den Code.