Nur wenn beide RadioButtons deaktiviert sind
1. Sep 2005, 19:24
procedure TForm1.Button1Click(Sender: TObject);
begin
if RadioEin.Checked then Neu:= StrToFloat (Edit2.Text);
if RadioEin.Checked then ChecklisteEin.Lines.Add (Edit1.Text) ;
if RadioEin.Checked then Gewinn:= (Gewinn + Neu) ;
if RadioEin.Checked then Panel1.Caption:= Floattostr (Gewinn);
if RadioAus.Checked then Neu:= StrToFloat (Edit2.Text) ;
if RadioAus.Checked then ChecklisteAus.Lines.Add (Edit1.Text);
if RadioAus.Checked then Gewinn:= (Gewinn - Neu) ;
if RadioAus.Checked then Panel1.Caption:= Floattostr (Gewinn) ;
if RadioAus.enabled = true and ..........??????...... then ShowMessage ('Ein- oder Ausgabe anklicken');
end;
Ich möchte gern das er die Nachricht nur anzeigt, wenn beide radiobuttons nicht aktiviert sind.
|