Wie Stringgrid Beschriftung bei Programmstart?

[mat72]

Hallo,
ich berechnen über eine Editeingabe 4 Werte, welche ich in einem Stringgrid ausgebe.
Das Stringgrid soll in den FixCols und FixRows eine Beschriftung haben, welche beim Programmstart schon stehen soll. Die Beschriftung ist wichtig für den Anwender, um mit den ausgegebenen Daten etwas anzufangen. Ich habe es jetzt so gemacht, dass beim verlassen des Editfensters, die Beschriftung erfolgt.
Wie kann ich dies realisieren?
Vielen Dank

Gruss
Mat

Delphi-Quellcode:

unit LIAcc;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, Menus, jpeg, ExtCtrls;

type

  TForm13 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    MainMenu1: TMainMenu;
    Menu1: TMenuItem;
    Exit1: TMenuItem;
    Help1: TMenuItem;
    Edit1: TEdit;
    Label1: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Image2: TImage;
    StringGrid1: TStringGrid;
    Button2: TButton;
    Button3: TButton;
    StringGrid2: TStringGrid;
    procedure Exit1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1Exit(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);

  private
    { Private-Deklarationen }

  public
    { Public-Deklarationen }

  end;

 

var

  Form13: TForm13;
  uc, u60, u200, u500, u1000   : extended;


implementation

{$R *.dfm}

procedure TForm13.Exit1Click(Sender: TObject);
begin
close();
end;

procedure TForm13.Button1Click(Sender: TObject);
begin
close();
end;

procedure TForm13.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
stringgrid1.cells[0,0]:='Time';
stringgrid1.cells[0,1]:='  60';
stringgrid1.cells[0,2]:=' 200';
stringgrid1.cells[0,3]:=' 500';
stringgrid1.cells[0,4]:='1000';
stringgrid1.cells[1,0]:='Lirc Value';
stringgrid2.cells[0,0]:='Repeat.';
stringgrid2.cells[1,0]:='Error';

if (Key=#13)
    then
      Button2.SetFocus;
end;

procedure TForm13.Edit1Exit(Sender: TObject);
begin
    try
       uc:=StrToFloat(Edit1.Text);
    except
          ShowMessage('Please enter only numbers for Uc!');
          Edit1.Clear;
          Edit1.SetFocus;
    end;
end;

procedure TForm13.Button2Click(Sender: TObject);
begin
u60:=uc*60/1000;
u200:=uc*200/1000;
u500:=uc*500/1000;
u1000:=uc*1000/1000;

stringgrid1.cells[1,1]:=FloatToStrF(u60, ffNumber, 8, 2);
stringgrid1.cells[1,2]:=FloatToStrF(u200, ffNumber, 8, 2);
stringgrid1.cells[1,3]:=FloatToStrF(u500, ffNumber, 8, 2);
stringgrid1.cells[1,4]:=FloatToStrF(u1000, ffNumber, 8, 2);
end;


end.

[Steku]

Bin mir nicht ganz sicher ob es das ist was du meinst,
aber pack doch die Beschriftungsroutine
in das OnShow-Event der Form...

Gruß
Steku

[DeddyH]

Oder ins OnCreate, wenn das fixe Texte sind.

[mat72]

Super, Danke.

[shmia]

Oder, noch schlauer mach' ne eigene Methode daraus, die vom OnCreate-Handler aufgerufen wird.
Auf die Weise bekommst du Code, der sich fast von selbst erklärt.

Delphi-Quellcode:

// fixe Texte im Stringgrid setzen
procedure TForm1.SetupStringGrid(sg:TStringGrid);
begin
  with sg do
  begin
    cells[0,0]:='Time';
    cells[0,1]:=' 60';
...
  end;
end;

procedure TForm1.Form1Create(sender:TObject);
begin
  SetupStringGrid(StringGrid1);
end;