I need to open and close a MDICHILD from a button in the MainForm. The toolbutton has style of checked so when I click the button in it should open MDIChild and when the toolbutton is pressed again it closes the same ChildForm. Other childforms created should stay the way they are.
Could you provide some source code
This Question has been solved and asker verified All Experts Exchange premium technology solutions are available to subscription members.
Experts Exchange has been collecting answers to technology questions since 1996…3 million and counting! If you have a question, chances are we already have your answer.
If you can't find the exact answer you're looking for, ask our exclusive community of 50,000 experts. You’ll get a personalized answer from a trusted professional.
Thousands of free tech tips, tricks, how-to’s and tutorials are available in our peer reviewed articles section. See for yourself how smart our experts are, no login required.
Save solutions to your questions, answers you’ve discovered through searching plus helpful articles in your personal knowledgebase for easy future access.
Access the answers to your technology questions today.
30-day free trial. Register in 60 seconds.
Members of the expert community talk about why the experience at Experts Exchange is different than what you will find anywhere else.
Try it out and discover for yourself.
30-day free trial. Register in 60 seconds.
Join the community of experts here and help other tech pros by answering question in your area of expertise. You can earn FREE access to all Experts Exchange's premium features and resources.
that code looks good to me. but it doesn't do what you asked for out of the box. maybe you just didn't adapted it correctly to your code.
I mean you asked for an open/close form thing, which I gave, but decided to accept geobuls solution which is a create/destroy solution. so as I see it, there is some communication issue here since you asked for something, you were give 2 good solutions, but for some reason none of them were good enough.
anyway, you have a lot of 7 Bs in your history which means that you are not an easy person to satisfy. and that is probably because you don't communicate correctly and fully your problem.
> Correct me if I'm wrong B = Good
well .. look at it this way:
A-top
B-middle
C-bottom
that means, on a scale from 1 to 10: 5.
if it's good or not .. well, that is not for me to judge, but I am sure that if you would be in the place of the one answering, doing your best to guess what the asker wants, and after all that you get a B and you are sure it's not your fault ...
you should pay more attention to what you ask and how you ask it so that people understand exactly what you need to get done and not how you thought it to be done. there is usually a big difference between the 2.
*IF* you feel you need to correct it, then you can ask in community support for this.
but don't get me wrong, if you feel that B is correct then you should leave it as B and maybe just give some more explanations on the reason (valid for future as well).
usually it is a good idea to just try and solve the issue with the help of the expert/s in order to be sure you will award a correct grade AND get your problems solved correctly. also, (since I am here already :) ) if you get to solve the issue yourself without the help of the experts, you should post the solution and ask in community support for a PAQ & refund.
you can read about all these and more in the help (http://www.experts-exchan
Business Accounts
Answer for Membership
by: ciulyPosted on 2006-08-31 at 03:36:47ID: 17427772
something like this?
object Form1: TForm1
Left = 192
Top = 114
Width = 696
Height = 480
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIForm
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 688
Height = 41
Align = alTop
Caption = 'Panel1'
TabOrder = 0
object Button1: TButton
Left = 56
Top = 8
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 0
OnClick = Button1Click
end
end
end
-----------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.Button1Click(Sender
begin
if form2.WindowState=wsMinimi
else form2.WindowState:=wsMinim
end;
end.
----------
create a new project with the main form/pas having the above code and a mdichild form named form2. is this the behaviour you want?