StringGrid verhält sich komisch

[Mike_on_Tour]

Hallo,

ich habe ein StringGrid auf einer Form und einen Button. Beim Start werden Daten in das Grid geschrieben und dann wird der Button geklickt. Es wird ein neues Fenster geöffnet. Nach dem Schließen dieses Fensters ist der Focus noch auf dem Button. Wenn ich jetzt auf die erste freie Zelle oben links klicke, kann ich dort Daten eingeben, obwohl ich mit dem Ereignis OnSelectCell für diese Spalte angebe:CanSelect := false; Im Debugger wird als erstes Ereignis aber OnMouseDown angesprungen. Bei anderen Zellen des Grids funktioniert alles wunderbar. Ich weiß zur Zeit keine Lösung.

Nachtrag: Das Grid verhält sich nur so beim ersten Klick nach dem Schließen des zweiten Fensters. Wenn ich dann in andere Zellen klicke und danach wieder in die erste Zelle oben links, kann ich diese Zelle nicht mehr editieren. Sollte es auch ja auch schon beim ersten Klick sein. Folgende Grid-Option sind eingestellt:

Delphi-Quellcode:

goEditing := true;
goFixedVertLine := true;
goFixedHorzLine := true;
goVertLine := true;
goHorzLine := true;

alles andere ist FALSE

Mike

[Lannes]

Hallo,

setz mal in OnSelectCell einen Haltepunkt, denn vermutlich wird OnSelectCell nicht ausgelöst, weil die erste Zelle zu dem Zeitpunkt schon selectiert ist.

also eine Zelle, die editiert werden darf, vorher selectieren.

[Mike_on_Tour]

Ich habs doch geschrieben: ich habe ein OnSelectCell und ein OnMouseDown.

In OnSelectCell prüfe ich, ob die Zelle überhaupt selektiert werden darf. Das OnMouseDown brauche ich zur Ermittlung der Position Maus und Zelle für die weitere Arbeit. Und natürlich habe ich auf beide Ereignisse einen Haltepunkt gesetzt. Und natürlich wird OnSelect beim ersten Mal nicht ausgelöst. Steht alles im ersten Text.

Die Möglichkeit, daß die Zelle bereits selektiert ist, besteht allerdings. An einer anderen Stelle im Programm, ebenfalls mit einem StringGrid und Button konnte ich das Problem jedoch nicht feststellen. Ich muß da nochmal nachschauen.

[Mike_on_Tour]

Also, ich konnte keine weiteren Unterschiede feststellen. Trotzdem verhalten sich beide Grids unterschiedlich.

Ich habe jetzt in OnSelectCell noch folgende Zeilen am Ende eingebaut:

Delphi-Quellcode:

  if (CanSelect)
    then begin
      GridData.Options := GridData.Options + [goEditing];
    end
    else begin
      GridData.Options := GridData.Options - [goEditing];
    end;

Damit bekomme ich das Grid-Verhalten, was ich möchte.