Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Cursor im Grid positionieren


D. Annies - Sa 14.08.10 16:25
Titel: Cursor im Grid positionieren
Hi, Delpher,
Ich möchte, dass nach der Popup-Auswahl "neuer Eintrag" eine neue Zeile erzeugt wird
UND
dass der Cursor dort in der ersten Spalte positioniert wird.

Ich habe folgenden Code - der Cursor wird leider noch nicht positioniert.


Delphi-Quelltext
1:
2:
3:
4:
  tntstringgrid2.Options := tntstringgrid2.Options + [goediting];
  showmessage('Neuen Namen bitte am Ende der Tabelle eintragen');
  tntstringgrid2.RowCount := tntstringgrid2.RowCount+1;
  tntstringgrid2.Selection := TGridRect(Bounds(0,tntstringgrid2.RowCount,0,tntstringgrid2.RowCount));


Danke für eure Hilfe,
Detlef


Stundenplan - Sa 14.08.10 17:22

Hi,

das [http://www.swissdelphicenter.ch/de/showcode.php?id=349] dürfte dir weiterhelfen!

Viele Grüße,
Stundenplan.


D. Annies - So 15.08.10 09:07

Hi, Stundenplan,
leider nicht, ich bekomme noch einen Error at position 00000000.
Abwarten ...
Danke erstmal,
Detlef


Stundenplan - So 15.08.10 10:58

Der Fehler kommt davon, dass in der Zelle noch kein Text steht. Sobald Text drinsteht, läufts.


D. Annies - So 15.08.10 11:54

Nun, es ist ja auch noch eine leere Zeile ..
mit der folgenden Ergänzung kann ich die richtige Zelle markieren, aber es soll noch dahin gescrollt werden.
Wie geht das (automatische Scrollen) denn?


Stundenplan - So 15.08.10 16:29

Welche Ergänzung? :lupe:
Du könntest die Zelle ja auch einfach mit nem Leerzeichen füllen. :wink:
@Scrollen: Nach 1min Google aus der DP:

Delphi-Quelltext
1:
2:
Stringgrid1.TopRow  := StringGrid1.Selection.Top;
Stringgrid1.LeftCol := StringGrid1.Selection.Left;

Viele Grüße,
Stundenplan.


D. Annies - So 15.08.10 18:32

Wow, vielen Dank für deine Mühe - da warst du erfolgreicher beim Suchen als ich - und
so ist es ok.
P.S. Ich hatte vergessen, dir die Änderung zu senden.
Danke, Detlef