witam
no dobrze. Pan A.Boduch doradzil mi zebym zapodal jakis fragmencik kodu.
WIec wyglada to tak: Mam 3 okna fsMDIForm, fsMDIChild i fsNormal
okno child (ktore tworze w ten sposob: "Child := TChild.Create(Self)) jest okienkiem
w ktorym jest RichEdit (jak w zwyklym edytorze textu).
Dalej glowne okno programu (mainfrm) mam ustawione formstylena fsMdiForm.
Trzecie okno (ktore odpala sie po kliknieciu w MainFrm na przycisk)
jes oknem FormStyle=fsNormal (chociaz co do tego nie jestem pewien czy jest dobrze)
dalej klikam w MainFrm na przycisk wstaw i uruchamia mi sie okno 3 czyli
fsNormal. Tam jest Edit i Button. PO kliknieciu na button
na formularzu RichEdit (w Cihld) wstawiany zostaje tekst z Edit.
Wiec wypisuje:

procedure TFormaTrzy.ButtonClick(Sender: TObject);
var
Error:integer;
begin
try
if Edit1.Text='' then
Error:=Application.MessageBox('Brak tekstu !!!','Błąd!',MB_OK + MB_ICONERROR)
else

begin
  With ActiveMdiChild as TChild do  
   begin
    with RichEdit do 
       begin
          SelText:=edit1.text;

end;
end;

No i co jest nie tak ?? Wyskakuje mi blad Acces Denied! [???]

pozdr
mic [alien]