Registriert seit: 17. Sep 2002
314 Beiträge
|
27. Dez 2002, 16:08
Hier noch mal was aus der Delphi Hilfe
Delphi-Quellcode:
procedure TForm1.StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
Column, Row: Longint;
begin
StringGrid1.MouseToCell(X, Y, Column, Row);
StringGrid1.Cells[Column, Row] := 'Spalte ' + IntToStr(Column) +
', Zeile ' + IntToStr(Row);
end;
Viele Grüße ,Tino
Bis bald man liest sich
Tino
|
|
Zitat
|