Learn to build secure applications from the mindset of the hacker and avoid being exploited.
query
Experts,
Stuck with a prob as below:
i have a form, on the form i have a button and an edit box. I have another form, and an edit box there also. on clicking the form 1 button i need to show the text of form1's edit box into form2's text box.
Can anyone suggest with code?
Stuck with a prob as below:
i have a form, on the form i have a button and an edit box. I have another form, and an edit box there also. on clicking the form 1 button i need to show the text of form1's edit box into form2's text box.
Can anyone suggest with code?
Do more with
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses unit2;
procedure TForm1.Button1Click(Sender: TObject);
begin
form2.Edit1.Text := Form1.Edit1.Text;
form2.Show;
end;
end.
again ... not very nice to use form1 or form2
doesn't anybody ever consider using 1 form into 100+ projects ?
why do so many developers make so many forms over and over and over ...
doesn't anybody ever consider using 1 form into 100+ projects ?
why do so many developers make so many forms over and over and over ...
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses uInfo;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowInfo('info', Edit1.Text);
end;
end.
unit uInfo;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TfrmInfo = class(TForm)
lblHeader: TLabel;
lblInfo: TLabel;
btnOk: TButton;
procedure btnOkClick(Sender: TObject);
end;
var
frmInfo: TfrmInfo;
procedure ShowInfo(aHeader, aInfo: string);
implementation
{$R *.dfm}
procedure ShowInfo(aHeader, aInfo: string);
var frm: TfrmInfo;
begin
frm := TfrmInfo.Create(Application);
try
frm.lblHeader.Caption := aHeader;
frm.lblInfo.Caption := aInfo;
frm.ShowModal;
finally
FreeAndNil(frm);
end;
end;
procedure TfrmInfo.btnOkClick(Sender: TObject);
begin
Close;
end;
end.
systan,
this is a solution in which unit1 is totally dependant on
* the existance of unit2
* form2 existing in unit2
if you copy unit1 into a other project
then it will by default not work
i guess most developers have to write millions of line of code
and after writing all that code they start to wonder:
" why is it that i have so many same forms in all those projects ?... "
" wouldn't it be possible to use 1 same form in all projects ?"
well .. no ... cause unit1 depends on unit2
and unit34 depends on unit27
and unit62 depends on unit52
etc ... etc .. etc
.. so i'll do the quick and dirty ... i'll copy ALL the units to the new project :)
and just change where needed.
I guess that's why AbhiJeet is asking these questions
or am i mistaken AbhiJeet ?
this is a solution in which unit1 is totally dependant on
* the existance of unit2
* form2 existing in unit2
if you copy unit1 into a other project
then it will by default not work
i guess most developers have to write millions of line of code
and after writing all that code they start to wonder:
" why is it that i have so many same forms in all those projects ?... "
" wouldn't it be possible to use 1 same form in all projects ?"
well .. no ... cause unit1 depends on unit2
and unit34 depends on unit27
and unit62 depends on unit52
etc ... etc .. etc
.. so i'll do the quick and dirty ... i'll copy ALL the units to the new project :)
and just change where needed.
I guess that's why AbhiJeet is asking these questions
or am i mistaken AbhiJeet ?
yes,
I understand Geert,
thank you,
next time, I will, I hope to remember that.
So, to be sure for a simple sample code, I attached a project file.
I understand Geert,
thank you,
next time, I will, I hope to remember that.
So, to be sure for a simple sample code, I attached a project file.
i still don't understand why so many "experts" display so much bad practices
* not renaming components/forms/units
* making units interdependant on each other >> causing circular unit reference
* using the global form variables inside implementation sections of other units
your sample contains all these bad practices systan ... FactorB too for that matter
* not renaming components/forms/units
* making units interdependant on each other >> causing circular unit reference
* using the global form variables inside implementation sections of other units
your sample contains all these bad practices systan ... FactorB too for that matter
Actually, it's easier to find out or understand of we'll use default components/forms/units FOR us.
I believed in you Geert, but for the asker, the way I see, he needs a very simple sample that includes the whole project folder. That's why I attached the project file. That's only for now, soon?, it can be managed.
In my other projects, I always listen and implement what you've said geert.
thanks tor Ex-Ex Delphi experts, I'll reach my Guru Level soon this month.
Even thought I suffer to compete answering with good experts here, like you, epasquier, ewangoya and jimyX, I still continue.
Don't worry Geert, were following your suggestions.
I believed in you Geert, but for the asker, the way I see, he needs a very simple sample that includes the whole project folder. That's why I attached the project file. That's only for now, soon?, it can be managed.
In my other projects, I always listen and implement what you've said geert.
thanks tor Ex-Ex Delphi experts, I'll reach my Guru Level soon this month.
Even thought I suffer to compete answering with good experts here, like you, epasquier, ewangoya and jimyX, I still continue.
Don't worry Geert, were following your suggestions.
@Geert
You missed a great opportunity to drive readers to your excellent Delphi articles, such as the Black Box Technique
http://www.experts-exchange.com/A_1285.html
You missed a great opportunity to drive readers to your excellent Delphi articles, such as the Black Box Technique
http://www.experts-exchange.com/A_1285.html
Premium Content
You need an Expert Office subscription to comment.Start Free Trial