Delphi Pages Forums  

Go Back   Delphi Pages Forums > Delphi Forum > DB-Aware

Lost Password?

Thread Tools Display Modes
Old 11-25-2007, 05:16 AM
cognitor cognitor is offline
Join Date: Apr 2003
Posts: 89
Default ShowMessage with a TDBedit inside

In the code below extracted from a GLscene demo after the comand ShowMessage('You clicked the '+pick.Name); a box appear with the sentence "You clicked the ...." and a OK button to press.


Is it possible to insert inside this message box in addition to the sentence "You clicked the ... " and the OK Button ALSO a TDBedit component in which I
could type something ?

If this is not possible with a SHOWMESSAGE which is the easiest way to do a run time box with a OK Button, the sentence and a TDBedit component

procedure TForm1.GLSceneViewer1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
pick : TGLCustomSceneObject;
// if an object is picked...
pick:=(GLSceneViewer1.Buffer.GetPickedObject(x, y) as
if Assigned(pick) then begin
// ...turn it to yellow and show its name
pick.Material.FrontProperties.Emission.Color:=clrY ellow;
ShowMessage('You clicked the '+pick.Name); // here is the point

Sergio (from Brazil)
Reply With Quote
Old 11-25-2007, 10:06 PM
Eddy-B Eddy-B is offline
Senior Member
Join Date: Feb 2002
Posts: 1,467
Default RE: ShowMessage with a TDBedit inside

Create a new form by selecting Add new->Form
Then in that form add your DBEdit, label and buttons in any way you like.


Please click Accept as answer if this helped
Reply With Quote

Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

All times are GMT. The time now is 07:44 PM.

Powered by vBulletin® Version 3.8.8
Copyright ©2000 - 2019, vBulletin Solutions, Inc.