Hi Leute,
ich habe schon ne ganze weile in dem Forum gesucht aber nichts passendes zu meinen gefunden Problemen also poste ich die hier mal:
1.)
Ich habe ein Editfeld in das etwas eingegeben werden muss.
Wenn man da nichtes eingibt, also das Feld leer lässt dasnn kommt einen Message.
Sry EDIT Funktion hab ich ni gefunden also mache das so:
1.) hat sich geklärt ich habe das mit einem OnKeyPress Ereignis gelöst.
Wollte ich nur mal sagen
Huhu,
2.)
Beim drücken auf einen OK-Button soll geprüft werden ob ein
(einer von mehreren!) RadioButton aktiviert is oder nicht,
wenn nicht soll einen Message kommen die einen Auffordert ein
RadioButton zu aktivieren.
Wenn die Radiobuttons innerhalb eine RadioGroup sind, ist das sehr einfach: Prüfe, ob die Eigenschaft „ItemIndex“ der RadioGroup = -1 ist - dann ist kein Button ausgewählt.
LG
Jochen
Hallo,
Beim drücken auf einen OK-Button soll geprüft werden ob ein
(einer von mehreren!) RadioButton aktiviert is oder nicht,
wenn nicht soll einen Message kommen die einen Auffordert ein
RadioButton zu aktivieren.
schreib dir eine Funktion:
function TForm1.IsRadioButtonActive: Boolean;
var
i: Integer;
begin
Result := false;
for i := 0 to ControlCount -1 do begin
if Controls[i] is TRadioButton and TRadioButton(Controls[i]).Checked = true then begin
Result := true;
Exit;
end{if};
if Controls[i] is TRadioGroup and TRadioGroup(Controls[i]).ItemIndex \> -1 then begin
Result := true;
Exit;
end{if};
end{for};
end;
Diese Funktion gibt true zurück, wenn irgendein Radiobutton oder eine Radiogroup auf dem Formular gedrückt ist. Du kannst auch die Radiobuttons und Radiogroups einzeln abfragen. Das hat den Vorteil, dass du auch solche erfasst, die auf Panels liegen, hat aber den Nachteil, dass du bei jedem neuen Radiobutton / Radiogroup diese auch in der Funktion eintragen musst, während obige Funktion auch neu hinzukommende erfasst.
Gruß, Niels
Danke Leute für eure Antworten, hab die Version mit der Groupbox genommen da sie sowieso schon in so einer Box sind.
Hoffe ihr könnt mir auch bei meinen weiteren Problemen helfen
Hoffe ihr könnt mir auch bei meinen weiteren Problemen helfen
nur, wenn du sie uns auch nennst 
)
Kann mir das jemand genauer erklären? Bin absoluter Neuling was Delphi angeht und habe dasselbe Problem. Das heisst ich nutze einzelne RadioButtons, arbeite ohne RadioGroup und hätte gerne eine Meldung, wenn kein RadioButton aktiviert ist.
Bei den Edits hab ich das so hinbekommen:
if Edit1.Text = ‚‘ then
begin
showmessage (‚Geben Sie einen Wert ein‘);
exit;
end;
Wäre über Hilfe sehr dankbar!
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]