StringGrid options zur laufzeit ändern

[dopeline]

wie kann ich durch einen befehl eine option des stringgrids ändern.

wenn eine checkbox checked=true ist, soll goVertLine:=True sein...

Wie stelle ich das an?`


Gruß, dopeline

[himitsu]

Ein Hallöle von http://www.FrankNStein.de/Smiley-Wolke.gif,

Delphi-Quellcode:

{goVertLine = True}
StringGrid1.Options := StringGrid1.Options + [goVertLine];

{goVertLine = False}
StringGrid1.Options := StringGrid1.Options - [goVertLine];

oder

Delphi-Quellcode:

{goVertLine = True}
StringGrid1.Options := [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect];

{goVertLine = False}
StringGrid1.Options := [goFixedVertLine, goFixedHorzLine, goHorzLine, goRangeSelect];

http://www.delphipraxis.net/images/common/divider.jpg
http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif

[Sharky]

Hai dopeline,

z.B. so:

Delphi-Quellcode:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
 if (Sender As TCheckbox).Checked then
  begin
   StringGrid1.Options := StringGrid1.Options + [goVertLine];
  end
 else
  begin
   StringGrid1.Options := StringGrid1.Options - [goVertLine];
  end;
end;

[dopeline]

hmmm.... irgendwie will er nicht...

Code:

[Fehler] UAnsichtsoptionen.pas(128): Undefinierter Bezeichner: 'goVertLine'
[Fehler] UAnsichtsoptionen.pas(128): Inkompatible Typen: 'TGridOption' und 'Integer'
[Fehler] UAnsichtsoptionen.pas(128): Inkompatible Typen: 'TGridOption' und 'Integer'
[Fataler Fehler] PCM.dpr(12): Verwendete Unit 'UAnsichtsoptionen.pas' kann nicht compiliert werden

also die prozedur sieht folgendermaßen aus:

Delphi-Quellcode:

procedure TFormOptionen.CheckBox1Click(Sender: TObject);
begin
if (Sender As TCheckbox).Checked then
  begin
   FormHaupt.StringGrid1.Options := FormHaupt.StringGrid1.Options + [goVertLine];
  end
else
  begin
   FormHaupt.StringGrid1.Options := FormHaupt.StringGrid1.Options - [goVertLine];
  end;
end;

was macht es eigentlich für einen unterschied, ob man

Code:

if (Sender As TCheckbox).Checked then

oder

Code:

if (CheckBox5.checked= True) then

nimmt?

naja wichtiger ist aber erst mal das problem mit dem optionen...

Weiß jemand, woran das liegt?
muss ich vielleicht erst irgendwo einstellen, dass man während der laufzeit die optionen ändern kann?


Gruß, dopeline

[Sharky]

Hai dopeline,

hast Du die Checkbox auf einer anderen Form? Wenn Ja binde dort mal die Unit Grids ein.

Zitat:

Zitat von dopeline

....was macht es eigentlich für einen unterschied, ob man

Code:

if (Sender As TCheckbox).Checked then

oder

Code:

if (CheckBox5.checked= True) then

nimmt?

Keinen. So ist es nur flexibler. Wenn du z.B. den Namen des Objektes änderst musst Du nichts im Quellcode ändern.
BTW: Auf = True musst/solltest Du nicht prüfen. Es reicht wenn Du schreibst:

Delphi-Quellcode:

if CheckBox5.Checked then
 begin
 end;

[dopeline]

oh, da hätt ich ja auch selbst drauf kommen können (unti unter uses)!!! so banal...

Vielen Dank!!!

es funktioniert wunderbar!



Gruß, dopeline