OnSelectCell Problem

Karl12 · Hält's aus hier Beiträge: 5

Grüße

Ich möchte bei einem Stringgrid Zellen durch klicken rot färben und den wert des arrays hinter der zelle auch gleichzeitig ändern.

einfach gesagt genauso wie man hier : www.bitstorm.org/gameoflife/ die zellen markieren kann und auch abwählen kann.

das mit dem einfärben der zellen wenn sie einen bestimmten wert hat habe ich schon hinbekommen mit OnDrawCell das sieht bei mir so aus :

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
  VAR f:Tcolor;
begin

if Stringgrid1.cells[ACol,ARow]= 'O'
     then f:=clred
     else f:=clwhite;

     stringgrid1.Canvas.Brush.color:= f ;
     Stringgrid1.Canvas.FillRect(Rect);

end;

--aber das mit OnSelectCell zu verknüpfen hab ich keinen plan. :motz:

ich hab schon alles probiert was in der hilfe stand aber damit komm ich iwie nicht kla :autsch:

wenn mir jemand sagen könnte was ich dann bei OnSelectCell reinschrieben müsste und was dann in die prozedur rein muss würde ich mich freun

Moderiert von Narses: Delphi-Tags hinzugefügt
Moderiert von Narses: Topic aus Sonstiges (Delphi) verschoben am Di 08.03.2011 um 13:05

bummi · Verfasst: Di 08.03.11 13:44

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  ACol,Arow:Integer;
begin
     StringGrid1.MouseToCell(x,y,ACol,Arow);
     if StringGrid1.Cells[ACol,ARow]='X' then StringGrid1.Cells[ACol,ARow]:=' ' else StringGrid1.Cells[ACol,ARow]:='X'

end;

_________________
Das Problem liegt üblicherweise zwischen den Ohren H₂♂
DRY DRY KISS

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme