Thema: Delphi Exeption - Woher?

Einzelnen Beitrag anzeigen

grenzgaenger
(Gast)

n/a Beiträge
 
#27

Re: Exeption - Woher?

  Alt 19. Aug 2008, 22:17
Zitat von fortuneNext:
naja, wie soll man das abprüfen? Die fixed-cols sind leider nicht anklickbar, so gibt es überhaupt keinen Indikator...
dann schreib dir doch dein OnClick selbst

Delphi-Quellcode:
procedure TForm1.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
 c, r: integer;
begin
 TStringGrid(sender).MouseToCell(x, y, c, r);
 if mbLeft = button then
 begin
  StatusBar1.SimpleText := inttostr(c) + '/' + inttostr(r);
 end;
end;
ps: alternativ könntest auch 'n listview statt 'n stringgrid nehmen...
  Mit Zitat antworten Zitat