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