Einzelnen Beitrag anzeigen

homerunjack

Registriert seit: 22. Aug 2005
31 Beiträge
 
#1

Nur wenn beide RadioButtons deaktiviert sind

  Alt 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.
  Mit Zitat antworten Zitat