Announcement

**Gesine Kuhlmann** · 06.08.2001, 12:21

Hi,

Und wie willst du bei Dialogen vorgehen, die eine Entscheidung des Nutzers verlangen ??

Gruß
Gesin

**Dr.med.Bernhard Schwabe** · 06.08.2001, 13:10

Hi Gesine, schön gerade von Dir zu hören. Habe einiger Deiner Beiträge bereits mit Interesse gelesen. Zur Sache:

Ich nehme grundsätzlich den worst-Case an.

Tritt ein Major-Problem in der application auf, ist ja in 99.5% der Fälle sowieso nur der mbOK zu betätigen.

In der Programmierung kann ich für den user entscheiden. Das Programm läuft auf einer Intensiv-Station im Krkhs. Insofern ist ohnehin im Programm definiert, was auf keinen Fall aus "Versehen" passieren darf.

Insofern ist die automatische Entscheidung immer der Abbruch der begonnen Aktion. Das Problem liegt darin, dass die Form die msgbox nicht zerstört(logisch), sich aber dennoch verabschiedet. Beim Einloggen komme ich aber nicht wieder in den Zustand ante zurück. (Da fehlt's dann an Gehirn bei mir)

Danke fürs kümmern

Gruß, Bernhard :

**Christian Seehase** · 06.08.2001, 14:07

Hallo Bernhard, 
 
anbei ein kleines Muster wie Du vorgehen könntest. 
Ich gehe dabei davon aus, dass Du die normale MessageDlg Komponente verwendest. 
 
Ich verwende auf dem Formular zwei TEdit Felder, zwei TButton und einen TTimer. 
In Edit1 wird dabei der Name des zu schliessenden Fensters eingegeben, und in 
Edit2 der Name des zu klickenden Buttons. 
Bei den üblichen Dialog Fenstern kommt als Fensterklasse nur #32770 in Frage, und ist 
deshalb fest verdrahtet. 
Standardmässig ist das Timer.Interval auf 0 gesetzt. 
Mit Button1 wird es dann auf 1000 gesetzt (Start) und mit Button2 auf 0 (Stop). 
 
(btw: Kann mir mal jemand verraten, wie ich hier bei Sourcen die Formatierung beibehalten 
kann? So HTML fest bin ich nicht. Danke) 
 
unit MAIN; 
 
interface 
 
uses 
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
ExtCtrls, StdCtrls; 
 
type 
TForm1 = class(TForm) 
Timer1: TTimer; 
Edit1: TEdit; 
Button1: TButton; 
Button2: TButton; 
Edit2: TEdit; 
procedure Timer1Timer(Sender: TObject); 
procedure Button1Click(Sender: TObject); 
procedure Button2Click(Sender: TObject); 
private 
{ Private-Deklarationen } 
public 
{ Public-Deklarationen } 
end; 
 
var 
Form1: TForm1; 
 
implementation 
 
{$R *.DFM} 
 
procedure TForm1.Timer1Timer(Sender: TObject); 
 
Var 
hMessageDlg : THandle; 
hButton : THandle; 
bButtonFound : Boolean; 
sText : String; 
 
begin 
Timer1.Interval := 0; 
hMessageDlg := FindWindow(PChar('#32770'),PChar(Edit1.Text)); 
bButtonFound := False; 
hButton := GetWindow(hMessageDlg,GW_CHILD); 
While (hButton > 0) 
and 
(not bButtonFound) do 
Begin 
sText := StringOfChar(#00,Length(Edit2.Text)+1); 
GetWindowText(hButton,PChar(sText),Length(sText)); 
if Trim(sText) = Edit2.Text then 
Begin 
bButtonFound := True; 
end 
else 
Begin 
hButton := GetWindow(hButton,GW_HWNDNEXT); 
end; 
end; 
if bButtonFound then 
Begin 
SendMessage(hButton,BM_CLICK,0,0); 
end; 
Timer1.Interval := 1000; 
end; 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
Timer1.Interval := 1000; 
end; 
 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
Timer1.Interval := 0; 
end; 
 
end. 
 
 
Ciao 
Chris<br&gt

**Gesine Kuhlmann** · 06.08.2001, 14:11

Hi Bernhard,

Vor Anzeige eines MessageDlg startest/initialisierst Du einen Timer, in dessen OnTimer-Event folgendes steht um den Defaultbutton zu betätigen:

<pre>
procedure TFormMain.Timer1Timer(Sender: TObject);
begin
// Default-Button betätigen
keybd_event(VK_RETURN, MapVirtualKey(VK_RETURN,0), 0, 0);
keybd_event(VK_RETURN, MapVirtualKey(VK_RETURN,0), KEYEVENTF_KEYUP, 0);
end;
</pre>

Gruß
Gesine

P.S.:

Um zu erkennen ob der Dialog vom Anwender verlassen wurde oder der Timer abgelaufen ist, könntest Du eine globale Variable IsTimeOut in der Event-Methode setzen

**Dr.med.Bernhard Schwabe** · 06.08.2001, 16:29

Gesine und Christian !

Vielen Dank

Werde ein wenig experimentieren, und melde dann Ergebnis.
glUserTimeOut verwende ich bereits, also kann auch ein glIsMsgTimeOut dazu kommen

Herzlichen Dank

gruß, bernhard :

**Dr.med.Bernhard Schwabe** · 07.08.2001, 12:45

Gesine und Christian !

Vielen Dank für Eure Tips

Die Kombination von Euch Beiden ist genial!

(sorry)

Folgende Lösung funktioniert bestens

function AutoCloseMessage:Boolean;

var

hMEssageDlg : THandle;

sText : string;

begin

result := false;

sText := StringOfChar(#00,255);

hMessageDlg := GetActiveWindow;

GetClassName(hMessageDlg, PChar(sText),Length(sText));

if trim(sText) = 'TMessageForm' then begin

keybd_event (VK_RETURN, MapVirtualKey(VK_RETURN,0),0,0);

keybd_event (VK_RETURN, MapVirtualKey(VK_RETURN,0),KEYEVENTF_KEYUP,0);

result := true;

end;

end;

Nochmal vielen Dank für Eure Hilfe!

gruß, bernhard :

**Christian Seehase** · 08.08.2001, 17:03

Hallo Bernhard, 
 
was mir noch eingefallen ist: 
Bei der Methode die Du jetzt verwendest deckst Du 0,5% der Fälle 
eventuell nicht ab. (Jedenfalls, so wie Du es beschrieben hast) 
Ich meine die 0,5%

, die nicht nur mit OK Button zu bestätigen 
sind, denn wenn es mehr als ein Button ist besteht die Möglichkeit, 
das der Button, den Du mit Return drückst, nicht der ursprüngliche 
Default Button ist. 
Vielleicht funktioniert es bei Dir ja, wenn Du ersatzweise VK_ESCAPE 
nimmst. Bringt zumindest wenig Änderungsaufwand. 
 
Ciao 
Chri

**Dr.med.Bernhard Schwabe** · 10.08.2001, 08:34

Hallo Chris,

vielen Dank für Dank den Hinweis.

Ciao,
Bernhar

**Nico Bendlin** · 14.08.2001, 20:02

keybd_event halte ich für keine gute Idee.
Worste case: Windows hat beschlossen, das aus irgendeinem Grund die Festplatte formatiert werden muß (ist zufällig gerade voll geworden) und bringt wegen der Wichtigkeit seines Einfalles eine sytstemmodale MessageBox mit der Frage ja/nein/doch. Leider hat der Entwickler "vergessen", den Abbruch-Button als Default zu definieren... shade, daß keiner da ist, um dem Spektakel beizuwohnen =)

OK, es ist maßlos übertrieben und (fast) unrealistisch -- doch ich hoffe, Du weißt was ich meine: 
Wer garantiert Dir, das Deine Anwendung noch den Fokus hat.

Gruß Nico

PS: Alternativ einen Extra-Thread abspalten, der die MessageBox anzeigt, dies läßt sich gut in eine Funktion packen (ich hatte hier schon irgendwo mal ein Beispiel geschrieben...

**Hagen Reddmann** · 15.08.2001, 14:38

Besser als Keyb_event sollte der Aufruf Application.Terminate sein. Intern erkennt die MessageBox() das und kehrt dann sofort zur Anwendung zurück. Rückgabewert ist der Code des DefaultButton's.

Gruß Hage

Announcement

Wie kann ich ein messagedlg automatisch schließen ?

Wie kann ich ein messagedlg automatisch schließen ?

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment