unit kindeinheit;
interface
uses
{...}
type
Tkindfenster =
class(TForm)
zustandsleiste: TStatusBar;
SynEdit: TSynEdit;
{...}
procedure FormClose(Sender: TObject;
var Action: TCloseAction);
procedure SynEditChange(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
kindfenster: Tkindfenster;
implementation
uses haupteinheit;
{$R *.dfm}
procedure Tkindfenster.FormClose(Sender: TObject;
var Action: TCloseAction);
var m: Word;
begin
if (zustandsleiste.Panels[2].Text='
Geändert')
then
begin
m:=MessageDlg('
Das Dokument ' + kindfenster.Caption + '
ist nicht gespeichert. Wollen Sie vor dem Schließen speichern?', mtConfirmation, [mbYes, mbNo, mbCancel], 0);
if(m=mrCancel)
then
begin
action:=caNone;
Exit;
end;
if(m=mrNo)
then
begin
action:=caFree;
Exit;
end;
if(m=mrYes)
then
begin
hauptfenster.speichernExecute(Sender);
action:=caFree;
Exit;
end;
end
else begin
action:=caFree;
end;
end;
procedure Tkindfenster.SynEditChange(Sender: TObject);
begin
zustandsleiste.Panels[3].Text:=inttostr(SynEdit.CaretY)+'
: '+inttostr(SynEdit.CaretX);
zustandsleiste.Panels[2].Text:='
Geändert';
end;
end.