The evolution of invention.
From thought.
To form.
To function.
Not the form again...
-------------------------
In this lesson...
I wana show you how to open up a new form.
So lets get cracking.
Here it is in pictures.
Code: uses
Classes, Graphics, Controls, Forms, Dialogs, Unit2, Unit3;
var
MainForm: TForm2;
begin
MainForm := TForm2.Create(Application);
MainForm.Show;
end;
Unit 2 code.
Code: {$FORM TForm2, Unit2.sfm}
uses
Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
procedure Button1Click(Sender: TObject);
var
MainForm3: TForm3;
begin
MainForm3 := TForm3.Create(Application);
MainForm3.Show;
end;
begin
end;
That was so easy...
Ok, Now onto the design of the bot.
So, we have these items.
3 units.
2 forms.
1 menu
OpenDialog
and
SaveDialog on form 2
SaveDialog on form 3
Buttons
TLables
Bevel edges
TCheckBoxes
4 memos on form 2
1 memo on form 3
Tedits
And a partridge in a pear tree...
(I have included the zip file) accessible to members only on our community support and investigation zone
Fairly straight forward.
Just read the previous tutorials if you get stuck.
Onto the meat and potatoes.
The Code.
Here is the bot with all the key procedures for all objects.
Now, the procedure may not do anything.
But you got to them.
In order for that part of the bot to work.
For instance.
The "Stop" button.
See attachment 3
Code: procedure Button_StopClick(Sender: TObject);
begin
end; Pressing wont do anything.
So we are going to add something to it.
In order to get it to do something.
We have all the ingredients.
We just need the filling.
Copyright © 2007-2011, All rights reserved to Money Maker Machine