StringGrid Zeile einfärben

[himitsu]

Über OnSelectCell (TStringGrid) kann man erkennen was selektiert wird/wurde und könnte da die Selektion umschreiben, wenn nicht gewoll.

Ausblenden geht nicht, da TStringGrid keinen (Zeilen)Filter besitzt.
Beim TDBGrid geht das, über die Filterung des DataSets, welches auch ohne DB genutzt werden kann. (z.B. TClientDataSet)


Alternativ macht man es "richtig".
StringGrid nur zur Datenanzeige (und als Editor), aber die Datenhaltung liegt wo anders ... dann zeigt/läd man nur das ins Grid, was angezeigt werden soll.

[Sir Rufo]

Man belege den Event TStringGrid.OnSelectCell und schaue sich dieses Beispiel an:

http://docwiki.embarcadero.com/CodeE...ctCell_(Delphi)

[Frau Müller]

Ich denke so könnte es klappen aber er zeigt mir eine Felhermeldung an

[Error] Unit1.pas(175): Type of expression must be BOOLEAN



procedure TForm1.ZellenNICHTanklicken(Sender: TObject);
begin
If ComboBox1.ItemIndex of
0: with StringGrid1 do begin
Cells[2,2]:='';
end;
end;
end;

[DeddyH]

Mach mal aus dem If ein Case. Und schließe bitte künftig Quellcode in Delphi-Tags ein (die "Helm"-Schaltfläche im Beitragseditor), dann ist er viel besser zu lesen.

[himitsu]

Zitat:

Cells[2,2]:='';

Das hat natürlich nichts mit "nicht anklicken" zu tun, sondern macht nur den Zelleninhalt "leer".



-> StringGrid1.Selection eine andere Zelle zuweisen, wenn die aktuelle Zelle nicht selektiert werden darf.

[Frau Müller]

Juhu Die Fehlermeldung ist weg und es funktioniert! Danke schon mal! Kann man hier viell statt die einzelnen zellen zu benennen sagen Spalte 1-3 und 6-7 ausblenden bzw Zeile 2-3 ausblenden?


procedure TForm1.ZellenNICHTanklicken(Sender: TObject);
begin
Case ComboBox1.ItemIndex of
0: with StringGrid1 do begin
Cells[4,4]:='';
Cells[8,4]:='';
end;
end;
end;

[Frau Müller]

ja das stimmt '' hat nichts mit Selected zu tun. Ich komme leider mit dem Begriff nicht weiter, sprich weiß nicht wie der quellcode aussehen sollte .
Ich will nur verhindern das der User auf diese Daten zugreift.

[Delbor]

Hi Frau Müller

Delphi-Quellcode:

procedure TCM_First.StrGridSchemaSelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
// Wird ausgeführt, bevor eine Zelle angeklickt wird. 
// ACol bezeichnet die Spalte, auf die geklickt wird
// ARow die Zeile und
// CanSelect bestimmt, obdie Zelle ausgewählt werden kann
end;

Von hier aus könntest du deine Prozedur(Mach daraus eine Funktion) NichtAuswählen aufrufen und da prüfen, welches Item in der Combobox ausgewählt ist. Mit dem Aufruf übergibst du 2 Integer-Parameter für ACol und ARow.
Willst du zB., dass Zeile[1,1] nicht ausgewählt werden kann, vergleichst du den Indexwert der Combobox mit ACol und ARow. Wenn deine Bedingungen, die Zelle nicht selektieren zu lassen, erfüllt sind, stellst du Result auf false.
In SelectCell schreibst du dann:

CanSelect := NichtAuswählen;

Das ruft deine Funktion auf und übergibt an Canselect den Boolenwert, den du an Result zugewiesen hast.

Gruss
Delbor