Er RadioButton checked?

Hvorfor virker radio1.Checked ikke?

if px.Checked then
alinkpxpt := 'px' else
alinkpxpt := 'pt'


Ved ikke om jeg mangler andet, end; fx.

Håber i kan hjælpe

// Mark



(Er lige kommet i tanke om dette var et ASP forum, ikke Delphi )[Redigeret d. 07/10-02 19:06:02 af Mark Jensen]

<pre>
if Px.Checked = True then begin
alinkpxpt := 'px';
end
else
alinkpxpt := 'pt';
end;
</pre>

eller noget i den stil
-
neuroman? det' da mig
Aloha - Er du fresh???

Hmm... tjekker lige [Redigeret d. 07/10-02 20:08:26 af Mark Jensen]

Hmm... tjekker lige [Redigeret d. 07/10-02 20:08:26 af Mark Jensen]

Ved du hvorfor dette ikke virker ? :

procedure Tlinkstyle.genererClick(Sender: TObject);
begin

if Px.Checked = true then begin
alinkpxpt := 'px'
end
else begin
alinkpxpt := 'pt';
end;

// Color
if alinkcolor.Text = '' then
ShowMessage('Du skal huske at skrive noget i:'#13#10'Farve (a:link)')

else
kodebox.SelText := 'a:link {';
kodebox.SelText := 'color: '+alinkcolor.Text+';'#13#10;
end;
// Color

// Font
if alinkfont.Text = '' then
ShowMessage('Du skal huske at skrive noget i:'#13#10'Skrifttype (a:link)')

else
kodebox.SelText := 'font-family: '+alinkfont.Text+';'#13#10;
end;

Håber du også kan hjælpe med dette (Det virker med en if-sætning )
Ved godt at det ikke var det jeg spurgte om, men vil du hjælpe alligevel? Det andet virker nemlig (Skal nok give dig lidt fler UP's hvis du kan hjælpe)

Ja, men det må vente skal spille warcraft nu
-
neuroman? det' da mig
Aloha - Er du fresh???

---
if alinkcolor.Text = '' then
ShowMessage('Du skal huske at skrive noget i:'#13#10'Farve (a:link)')

else
kodebox.SelText := 'a:link {';
kodebox.SelText := 'color: '+alinkcolor.Text+';'#13#10;
end;
--
er dit problem, du mangler en begin..end i efter Else. Det er kun den ene linie der bliver udført.


Mvh,

Thomas Nielsen