CanClose ändern???

[jaenicke]

Wäre auch sinnfrei.

Wenn du Close selbst aufrufst, dann musst du vorher dafür sorgen, dass dein Ereignishandler CanClose dabei dann nicht auf False setzt. Fertig. Dafür bietet sich ein boolsches Feld des Formulars an.

[Muellermilchtrinker]

Und wie mach ich das. Des würde ich ja gerne wissen.

[freak4fun]

Kann deine Funktion die ein paar Sachen macht nicht im CanClose-Event aufgerufen werden und das Ergebnis ist dann True?

[Muellermilchtrinker]

Ich will aber nicht, dass man die Form mit Alt+F4 schließen kann.
PS: Ich will Strg+D auch noch deaktivieren. Ansatz??

[Luckie]

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?

[Muellermilchtrinker]

Zitat von Luckie:

Was macht denn Strg+D?

Upps ich meinte doch Win+D.

[Luckie]

Darf man fragen, was das für ein Programm werden soll, mit dem du dem Benutzer mehr oder weniger die Kontrolle über seinen Rechner nehmen willst?

Davon mal abgesehen, hast du schon mal die Suche nach Win+D bemüht?

[Delphi-Narr]

Zitat von Muellermilchtrinker:

Zitat von Luckie:

Was macht denn Strg+D?

Upps ich meinte doch Win+D.

Das wüsste ich auch gerne...
Ich habe schon seit Freitag gesucht, da hier ja leider zu war, aber nichts gefunden.
In dem Zusammenhang ist auch Alt+Tab Relevant, da hier auch der Desktop angezeigt wird...

Liebe Grüße!

[Muellermilchtrinker]

Zitat von Luckie:

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;

Hat funktioniert. Danke

Edit: Es ist ein kleiner IphoneLockscreen Klon. Kleiner Passwortschutz. Entsteht aber nur zum Spaß und nur für mich.
Und nach Win+D hab ich noch nicht gesucht, werd ich aber gleich machen.

[DeddyH]

Delphi-Quellcode:

type
  TDeinForm = class(TForm)
  private
    FCloseAllowed: Boolean;
...

procedure TDeinForm.CloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := FCloseAllowed;
end;

procedure TDeinForm.MachZu;
begin
  FCloseAllowed := true;
  Close;
end;

Ungetestet, da direkt im Editor eingetippt.

[edit] Zu langsam *grmpf* [/edit]