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