StringGrid Zellen Markierung

**SirThornberry**

nimm doch auch einfach das onMouseDown oder onClick ereignis und darin dann ausgeben was in der eigenschaft selection steht.

@blechwolf: um die verzögerung zu vermeiden probiers mal mit onMousedown..

**APP**

Hallo thawka,

versuche mal:

markieren

Delphi-Quellcode:

			PROCEDURE TForm1.StringGrid1SelectCell(Sender: TObject; ACol,

  ARow: Integer; VAR CanSelect: Boolean);

BEGIN

  StatusBar1.SimpleText := 'aktive Zeile: ' + IntToStr(ARow);

END;

**thawka**

Vielen Dank für die Infos, funktioniert!

Das ganze sieht jetzt so bei mir aus:

markieren

Delphi-Quellcode:

			procedure TForm1.strgrSelectCell(Sender: TObject; ACol, ARow: Integer;

  var CanSelect: Boolean);

begin

     sbar.Panels.Items[1].Text:='ausgewählter Datensatz Nr.: ' + IntToStr(ARow);

end;

Nochmals danke

StringGrid Zellen Markierung

Re: StringGrid Zellen Markierung

Re: StringGrid Zellen Markierung

Aktive Zeile in Statusbar anzeigen

Forumregeln

SirThornberry (Moderator) Registriert seit: 23. Sep 2003 Ort: Bockwen 12.235 Beiträge Delphi 2006 Professional	#11 Re: StringGrid Zellen Markierung 30. Nov 2003, 11:58 nimm doch auch einfach das onMouseDown oder onClick ereignis und darin dann ausgeben was in der eigenschaft selection steht. @blechwolf: um die verzögerung zu vermeiden probiers mal mit onMousedown.. Jens Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
	Zitat

APP Registriert seit: 24. Feb 2003 Ort: Graz (A) 705 Beiträge Delphi 7 Enterprise	#12 Re: StringGrid Zellen Markierung 30. Nov 2003, 11:59 Hallo thawka, versuche mal: markieren Delphi-Quellcode: PROCEDURE TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; VAR CanSelect: Boolean); BEGIN StatusBar1.SimpleText := 'aktive Zeile: ' + IntToStr(ARow); END; Armin P. Pressler BEGIN ...real programmers are using C/C++ - smart developers Delphi; END;
	Zitat

thawka Registriert seit: 29. Nov 2003 Ort: im Norden... 8 Beiträge	#13 Aktive Zeile in Statusbar anzeigen 30. Nov 2003, 13:11 Vielen Dank für die Infos, funktioniert! Das ganze sieht jetzt so bei mir aus: markieren Delphi-Quellcode: procedure TForm1.strgrSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); begin sbar.Panels.Items[1].Text:='ausgewählter Datensatz Nr.: ' + IntToStr(ARow); end; Nochmals danke
	Zitat