Solved

More dialogs

Posted on 1998-11-05
8
157 Views
Last Modified: 2010-04-16
what running dialogs boxes in TPW 1.5 i need to know how to put in values to edit boxes as soom as they are run.
0
Comment
Question by:pobwest
  • 4
  • 3
8 Comments
 
LVL 2

Expert Comment

by:joe_h
ID: 1215973
do you mean the default values that appear in an edit box as soon as the dialog appears?

0
 

Author Comment

by:pobwest
ID: 1215974
no, i can put in default values using the workshop, i need to know how to pass variables into them when they are executed.



 
0
 
LVL 27

Expert Comment

by:BigRat
ID: 1215975
If you are programming with object pascal then you have a PEdit object and you can call the setText method.
   If you are programming with raw windows (à la Petzold as I say) then we are going to write SendDlgItemMessage(hDlg,IDD_ITEM,EM_SETTEXT,0,Long(PChar(@Text))); or something similar!
0
 

Author Comment

by:pobwest
ID: 1215976
not quite what i meant.

When i run a dialog with:
 Application^.ExecDialog(New(PMyDialog, Init(@Self, DIALOG_2')));    

I want value to appear staight away, ie loaded from suitable variables.

I know how to send the data there:
 
setdlgitemint(Hwindow,250,Share_Pointer,false);

for example; but i need this to be run as soon as the dialog box is initiated.
   
0
Better Security Awareness With Threat Intelligence

See how one of the leading financial services organizations uses Recorded Future as part of a holistic threat intelligence program to promote security awareness and proactively and efficiently identify threats.

 
LVL 27

Expert Comment

by:BigRat
ID: 1215977
You have a type TMyDialog and PMyDialog = ^TMyDialog. The object TMyDialog is probably extended from TDialog. The method SetupWindow is called on WM_INITDIALOG and at this point the "handle to window" TMyDialog.hWindow is valid and you can call setdlgitemint if you want.
0
 

Author Comment

by:pobwest
ID: 1215978
I'm still a bit lost with this dialog thing malarky.
Could you write down how you would run a dialog designed in resource work shop and enter values in it to see if I'm on the right lines?
0
 

Author Comment

by:pobwest
ID: 1215979
ha, stumped you all hey?
0
 
LVL 27

Accepted Solution

by:
BigRat earned 70 total points
ID: 1215980
Stumped not, I forgot to mark my reply with e-mail notification! Probably I was asleep like a dormouse.
   When you wrote TMyDialog you specified an Init procedure (the constructor) which takes two parameters, the Window above (on the call specified as @self) and the name of the dialog resource (DIALOG_2 which you made in resource workshop).
   First your Init constructor does not pass any variables which you could put in the boxes. You could make them global, or you could pass them by changing the definition of the constructor. You cannot in the constructor put these values into the boxes since there is no hWindow at this time. One does this at window initialisation time, namely when SetupWindow is called. So we design it as follows :-

const
   BoxId = 123;    (* IdNr of box in dialog from ResourseWorkshop *)
type
    TMyDialog   = object(TDialog)

                          Value1 : Integer;

                          constructor Init(AParent : PWindowsObject;
                                                AName  : PChar;
                                                AValue  : Integer);
                           procedure SetupWindow; virtual;
                           .....
                           end;

constructor TMyDialog.Init(AParent : PWindowsObject;
                                       AName  : PChar;
                                       AValue  : Integer);
  begin
   inherited Init(AParent,AName);
   (* save parameter for later *)
   Value1:=AValue;
  end;

procedure TMyDialog.SetupWindow;
  begin
   (* initialize my boxes *)
   SetDlgItemInt(hWindow,BoxId,Value1,false);
   (* etc... *)
  end;
 
Is that clear? And does Rat get the cheese?
 

   
0

Featured Post

Why You Should Analyze Threat Actor TTPs

After years of analyzing threat actor behavior, it’s become clear that at any given time there are specific tactics, techniques, and procedures (TTPs) that are particularly prevalent. By analyzing and understanding these TTPs, you can dramatically enhance your security program.

Join & Write a Comment

Hyena v12.2 is now available for downloading and is available in English, French, German and Spanish versions.
Are you unable to connect or configure Hotmail email account in Microsoft Outlook 2010, 2007? Or Outlook.com emails are not downloading to Outlook? Lets’ see the problem and resolve Outlook Connector error syncing folder hierarchy (0x8004102A).
This demo shows you how to set up the containerized NetScaler CPX with NetScaler Management and Analytics System in a non-routable Mesos/Marathon environment for use with Micro-Services applications.
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…

746 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

16 Experts available now in Live!

Get 1:1 Help Now