Fontfarbe ändern in dem ich daraufklicke?!

[CR3ATiV3]

Hallo ich wieder ^^,
ich bin dabei ein Quiz zu programmieren (damit ihr das mal wisst was ich eigentlich mache ^^) und nun möchte ich die Farbe der Schrift bei einem RadioButton ändern in dem ich raufklicke ... aber ich weiß nicht wie! :( (wie gesagt ich bin blutige Anfängerin)

[himitsu]

Wie ändert man die Farbe?
{Control}.Font.Color

Wie reagiert man auf einen Klick?
OnClick

Und nun mußt du das nur noch verbinden :zwinker:



PS: die Schriftfarbe bei einem RadioButton zu änder ist etwas "schwer", da der in den neuen Styles von XP/Vista/7 dieses nicht mehr vorgesehn ist.
Du kannst dir aber auch einfach ein TLabel daneben legen und dem RadioButton keine Caption zuweisen.

[CR3ATiV3]

aha , okay ... aber wie mach ich das diese beiden dinge verbinden bzw. das was du mit einem laben vorgeschlagen hast ?! :?::cry:

[DeddyH]

RadioButton.OnClick -> Label.Font.Color := irgendwas

Ist doch nicht so schwer, oder?

[CR3ATiV3]

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

[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:

Delphi-Quellcode:

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?