Inputbox Eingabe als "*********"

[gordon freeman]

Hi,
ich wollte mir ein Modal angezeigtes Form bauen, was genau wie nach deiner Anleitung beschrieben angezeigt werden soll. Es wird eine TXT-Datei angezeigt und dann kann das Form mit einem Klick auf den Weiter-Button geschlossen werden. Allerdings schließt sich das Form nicht. Hier der Quelltext:

Delphi-Quellcode:

unit UFrmMsg;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TFrmMsg = class(TForm)
    MemoMsg: TMemo;
    BtnContinue: TButton;
    procedure BtnContinueClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    function ShowModal(MsgFilePath : string):boolean;    
  end;

var
  FrmMsg: TFrmMsg;
  aborted : boolean;

implementation

{$R *.DFM}

{ TFrmMsg }

function TFrmMsg.ShowModal(MsgFilePath: string): boolean;
begin
  aborted := true;
  MemoMsg.Clear;
  try
    MemoMsg.Lines.LoadFromFile(MsgFilePath);
  except
    Application.MessageBox('An Error occured opening the file','File not found',MB_OK);
  end;
  inherited ShowModal;
  result := not aborted;
end;

procedure TFrmMsg.BtnContinueClick(Sender: TObject);
begin
  aborted := false;
end;

procedure TFrmMsg.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Application.Terminate;
end;

end.

@Mods Ich weiß, dass gilt: Neue Frage - Neuer Thread, allerdings hängt meine Frage IMHO direkt mit der hier gestellten Frage zusammen. Wenn ihr nicht der Ansicht seit, verschiebt meine Frage bitte in einen geeigneten Bereich.

tia, Martin