AGB  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Warnen vor dem schließen

Ein Thema von schmitty89 · begonnen am 22. Feb 2012 · letzter Beitrag vom 22. Feb 2012
Antwort Antwort
Seite 1 von 2  1 2   
schmitty89

Registriert seit: 21. Feb 2012
11 Beiträge
 
#1

Warnen vor dem schließen

  Alt 22. Feb 2012, 09:46
Delphi-Quellcode:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  public
    z :integer;
    versuche :integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.FormCreate(Sender: TObject);
 begin
   randomize;
   z := random(100)+1;
   versuche :=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
 var r : integer;

 begin
   r := StrToInt(edit1.Text);
   versuche :=versuche+1;

       if r < z then Label2.Caption := 'Zu niedrig'
   else if r > z then Label2.Caption := 'Zu hoch'
   else if r = z then Label2.Caption := 'Erraten';
   Label4.Caption :=IntToStr(Versuche);
 end;
 end.
Hallo,

dieses mal soll gewarnt werden wenn jemand auf schließen klickt- nun meine Frage:

Wie verbinde ich die Schließenfunktion mit einem Popup oder wie würdet ihr das umsetzen?
  Mit Zitat antworten Zitat
Medium

Registriert seit: 23. Jan 2008
3.037 Beiträge
 
Delphi 2007 Enterprise
 
#2

AW: Warnen vor dem schließen

  Alt 22. Feb 2012, 09:48
Delphi-Quellcode:
procedure TForm1.OnCloseQuery(Sender: TObject; CanClose: Boolean);
begin
  if MessageDlg('Echt schließen?', mtConfirmation, [mbYes, mbNo], 0) = mrNo then
    CanClose := false;
end;
Wäre ein einfacher und sauberer Weg.
"When one person suffers from a delusion, it is called insanity. When a million people suffer from a delusion, it is called religion." (Richard Dawkins)
  Mit Zitat antworten Zitat
Benutzerbild von Sherlock
Sherlock

Registriert seit: 10. Jan 2006
Ort: Offenbach
1.652 Beiträge
 
Delphi XE2 Professional
 
#3

AW: Warnen vor dem schließen

  Alt 22. Feb 2012, 09:49
Delphi-Referenz durchsuchenOnCloseQuery
Edit: Mift, Medium war schneller...

Sherlock
Geändert von Sherlock (Morgen um 16:78 Uhr) Grund: Weil ich es kann
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
24.510 Beiträge
 
Delphi XE Professional
 
#4

AW: Warnen vor dem schließen

  Alt 22. Feb 2012, 09:51
Und wenn man den Vorgabewert von CanClose nicht kennt:
CanClose := MessageDlg(...) = mrYes;
Detlef
Wenn Dein Programm nicht macht, was es soll, nenn es einfach "Version 1.0"

Delphi programming is cool
  Mit Zitat antworten Zitat
Popov

Registriert seit: 15. Mai 2005
Ort: Köln
2.130 Beiträge
 
Delphi 7 Professional
 
#5

AW: Warnen vor dem schließen

  Alt 22. Feb 2012, 09:53
Was verstehst du unter schließen? Programm beenden? Wenn ja, im Hauptformular unter Ereignisse in OnCloseQuery der Variable CanClose auf False setzten, oder eine Abfrage einbauen. Und wozu ein PopUp? PopUp kennt die Methode Popup(X, Y). Damit kannst du die Position steuern.
Popov
Abrakadabra, Embarcadero, dreimal schwarzer Kater...
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
24.510 Beiträge
 
Delphi XE Professional
 
#6

AW: Warnen vor dem schließen

  Alt 22. Feb 2012, 09:54
Guten Morgen auch
Detlef
Wenn Dein Programm nicht macht, was es soll, nenn es einfach "Version 1.0"

Delphi programming is cool
  Mit Zitat antworten Zitat
Popov

Registriert seit: 15. Mai 2005
Ort: Köln
2.130 Beiträge
 
Delphi 7 Professional
 
#7

AW: Warnen vor dem schließen

  Alt 22. Feb 2012, 09:57
Morgen
Popov
Abrakadabra, Embarcadero, dreimal schwarzer Kater...
  Mit Zitat antworten Zitat
Benutzerbild von Jonas Shinaniganz
Jonas Shinaniganz

Registriert seit: 30. Aug 2011
236 Beiträge
 
Delphi XE5 Ultimate
 
#8

AW: Warnen vor dem schließen

  Alt 22. Feb 2012, 10:50
Soweit Ich aus dem letzten Thema noch weiß, wolltest du diese Abfrage nur haben, falls der Vorgang noch läuft. (dh. die Zahl noch nicht erraten wurde).
Delphi-Quellcode:
if (r = z) then
begin
  Close;
end
else
begin
  ShowMessage('Erst zuende raten.');
end;
Du könntest die Abfrage auch mit den netten Beiträgen meiner Vorredner kombinieren, falls trotzdem geschlossen werden darf.
Hier müsste man wirklich erst zuenderaten. Allerdings beachten die anderen Lösungen nicht, das nur gefragt wird wenn die Zahl noch nicht erraten ist.

Grüße
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
24.510 Beiträge
 
Delphi XE Professional
 
#9

AW: Warnen vor dem schließen

  Alt 22. Feb 2012, 10:55
Bei jedem Klick auf den Button eine Message, dass ich erst zu Ende raten soll, obwohl ich nichts Gegenteiliges signalisiert habe? Das würde mich als Anwender aber sehr verwirren.
Detlef
Wenn Dein Programm nicht macht, was es soll, nenn es einfach "Version 1.0"

Delphi programming is cool
  Mit Zitat antworten Zitat
Benutzerbild von Jonas Shinaniganz
Jonas Shinaniganz

Registriert seit: 30. Aug 2011
236 Beiträge
 
Delphi XE5 Ultimate
 
#10

AW: Warnen vor dem schließen

  Alt 22. Feb 2012, 11:00
Bei jedem Klick auf den Button eine Message, dass ich erst zu Ende raten soll, obwohl ich nichts Gegenteiliges signalisiert habe? Das würde mich als Anwender aber sehr verwirren.

Ehrlich? Also wenn Ich als Anwender vom Programm darüber informiert werde, dass ein Vorgang noch nicht beended wurde, finde Ich das nicht allzuweit hergeholt. Eher okay ^_^

Allerdings sollte es nicht 'erst zu Ende raten' heißen sondern vielleicht ein Messagefenster aufrufen, so wie Ihr es oben gezeigt habt bei dem dann trotzdem geschlossen werden kann.
Dann könnte man auch noch höflicher Fragen.

So meinte ich des
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:23 Uhr.
Powered by vBulletin® Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2014 by Daniel R. Wolf