Fontfarbe ändern in dem ich daraufklicke?!

[CR3ATiV3]

doch für mich schon, da ich noch nicht so viel erfahrung mit lazarus habe ...
aber trotzdem dankeschön

[CR3ATiV3]

@DeedyH: ich habe es ausprobiert reinzuschreiben ,aber irgendwie klappt es nicht wie es sollte ...

Code:

unit Unit3; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls, ComCtrls, Buttons;

type

  { TForm3 }

  TForm3 = class(TForm)
    BitBtn1: TBitBtn;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    procedure BitBtn1Click(Sender: TObject);
    procedure Label2Click(Sender: TObject);
    procedure RadioButton1Change(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form3: TForm3; 

implementation



{$R *.lfm}

{ TForm3 }

procedure TForm3.RadioButton1Change(Sender: TObject);
begin
  Label1.Font.Color := green
end;


 procedure TForm3.BitBtn1Click(Sender: TObject);
 begin

 end;
end.

[twityzuz]

Das sieht schon gut aus aber du musst schreiben:

Label1.Font.Color:=clgreen Bei Farben musst du immer das 'cl' (für color) am Anfang hinschreiben

[DeddyH]

Richtig, man muss schon die Konstanten nehmen, die definiert sind (oder eben eigene definieren).

[CR3ATiV3]

Okay, jetzt funktionierts ...
aber ich habe noch etwas was ich gerne machen möchte und zwar, wenn ich den nächsten Button klicke, dass der Text 'richtig bzw falsch' wieder verschwindet ... oder das der text ohne irgendwo raufklicken wieder veschwindet ..
habt ihr da eine Idee wie ich das mache?

[DeddyH]

Welcher Text ist das denn?

[CR3ATiV3]

na, nach solch ein quelltext nach...

Code:

procedure TForm3.RadioButton1Change(Sender: TObject);
begin
   Label2.Caption:= 'Richtig';
   Label2.Font.Color:= clgreen;
end;

... wird doch der Text richtig neben den RadioButton angezeigt , den möchte ich aber dann wieder weg haben wenn ich den nächsten Radiobutton klicke ...

[himitsu]

Zitat:

aber irgendwie klappt es nicht wie es sollte

Ordentliche Fehlerbeschreibungen können auch nie schaden.

Zitat:

... wird doch der Text richtig neben den RadioButton angezeigt , den möchte ich aber dann wieder weg haben wenn ich den nächsten Radiobutton klicke ...

da könnte man dann in den Ereignissen der anderen RadioButtons einfach die Standardfarbe und den entsprechenden Text setzen.

[CR3ATiV3]

hä? wie jetzt??
ich habe das jetzt so gemacht

Code:

procedure TForm3.RadioButton1Change(Sender: TObject);
begin
   Label2.Caption:= 'Richtig';
   Label2.Font.Color:= clgreen;
   Label2.Font.Color:= cldefault;
end;

aber da erscheint der text wieder in schwarz ...

[Sir Rufo]

Male das Haus grün an
Male das Haus schwarz an

Welche Farbe hat jetzt das Haus?