AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Windowstasten sperren

Ein Thema von No Voices · begonnen am 2. Mär 2004 · letzter Beitrag vom 3. Mär 2004
 
Benutzerbild von Steve
Steve

Registriert seit: 2. Mär 2004
Ort: Würzburg
730 Beiträge
 
Delphi 2006 Personal
 
#20

Re: Windowstasten sperren

  Alt 3. Mär 2004, 14:26
Servus,

das mit ALT+F4 bekommst Du ganz einfach in den Griff, z.B. so:

Delphi-Quellcode:
VAR
  Schliessen : Boolean;
{...}

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  { Fenster nur bei Klick auf Button Schließen! }
  Action := caNone;
  IF Schliessen THEN Action := caFree;
end;

{ **************************************************************************** }

procedure TForm1.BtnClick(Sender: TObject);
begin
  { Gibt an, dass das Fenster nun geschlossen werden darf }
  Schliessen := TRUE;
  Close;
end;

Dann ist das Schließen über die Titelzeile halt auch nimmer möglich, sondern Du musst selber nen Button, Menüpunkt oder sonstwas dafür bereitstellen.
[edit]Oder Du kannst natürlich "Action" auch davon abhängig machen, was das Prog grade macht usw... Bist da bestimmt flexibel [/edit]
Mfg
Stephan
Stephan B.
Wer andern eine Grube gräbt ist Bauarbeiter!
Wer im Glashaus sitzt, sollte sich lieber im Dunkeln ausziehen!
Außerdem dieser Satz kein Verb...
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:04 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz