Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by kiar,
4. Dez 2004
hallo chris,
so einfach ist das aber nicht nachzuvollziehen, ich habe auch kurz nachgeschaut, aber richtig schlau bin ich da auch nicht geworden :(
raik
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by kiar,
4. Dez 2004
hallo hansa,
kann dein ergebnis nicht nachvollziehen, vllt ist es wirklich schon zu spät :mrgreen:
folgender code:procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
with StringGrid1 do
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by kiar,
4. Dez 2004
wie ebend schon erwähnt:
if ((StringGrid1.Row ) mod 2 <> 0) then begin
StringGrid1.RowCount := StringGrid1.RowCount+1;
StringGrid1.Row := StringGrid1.RowCount - 2;
end
else
begin
StringGrid1.Row := StringGrid1.RowCount - 1;
StringGrid1.RowCount := StringGrid1.RowCount+1;