AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Wie Stringgrid Beschriftung bei Programmstart?

Ein Thema von mat72 · begonnen am 23. Apr 2012 · letzter Beitrag vom 23. Apr 2012
Antwort Antwort
mat72

Registriert seit: 15. Mär 2012
35 Beiträge
 
#1

Wie Stringgrid Beschriftung bei Programmstart?

  Alt 23. Apr 2012, 14:32
Delphi-Version: 5
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.
  Mit Zitat antworten Zitat
Steku

Registriert seit: 12. Mai 2008
181 Beiträge
 
Delphi 10.2 Tokyo Starter
 
#2

AW: Wie Stringgrid Beschriftung bei Programmstart?

  Alt 23. Apr 2012, 14:42
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
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.534 Beiträge
 
Delphi 11 Alexandria
 
#3

AW: Wie Stringgrid Beschriftung bei Programmstart?

  Alt 23. Apr 2012, 14:56
Oder ins OnCreate, wenn das fixe Texte sind.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
mat72

Registriert seit: 15. Mär 2012
35 Beiträge
 
#4

AW: Wie Stringgrid Beschriftung bei Programmstart?

  Alt 23. Apr 2012, 15:39
Super, Danke.
  Mit Zitat antworten Zitat
shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#5

AW: Wie Stringgrid Beschriftung bei Programmstart?

  Alt 23. Apr 2012, 16:57
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;
Andreas
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:38 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz