Hinweisfenster wird nicht angezeigt

[kingsusu]

http://img8.imageshack.us/img8/6227/problem1x.png

Hey Leute, ich hab ein Problem.

Kurz zum Programm - es ist eine Art Wecker:

Ich hab 2 Edit Felder und ein TMemo.



Im ersten soll man eine Art Überschrift haben (EdAlarm), im EdZeit schreibt man dann die Uhrzeit und in MemNachricht dann die Ausführliche Nachricht.

Hier ein Ausschnitt.

Im ersten Teil will ich, dass wenn nichts in den Feldern steht, dass dann ein Hinweis-Fenster mit: 'Erst alles ausfüllen' erscheint.

Delphi-Quellcode:

procedure TFHinzu.BtSpeichernClick(Sender: TObject);
var Index, Mode: Integer;
begin

Index:= FHaupt.listbox1.Itemindex ;

case Mode of
  1: begin
      if (edalarm.Text= '' ) or (edzeit.Text= '') or (memnachricht.Text= '')
        then
          begin
          Application.MessageBox ('Erst alles ausfüllen','Hinweis!',MB_iconerror);
            end

(und diesen Teil für das Zeitfenster(EdZeit) habe ich im Internet gefunden)

      else if (Length(edzeit.text) <5) or (Copy(edzeit.Text, 3, 1) <> ':') then
        begin
            Application.MessageBox('Faslches Format der Zeit, Nutze:' + #13 + ' "24:00" zeitformat.' , 'Fehler', MB_iconerror); 
                  
   
            exit;

Und wenn ich das so habe funktioniert es nicht - kein Hinweisfenster erscheint. Könnt ihr mir sagen wieso?

Lg

Kingsusu

Crosslink zu DF: http://www.delphi-forum.de/viewtopic.php?t=96694

[Sherlock]

Ok, also...wo füllst Du die Variable Mode?

So wies aussieht wird die lokal deklariert, und dann direkt in dem Case abgefragt....das läuft dann zu 99,9% anders ab als Du erwartest ;)

Sherlock