Вызов события компонента на другой форме

[Lokos]

На одной форме есть кнопка с кодом

form2.show;
unit2.form2.combobox1.text:='qqq';

У combobox есть событие OnChange в котором прописано выводить сообщение любое если свойство text = qqq
как сделать чтоб при появлении формы происходила запись значения qqq в свойстве text и происходило событие onchange

[Пепел Феникса]

Form1.ComboBox1Change(Form1.ComboBo x1);
так если память не изменяет.

[artemavd]

В той форме, которая появляется и на которой находится ComboBox, в событии OnCreate напишите:

Form2.ComboBox1.Text:='qqq';

[Lokos]

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

В той форме, которая появляется и на которой находится ComboBox, в событии OnCreate напишите:

Form2.ComboBox1.Text:='qqq';

эм чет не то. Это в форме 1 в кнопке код такой.
Причем на тойже форме расположены labelededit'ы и уних есть событие OnChengе отлично работает. В comboboxe расположен код загрузки информации из базы по воодимой информации вот код может поможет

procedure TAddData.AgentNamberChange(Sender: TObject);
var
jpegAgFot:TJpegImage;
begin
   DM.FIBDS.Close;
   DM.FIBDS.SQLs.SelectSQL.Text:=('SELECT "ИМЯ","ФАМИЛИЯ","ОТЧЕСТВО","ТЕЛЕФОН","ФОТО" FROM SOTRUDNIKI WHERE "№ УДОСТОВЕРЕНИЯ"='+QuotedStr(AgentNamber.Text));
   DM.FIBDS.Open;
   if DM.FIBDS.RecordCount<>0 then
      begin
         AddData.fio.caption:=(DM.FIBDS.Fields[1].asString)+' '+
         (DM.FIBDS.Fields[0].asString)+' '+(DM.FIBDS.Fields[2].asString);
         AddData.TelNamber.caption:=(DM.FIBDS.Fields[3].asString);
         jpegAgFot := TJpegImage.Create;
         jpegAgFot.Assign(TBLOBField(DM.FIBDS.Fields[4]));
         Image1.Picture.Bitmap.Assign(jpegAgFot);
         jpegAgFot.Free;
      end;

end;

Вроде не чего особенного а вот код эдита

procedure TAddData.avnsChange(Sender: TObject);
var
   dl,i:integer;
   s,s1:string;
begin
   dl:=length(AddData.avns.text);
   if dl>50 then
       messagedlg('Вы ввели максимальное количество знаков',mtwarning,[mbOK],3);
   s:=avns.Text;
   for I := 1 to dl do
      if i<51 then
         s1:=s1+s[i];
   avns.Text:=s1;
   avns.EditLabel.Caption:='Аванс '+IntToStr(length(s1))+'/50';
end;

Сообщение от Пепел Феникса

Form1.ComboBox1Change(Form1.ComboBo x1);
так если память не изменяет.

Все вышло спс

[evg_m]

как сделать чтоб при появлении формы

OnCreate Onshow

происходила запись значения qqq в свойстве text

cmd.Text:='qqq'

и происходило событие onchange

событие (точнее обработчик события) это процедура которую тоже можно вызывать form.Oncmdchane(cmd);