Wie erfahre ich, auf welche Zeile im Stringgrid geklickt wurde?

[Delphi.Narium]

Zitat von jumper63:

aber ich benötige die Angabe Col,Row, um die Werte der jeweiligen Zeile auszulesen.

Dafür braucht man eher kein Menü, egal mit welcher Maustaste.

Genauer als

Zitat von Jasocul:

Oder man nimmt das Event OnSelectCell.

geht es da nicht.

[KodeZwerg]

OnSelect wird doch auch gefeuert wenn man mit Tastatur sich im Grid bewegt? (auf welche Zeile im Stringgrid geklickt wurde = maus event)

[Delphi.Narium]

Zitat von KodeZwerg:

OnSelect wird doch auch gefeuert wenn man mit Tastatur sich im Grid bewegt? (auf welche Zeile im Stringgrid geklickt wurde = maus event)

Und für die Leute, die "so dreist sind" das Programm per Tastatur zu bedienen, bauen wir eine extra Lösung?

Ein Programm, bei dem ich bestimmte Aktionen nur per Maus erreichen kann, benutze ich nicht.

[KodeZwerg]

ich möchte weder streiten noch recht bekommen deswegen verlasse ich dieses thema.

[Delbor]

Hi jumper63

Vielleicht hilft dir ja auch das da oder auch dies.

Zitat:

//StringGrid1.MouseToCell(p.x, p.y, Col, Row);

Der Fehler hier war:
1. Du hast den werten p.x und p.y keine Inhalte zugewiesen (nicht initialisiert). Somit enthalten die beiden Zufallswerte.
oder
2. Du hättest statt einer TPointstruktur auch X & Y direkt verwenden können.

Gruss
Delbor

[himitsu]

Zitat von Delbor:

Du hast den werten p.x und p.y keine Inhalte zugewiesen (nicht initialisiert). Somit enthalten die beiden Zufallswerte.

Doch, hat er.

Zitat:

p := ScreenToClient(...

Und zu 2 ... nein, da ScreenToClient kein X und Y einzeln liefert.

Wobei ScreenToClient eh falsch war, da X und Y garkeine Screen- sondern bereits Client-Koordinaten sind
und da dann nochmal relative Client-Koordinaten (Left/Top, also Grid zu seinem Owner) dazuaddiert ... da kann ja nichts Sinnvolles bei raus kommen.

Aber will MouseToCell nun Screen- oder Client-Koordinaten?

Touchscreen ohne Tastatur ... och der Arme hat nichtmal ein Handy


Und WARUM sind L und T globale Variablen?

[jumper63]

Hallo KodeZwerg!

MEGAVIELEN DANK!
Klappt PERFEKT!

[jumper63]

Aber warum Bitte kein with im code??

Naja, bei nur 2 Zuweisungen unnötig.

[Delbor]

Hi jumper63

Zitat von jumper63:

Aber warum Bitte kein with im code??

Naja, bei nur 2 Zuweisungen unnötig.

Alles zwischen with und dem zugehörigen end bezieht sich auf das selbe Object. Die Chance ist gross, das einer im Verlauf der Entwicklung eine Property einer andern Komponente ansprechen will und vergisst, dieses andere Objekt explizit zu adressieren (Object.Property) und dann stundenlang nach dem Fehler sucht. Und natürlich wird nicht da gesucht, wo der Code scheinbar so leicht lesbar ist und desshalb 'garantiert' ohne Fehler. Oder du hast mehrere Edits und ein Struktur wie X := TEdit(Property). Und jetzt mussder Compiler entscheiden, welches Edit du meinst.
Fazit: ein 'with' spart nur scheinbar Tipparbeit, sorgt aber in vielen Fällen für mehr Arbeit andere Aert.
Tipparbeit kann man sich auch per Drag&Drop sparen.

Und meine Argumente sind bestimmt nicht die einzigen...

Gruss
Delbor

[himitsu]

Beispiel TRect.

früher ging sowas wie

Delphi-Quellcode:

with MyRect do begin
  Width := Right - Left;
  Height := Bottom - Top;

Um die Größe einer Form zu setzen (z.B. im OnCreate), und jetzt wunderst du dich, dass scheinbar garnichts mehr passiert, obwohl der Compiler sagt "alles OK", weil

Delphi-Quellcode:

with MyRect do begin
  Self.Width := Right - Left;
  Self.Height := Bottom - Top;

// oder
Self.Width := MyRect.Right - MyRect.Left;
Self.Height := MyRect.Bottom - MyRect.Top;

dir zu lang war.


alt

Delphi-Quellcode:

  TRect = record
  case Integer of
    0: (Left, Top, Right, Bottom: FixedInt);
    1: (TopLeft, BottomRight: TPoint);
  end;

neu (Auszug, weil knapp 100 Zeilen)

Delphi-Quellcode:

  TRect = record
  private
    ...
  public
    ...
    property Width: Integer read GetWidth write SetWidth;
    property Height: Integer read GetHeight write SetHeight;

  case Integer of
    0: (Left, Top, Right, Bottom: FixedInt);
    1: (TopLeft, BottomRight: TPoint);
  end;

seit 10.4 (10.3) darf man gern Inline-Variablen verwenden

Delphi-Quellcode:

var R := MyRect;  // mitten im Code, also "inline"
Width := R.Right - R.Left;
Height := R.Bottom - R.Top;

wobei ich in diesem Fall eher "absolute" verwenden würde, wenn mir "MyRect" zu lang ist.

Delphi-Quellcode:

var
  R: TRect absolute MyRect;
begin
  Width := R.Right - R.Left;
  Height := R.Bottom - R.Top;

Aber da ich faul bin, mach ich natürlich

Delphi-Quellcode:

Width := MyRect.Width;
Height := MyRect.Height;

// oder
Self.Width := MyRect.Width;
Self.Height := MyRect.Height;