Hallo ich weiß leider nicht mehr weiter! Ich bin so schlecht in Quelltext erstellen, weil ich nicht weiß was ich da immer einsetzen soll ...
Ich habe ja da schon etwas versucht, aber mein Lazarus zeigt mir Fehler an!
...
Was will ich eigentlich machen, fragt ihr euch bestimmt?! ..
Ich möchte eine Verweigung einsetzen, wenn ich auf einen RadioButton klicke, dass dann im EditFeld richtig bzw. Falsch angezeigt wird!
Ja aber bei der Umsetzung harperts leider
ich hoffe ihr könnt mir helfen?
Code:
unit Unit3;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
Buttons;
type
{ TForm3 }
TForm3 = class(TForm)
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
LoesungEdit1: TEdit;
GroupBox1: TGroupBox;
Label1: TLabel;
Antwort1RadioButton1: TRadioButton;
Antwort2RadioButton2: TRadioButton;
Antwort3RadioButton3: TRadioButton;
Antwort4RadioButton4: TRadioButton;
procedure Antwort1RadioButton1Change(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form3: TForm3;
implementation
{$R *.lfm}
{ TForm3 }
procedure TForm3.Antwort1RadioButton1Change(Sender: TObject);
var Eingabe : String;
begin
if Frage = Antowrt1
begin
then Ausgabe.LoesungEdit1:= 'Richtig!'
end;
end.