SelectDirectoryDialog neuer Ordner [gelöst]

[haderlump]

Wenn ich selectDirectoryDialog aufrufe bekomme ich den aktuellen Orner zu sehen.
Wenn ich auf den Button neuer Ordner klicke, tut sich nichts, ausser dass der Debuger in den Assembler springt, wo er nicht mehr rauskommt.
Was mache ich falsch?

Der Code:

Code: Alles auswählen

procedure THauptform.MMNeueAnlageClick(Sender: TObject);
var pfad_neu:string;
begin
  Hauptform.SelectDirectoryDialog.Execute;
  pfad_neu := Hauptform.Selectdirectorydialog.FileName;
end;                                                        

Letztlich will ich einen neuen Ordner anlegen und den Pfad dazu bekommen.

Gruß Fritz

[Dee]

Empfehlenswert ist es, die Execute-Methode folgendermaßen zu verwenden:

Code: Alles auswählen

 
// neuen Pfad nur dann zuweisen, wenn auf "Ordner auswählen" geklickt wurde
if SelectDirectoryDialog.Execute then
begin
  pfad_neu := SelectDirectoryDialog.FileName;
end;

Fehlen dir eventuell Schreibrechte des Ordners? Was genau sagt denn der Debugger? Es könnte auch helfen, die aktuellste Version von Lazarus zu installieren, falls du das noch nicht getan haben solltest.

[theo]

Und wenn du den Debugger ausschaltest?
S.a.
http://wiki.lazarus.freepascal.org/GDB_ ... b_to_crash

[haderlump]

Danke für die hilfreichen Antworten. Es war tatsächlich der Debugger. Wenn ich das Programm direkt laufen lasse geht es. Und im Debugger geht auch das Auswählen, und das reicht mir einstweilen.
Gruß Fritz