Показать сообщение отдельно
  #17  
Старый 19.05.2012, 23:39
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Цитата:
Сообщение от Impressive
Вроде место есть куда писать, но не получается...
ПОЛНЫЙ КОД:

Код:
...
type
    TForm3 = class(TForm)
...
   procedure OnCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

...

implementation

uses Unit2,Unit1;

{$R *.dfm}

Procedure TForm3.OnCreate(Sender: TObject);
begin
StringGrid1.Cells[0,0] := 'Напряжение U, МВ';
StringGrid1.Cells[0,1] := 'Скорость v, м/c';
end;
Так конечно работать не будет. Событие OnCreate на форму, так не пишется, его нужно создать в "Инспекторе объектов".
Код:
type
  TForm1 = class(TForm)
...
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.Cells[0, 1] := 'Напряжение U, МВ';
  StringGrid1.Cells[0, 2] := 'Скорость v, м/c';
end;
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием