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