При старте програмы

[KoBRaAndrey]

Как сделать действие когда программа еще только начинаеться
вот ети команды
ComboBox1.Items.Add('Гривен');
ComboBox1.Items.Add('Рублей');
ComboBox2.Items.Add('Рубли');
ComboBox2.Items.Add('Гривны');

[russian-stalker]

событие onCreate формы

[Lemo]

или onActivate...

[KoBRaAndrey]

procedure onActivate;
begin
ComboBox1.Items.Add('Гривен');
ComboBox1.Items.Add('Рублей');
ComboBox2.Items.Add('Рубли');
ComboBox2.Items.Add('Гривны');
end;

непашет не верит что есть такие обьекты

[Simply-Art]

Сообщение от KoBRaAndrey

procedure onActivate;
begin
ComboBox1.Items.Add('Гривен');
ComboBox1.Items.Add('Рублей');
ComboBox2.Items.Add('Рубли');
ComboBox2.Items.Add('Гривны');
end;

непашет не верит что есть такие обьекты

 procedure FormActivate(Sender: TObject);
private

procedure TForm1.FormActivate(Sender: TObject);
begin
ComboBox1.Items.Add('Гривен');
ComboBox1.Items.Add('Рублей');
ComboBox2.Items.Add('Рубли');
ComboBox2.Items.Add('Гривны');
end;

[KoBRaAndrey]

procedure FormActivate(Sender: TObject);
private

procedure TForm1.FormActivate(Sender: TObject);
begin
ComboBox1.Items.Add('Гривен');
ComboBox1.Items.Add('Рублей');
ComboBox2.Items.Add('Рубли');
ComboBox2.Items.Add('Гривны');
end;
ошибок не находит но в окошках нечего не появляеться

[Alex Cones]

Как создавал Activate? Ручками вбивал?

[KoBRaAndrey]

отсюда скопировал

[Alex Cones]

Молодец!!! Выдели форму в ObjectInspetor и выбери вкладку events там будет OnActivate жмакни два раза и туда скопируй процедуру.

[KoBRaAndrey]

спасибо!!!!