hi, Thanks to you to look at my problem !
Oups sorry...:-) it is just because you need a main form (let's call it FormMain) calling the Form1 with a Show instruction (not Showodal) from a Button (let's call it ButtonMain) on the Main Form. But take a look at the source here if you want : http://www.crawleyscastingcalls.com/temp/test/ and yes, you're right it is TForm1 (not TForm2). So i my example, because of the Stay on Top Form1 above the FormMain form, the Form1.Deactivate event is fired each time you click on the Button1, or when you click on the FormMain form which is below Form1. I work under XP (sp2) with D7. Cédric ----- Original Message ----- From: "Sid Gudes" <[email protected]> To: "Borland's Delphi Discussion List" <[email protected]> Sent: Saturday, May 09, 2009 5:37 PM Subject: Re: Problem refreshing Memo of a Form I created a small project that has these components and it worked fine in D7 under XP; which version are you using? I note that your OnClick below refereces Tform1, but your OnDeactivate references Tform2. Perhaps the code below doesn't reflect all the code in your project? Also, since the form is change to StayOnTop, the OnDeactivate event never gets fired... At 02:20 AM 5/9/2009, Cédric Joubert wrote: >hi, > >I have a simple question about repainting >controls in a form but this example is maybe simpler to ask my question : > >I have a form with 1 TButton, 1 TEdit and 1 TMemo. > > the text 'Edit1' is displayed in TEdit.text > the text 'Memo1' is displayed in the first line of TMemo > >In my code Button1.OnClick i have just 2 lines : > >procedure TForm1.Button1Click(Sender: TObject); >begin > FormStyle := fsNormal; > FormStyle := fsStayOnTop; >end; > >In my TForm.OnDeactivate i have just this line : > >procedure TForm2.FormDeactivate(Sender: TObject); >begin > Memo1.Lines.Add('deactivate'); >end; > > >Question : when i launch my form I see the 2 >text "Edit1" and "Memo1" correctly displayed. >Then when I click on the button, the "Edit1" >text stay right displayed in TEdit >but the text of TMemo is erased, why ? > >TEdit and TMemo have exactly the same priciapl >heritance hierarchy...(TWincontrol... TPersistent...). > >Anyone can help me ? > >Cédric > > >_______________________________________________ >Delphi mailing list -> [email protected] >http://lists.elists.org/cgi-bin/mailman/listinfo/delphi Regards, Sid Gudes PIA Systems Corporation [email protected] _______________________________________________ Delphi mailing list -> [email protected] http://lists.elists.org/cgi-bin/mailman/listinfo/delphi _______________________________________________ Delphi mailing list -> [email protected] http://lists.elists.org/cgi-bin/mailman/listinfo/delphi
