Search the Community
Showing results for tags 'call procedure/function on o'.
Found 1 result
-
hi.. is there any way to call function / procedure on other form like if i have function/procedure on form error i create procedure like this procedure TFrmError.Run(arun: integer; acaption: string; errornya: tstringlist); var FrmError:TUniForm; begin screen.Cursor := crhourglass; FrmError := TFrmError.Create(nil); with FrmError do begin try Caption := acaption; if caption = '' then caption := 'Error'; caption := application.Title; Memo1.Text := errornya.Text; Memo1.Color := color; if FileExists(ExtractFilePath(Application.ExeName) + 'img\error.png') then Image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + 'img\error.png'); FormStyle := fsStayOnTop; ShowModal; finally screen.Cursor := crDefault; FreeAndNil(FrmError); end; end; end; how i call that form procedure or function from another form ? thanks
