Registriert seit: 29. Mai 2002
37.621 Beiträge
Delphi 2006 Professional
|
AW: CanClose ändern???
6. Jun 2010, 16:49
Delphi-Quellcode:
type
TForm10 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
private
{ Private-Deklarationen }
FCanClose: Boolean;
public
{ Public-Deklarationen }
end;
var
Form10: TForm10;
implementation
{$R *.dfm}
procedure TForm10.Button1Click(Sender: TObject);
begin
FCanClose := True;
Close;
end;
procedure TForm10.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := FCanClose;
end;
procedure TForm10.FormCreate(Sender: TObject);
begin
FCanClose := False;
end;
Was macht denn Strg+D?
Michael Ein Teil meines Codes würde euch verunsichern.
|