Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hallo_Thomas,
31. Jul 2005
@marabu sieht das nicht schon besser aus, für meine Minimalanforderung:
Ich hab jetzt mal versucht die Hinweise umzusetzen, sieht doch besser aus!!
procedure TForm1.insertGridLine(Grid :TStringGrid; index: integer);
var i:integer;
begin
Grid.RowCount :=Grid.RowCount +1;
for i :=Grid.RowCount -1 downto index do
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hallo_Thomas,
30. Jul 2005
Fast perfekt, Danke, hat echt weiter geholfen!
getestet
procedure TForm1.insertGridLine(Grid :TStringGrid; index: integer);
var i:integer;
begin
Grid.RowCount :=Grid.RowCount +1;
for i :=Grid.RowCount -2 downto index do
begin
Grid.Rows :=Grid.Rows;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hallo_Thomas,
30. Jul 2005
Hallo, ich füge mit
StringGrid1.Cells := IntToStr(Zahl);
eine Zahl hinzu, diese sollte bei der nächsten Eingabe um eine Zeile nach unten rutschen.
Ich dachte da, das man da am besten oben eine neue Zeile einfügt oder so?
Wie kann ich Position 0 eine Zeile einfügen bzw, das alle Zahlen um eine Zeile nach unten rutschen am effizentesen umsetzen.