AGB  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi TStringGrid -> Cursorposition in Zelle bestimmen

TStringGrid -> Cursorposition in Zelle bestimmen

Ein Thema von HolgerCW · begonnen am 25. Feb 2010 · letzter Beitrag vom 25. Feb 2010
Antwort Antwort
Seite 1 von 2  1 2   
HolgerCW

Registriert seit: 28. Nov 2006
1.160 Beiträge
 
Delphi 2006 Enterprise
 
#1

TStringGrid -> Cursorposition in Zelle bestimmen

  Alt 25. Feb 2010, 12:48
Hallo zusammen,

wie kann ich bestimmen, an welcher Stelle der Cursor in z.B. Zelle[1,1] sich befindet ?

Gruss

Holger
  Mit Zitat antworten Zitat
taaktaak

Registriert seit: 25. Okt 2007
Ort: Radbruch
1.961 Beiträge
 
Delphi 7 Professional
 
#2

Re: TStringGrid -> Cursorposition in Zelle bestimmen

  Alt 25. Feb 2010, 13:33
SingleClickPosition im Grid ermitteln

- im Ereignis OnMouseDown()

Delphi-Quellcode:
procedure T~.sg~MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
var Col,Row : Integer;
begin
  sg~.MouseToCell(x,y,Col,Row);
  ..
- im Ereignis OnClick()

Delphi-Quellcode:
procedure T~.sg~Click(Sender:TObject);
var P : TPoint;
    PCol,PRow : LongInt;
begin
  GetCursorPos(p);
 
  with sg~ do begin
    P:=ScreenToClient(P);
    MouseToCell(P.x,P.y,PCol,PRow);
    ..
DoubleClickposition im Grid ermitteln

- ist nur im OnDblClick() und nicht im OnMouseDown() möglich!

Delphi-Quellcode:
procedure T~.sg~DblClick(Sender:TObject);
var P : TPoint;
    PCol,PRow : LongInt;
begin
  GetCursorPos(p);
 
  with sg~ do begin
    P:=ScreenToClient(P);
    MouseToCell(P.x,P.y,PCol,PRow);
    ..
oder analog natürlich im OnMouseMove()
Ralph
  Mit Zitat antworten Zitat
s-off

Registriert seit: 20. Jan 2010
84 Beiträge
 
Delphi 2010 Professional
 
#3

Re: TStringGrid -> Cursorposition in Zelle bestimmen

  Alt 25. Feb 2010, 14:08
@taaktaak
Ich denke, dass ist nicht das, was der TE möchte.
Hier geht es wohl eher um die Position des Cursors/Caret im InPlaceEditor einer Zelle.
Gruß
s-off
  Mit Zitat antworten Zitat
HolgerCW

Registriert seit: 28. Nov 2006
1.160 Beiträge
 
Delphi 2006 Enterprise
 
#4

Re: TStringGrid -> Cursorposition in Zelle bestimmen

  Alt 25. Feb 2010, 14:16
Hi.

Die Maus ist aussen vor.

In Zelle [1,1] steht z.B. die Zahl 123456

Jetzt möchte ich z.B. wissen ob der Cursor zwischen der 1 und 2 oder eventuell zwischen der 4 und 5 steht.

Wie geht das ?

Gruss

Holger
  Mit Zitat antworten Zitat
s-off

Registriert seit: 20. Jan 2010
84 Beiträge
 
Delphi 2010 Professional
 
#5

Re: TStringGrid -> Cursorposition in Zelle bestimmen

  Alt 25. Feb 2010, 14:23
Du musst eine Ableitung von TStringGrid erzeugen, um auf den als Protected deklarierten InplaceEditor zugreifen zu können.
Wenn Du den hast, kannst Du mit
TMyStringGrid(TStringGrid).InplaceEditor.SelStart die Position des Caret innerhalb des Edits ermitteln.

Beispiel:
Delphi-Quellcode:
Type
   TForm1 = Class(TForm)
      StringGrid1: TStringGrid;
   End;

   TMyStringGrid = Class(TStringGrid)

   End;

[...]

   ShowMessage(IntToStr(TMyStringGrid(StringGrid1).InplaceEditor.SelStart));
Edit: Beispiel hinzugefügt
Gruß
s-off
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
24.325 Beiträge
 
Delphi XE Professional
 
#6

Re: TStringGrid -> Cursorposition in Zelle bestimmen

  Alt 25. Feb 2010, 14:37
Oder im interface-Abschnitt:
Delphi-Quellcode:
type
  TStringGrid = class(Grids.TStringGrid)
  end;

  TFormMain = class(TForm)
    StringGridBla: TStringGrid;
    //...etc. blabla
Erspart die Casterei
Detlef
Wenn Dein Programm nicht macht, was es soll, nenn es einfach "Version 1.0"

Delphi programming is cool
  Mit Zitat antworten Zitat
s-off

Registriert seit: 20. Jan 2010
84 Beiträge
 
Delphi 2010 Professional
 
#7

Re: TStringGrid -> Cursorposition in Zelle bestimmen

  Alt 25. Feb 2010, 14:41
Zitat von DeddyH:
Oder im interface-Abschnitt:
Man lernt nie aus
Gruß
s-off
  Mit Zitat antworten Zitat
HolgerCW

Registriert seit: 28. Nov 2006
1.160 Beiträge
 
Delphi 2006 Enterprise
 
#8

Re: TStringGrid -> Cursorposition in Zelle bestimmen

  Alt 25. Feb 2010, 14:59
Super,

das klappt wie geschmiert.

Vielen dank.
  Mit Zitat antworten Zitat
taaktaak

Registriert seit: 25. Okt 2007
Ort: Radbruch
1.961 Beiträge
 
Delphi 7 Professional
 
#9

Re: TStringGrid -> Cursorposition in Zelle bestimmen

  Alt 25. Feb 2010, 15:54
Sorry für meinen Beitrag, der deutlich an der Fragestellung vorbei ging.


Die Weg zur richtigen Lösung erstaunt mich, da tatsächlich wie von Geisterhand die Methode aus "protected" nun "public" wird. Ich dachte immer, man müsse gezielt einzelne Methoden "publizieren" und alle die man nicht explizit veröffentlicht, würden ihren bisherigen Status behalten.
Ralph
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
24.325 Beiträge
 
Delphi XE Professional
 
#10

Re: TStringGrid -> Cursorposition in Zelle bestimmen

  Alt 25. Feb 2010, 16:01
Das kann man wie gezeigt unterlaufen, da Klassen in derselben Unit automatisch "Friends" sind. Ist die Property/Methode der Vorfahrklasse allerdings als strict protected deklariert, muss man sie in der Crackerklasse AFAIK tatsächlich erst "veröffentlichen".
Detlef
Wenn Dein Programm nicht macht, was es soll, nenn es einfach "Version 1.0"

Delphi programming is cool
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:04 Uhr.
Powered by vBulletin® Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2014 by Daniel R. Wolf