Auf Doppelklick auf eine GridLine im Stringgrid reagieren

rasi · Hält's aus hier Beiträge: 7

Hallo,
ich will auf das Doppelklicken auf eine Gridline im StringGrid reagieren.

Erklärung: in MS Excel verändert sich der Mauspfeil zu einem Slidersymbol wenn man den Mauspfeil zwischen zwei Spalten im FixedRow Bereich bewegt (Das ist auch bei TStringGrid der Fall).
Doppelklickt man bei Excel nun wenn das Slidersymbol dargestellt wird, so wird diese Spalte auf die optimale Breite gebracht.

Beim StringGrid in Delphi gibts genau für diesen Fall leider kein On... Ereignis.
Ich bräuchte nun eine Lösung, in der ein On... Ereignis ausgelöst wird wenn ich im Falle des Slidersymbols doppelklicke..

LG
rasi

ALF · Verfasst: Do 10.03.11 00:47

Es gibt doch onDblClick. Warum verwendest Du es nicht?

Gruss ALf

_________________
Wenn jeder alles kann oder wüsste und keiner hätt' ne Frage mehr, omg, währe dieses Forum leer!

rasi · Hält's aus hier Beiträge: 7

ALF hat folgendes geschrieben :

Es gibt doch onDblClick. Warum verwendest Du es nicht?

Gruss ALf

Ich verwende ja OnFixedCellClick. Mein Problem ist nur dass ich dieses Ereignis schon zum markieren der ganzen Spalte benutze. Ich müsste in diesem Ereignis nun die Form des Mauszeigers abfragen können.
Etwa so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

if (Mauszeiger = Pfeil) then
  gesamte_Spalte_markieren 
else
  if (Mauszeiger = Slidersymbol) then
    Spalte_auf_optimale_breite;
..

Gruß
rasi

Moderiert von Narses: Code- durch Delphi-Tags ersetzt

ALF · Verfasst: Do 10.03.11 02:19

Glaube so was mh...

markieren

Delphi-Quelltext

1:
2:
3:
4:

if GetCursor = Screen.Cursors[crHSplit] then
begin
//mach was Du hier machen willst
end;

wenn Du onDblClick noch nicht verwendest, würde ich die Abfrage da reinschreiben.
Dann hast Du die gleiche Ausführung wie in Excel :wink:

Gruss Alf

_________________
Wenn jeder alles kann oder wüsste und keiner hätt' ne Frage mehr, omg, währe dieses Forum leer!

rasi · Hält's aus hier Beiträge: 7

Hallo Alf,

danke für Deinen Tipp - klappt wunderbar!

Gruß
ralph

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme