AGB  ·  Datenschutz  ·  Impressum  







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

Dialoganzeige Abbrechen

Ein Thema von Berni68 · begonnen am 27. Aug 2009 · letzter Beitrag vom 27. Aug 2009
 
Berni68

Registriert seit: 9. Jan 2006
Ort: Villingen
162 Beiträge
 
Delphi XE5 Professional
 
#1

Dialoganzeige Abbrechen

  Alt 27. Aug 2009, 09:19
Hallo zusammen,

wie schließe ich einen modal angezeigten Dialog im Ereignis OnShow.
Folgendes hab ich schon probiert:

Delphi-Quellcode:
type
  TDialog. = class(TForm)
  ...
  private
    CanShow: boolean;
  ...
  end;

procedure TDialog.FormShow(Sender: TObject);
begin
  // Prüfungen ob Dialog angezeigt werden darf negativ:
  CanShow:= false;
  Exit;
  // Code wenn Prüfung positiv
end;

procedure TDialog.FormActivate(Sender: TObject);
begin
  if CanShow=false then ModalResult:= mrCancel;
    // geht nicht Dialog wird trotzdem angezeigt

  if CanShow=false then BitBtnCancelClick(Sender);
   // geht auch nicht Dialog wird trotzdem angezeigt, kann dann aber über BitBtnCancel geschlossen werden

  if CanShow=false then Hide;
    // geht auch nicht Dialog wird trotzdem angezeigt
end;
hat jemand mal einen Tip?
Bernhard
  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 00:48 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 by Thomas Breitkreuz