StringGrid Zeile einfärben

[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

[Frau Müller]

Delbor ich verstehe nicht was du mir sagen willst . Ich beschäftige mich mit delphi erst seit einer woche. Im Anhang siehst du was ich meine. Wäre schön wenn die zeilen nicht verschwinden, sondern nur nicht anklickbar wären


//diese Procedure habe ich dem StringGrid1 (Events: OnSelectCell) zugewiesen
//hiermit werden 2 oder mehrer zellen markiert..
//procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Longint; var CanSelect: Boolean);
//begin
//If ComboBox1.ItemIndex=0 then
//canSelect:=(StringGrid1.Cells[2, 1]='');
//end;


//Procedure zugewiesen ComboBox1 (Events: OnClick)
//dieses Ereignis hätte ich gerne. Die Zellen sollten idealerweise nicht
//verschwinden sondern nicht anklickbar sein
procedure TForm1.ZellenNICHTanklicken(Sender: TObject);
begin
Case ComboBox1.ItemIndex of
0: with StringGrid1 do begin
Cells[3,1]:=''; Cells[3,2]:=''; Cells[3,3]:=''; Cells[3,4]:='';
Cells[4,1]:=''; Cells[4,2]:=''; Cells[4,3]:=''; Cells[4,4]:='';
end;
1: with StringGrid1 do begin
Cells[2,1]:=''; Cells[2,2]:=''; Cells[2,3]:=''; Cells[2,4]:='';
Cells[4,1]:=''; Cells[4,2]:=''; Cells[4,3]:=''; Cells[4,4]:='';
end;
2: with StringGrid1 do begin
Cells[2,1]:=''; Cells[2,2]:=''; Cells[2,3]:=''; Cells[2,4]:='';
Cells[3,1]:=''; Cells[3,2]:=''; Cells[3,3]:=''; Cells[3,4]:='';
end;
end;
end;

[Frau Müller]

Unbenannt.png

[Klaus01]

Hallo,

vielleicht hilft Dir der Thread(String Zellen readonly) weiter?

Grüße
Klaus