Forum: Sonstige Fragen zu Delphi
Delphi
by Klaus01,
8. Jun 2007
Guten Abend,
so läuft es bei mir:
procedure TForm1.StringGrid1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
aCol, ARow :Integer;
begin
Forum: Sonstige Fragen zu Delphi
Delphi
by Klaus01,
8. Jun 2007
Abgeleitet von der Messie Routine:
procedure TForm1.TntButton1Click(Sender: TObject);
var
i,j : integer;
begin
for i := 0 to SG.RowCount-1 do
for j := 0 to SG.ColCount-1 do
SG.Cells := IntToStr((7*i)+j+1); // Fehler korrigiert, danke Ersan90