CanClose ändern???

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

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

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 von Delphi-Narr:

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.

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