
19.05.2012, 21:32
|
Прохожий
|
|
Регистрация: 16.05.2012
Сообщения: 10
Репутация: 10
|
|
Не могу найти в событиях таблицы OnCreate ... только свойство OnClick...
А если прописываю в коде создание формы, то почему-то не получается..Сможете подсказать где ошибка в коде:
Код:
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, TeEngine, Series, TeeProcs, Chart, Grids;
type
TForm3 = class(TForm)
Button1: TButton;
Button2: TButton;
Panel1: TPanel;
StringGrid1: TStringGrid;
Button3: TButton;
Button4: TButton;
Panel2: TPanel;
Panel3: TPanel;
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Panel4: TPanel;
StringGrid2: TStringGrid;
Button5: TButton;
procedure OnCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
// procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
c : Single = 3e8;
massa,zariad: real;
q:byte;
implementation
uses Unit2,Unit1;
{$R *.dfm}
Procedure TForm3.OnCreate(Sender: TObject);
begin
StringGrid1.Cells[0,0] := 'Напряжение U, МВ';
StringGrid1.Cells[0,1] := 'Скорость v, м/c';
end;
|