CanClose ändern???

[Muellermilchtrinker]

Hallo DP,

erstmal muss ich mich an das neue Design gewöhnen. Alles ist anders :-D.

Aber back to topic:

Ich setzte im CloseQuery Ereignis einer meiner Forms Canclose auf False.
Jetzt ist das aber so. Ich möchte diese Form nur mit einer eigenen Prozedur beenden. D.h. ich hab meine Prozedur und die nenne ich jetzt mal als Beispiel FClose.

Delphi-Quellcode:

procedure FClose;
begin
  ...
  close;
end;

In dieser hab ich ein paar Anweisungen und danach soll sich die Form schließen. Da ich aber CanClose auf False gesetzt habe muss ich es ja wieder auf True setzen um die Form zu schließen.
Mein Problem ist aber, wie setze ich CanClose außerhalb vom CloseQuery Ereignis wieder auf True???
Ach und Application.Terminate kann ich nicht nutzen, weil mein Programm noch laufen soll. :stupid:

[daywalker9]

Delphi-Quellcode:

  PostMessage(Handle, CM_RELEASE, 0, 0);

Das könntest du an deine Form schicken - dann wird die Form gefreet.

[Muellermilchtrinker]

Funktioniert leider nicht.

[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. :gruebel:

[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?

[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]

[Muellermilchtrinker]

Zitat:

Zitat von Luckie (Beitrag 1025983)

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?

[Muellermilchtrinker]

Zitat:

Zitat von Luckie (Beitrag 1025983)

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.

[Delphi-Narr]

Zitat:

Zitat von Muellermilchtrinker (Beitrag 1025989)

Zitat:

Zitat von Luckie (Beitrag 1025983)

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!

[Delphi-Narr]

Zitat:

Zitat von Muellermilchtrinker (Beitrag 1025989)

Zitat:

Zitat von Luckie (Beitrag 1025983)

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...

Zitat:

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

Da gibt es doch verschiedene Nutzungsmöglichkeiten:
Eine Art Desktoplock Programm, welches den Desktop sperrt, ohne sich abzumelden oder den Computer auf Windows-Basis zu sperren und andere Anmeldemöglichkeiten zu erstellen (Mausgesten, Bestimmte Reihenfolge von Buttons anklicken, etc.)
Bestimmt auch an öffentlichen PCs nützlich (Internet-Cafes), wenn das Programm sich nach beispielsweise 10 Minuten wieder vor die normalen Anwendungen schalten soll, damit entweder Geld nachgezahlt werden soll oder man auf Beenden klickt und so die Sitzung beendet...

Also Anwendungsgebiete gibt es genug...


Liebe Grüße!

//Edit Versuch 2: Sorry für Doppelpost, ich habe auf Edit geklickt. Jetzt klappts ja wohl. Kann mal bitte jemand prüfen ob das nur ein Einzelfall war oder ob das ein allgemeiner Fehler ist?!!

[Luckie]

Zitat:

Zitat von Delphi-Narr (Beitrag 1026080)

Da gibt es doch verschiedene Nutzungsmöglichkeiten:...

Und warum nicht einfach LockWorkStation aufrufen? Dann ist der Computer wirklich sicher gesperrt ohne dass man da was rumfrickeln muss und ohne dass man sich da selber irgendwelche Sicherheitslücken einbaut.

[Delphi-Narr]

Zitat:

Zitat von Luckie (Beitrag 1026140)

Und warum nicht einfach LockWorkStation aufrufen? Dann ist der Computer wirklich sicher gesperrt ohne dass man da was rumfrickeln muss und ohne dass man sich da selber irgendwelche Sicherheitslücken einbaut.

Wie gesagt, um zum Beispiel noch Kommunikation mit einem passenden Serverprogramm zu ermöglichen.
Einige Programme stellen auch den Dienst bei Sperrung der WorkStation ein. So zum Beispiel einige MediaPlayer. So ist es unmöglich, den PC zu sperren, wenn man Besuch hat und über diesen Musik laufen hat. Und wie gesagt ist so eine Sperre möglich, die nicht auf Fingerabdruck, Passwort oder Gesichtserkennung basiert.
Zusätzlich gibt es Computersysteme (öffentlich), die absichtlich den Desktop deaktivieren (Also nur ein Hintergrundbild) und es so zu einer Fehlermeldung kommt, wenn man Win+D drückt. Wenn man dann nebenbei ein kleines Miniprogramm laufen hat, so kann dieses den Befehl Win+D abfangen und beispielsweise durch Win+M (also nur minimieren) ersetzen und so die Fehlermeldung umgehen.


Liebe Grüße!