function getParentForm(wc:TwinControl):Tform;
var
parentControl :TWinControl;
begin
try
parentControl := wc.Parent;
while not ((parentControl is Tform) or (parentControl =nil)) do
parentControl := parentControl.Parent;
result := parentControl as Tform;
except
on E:exception do
Short term (2 months), sunny Bay of Plenty (Te
Puke) for Delphi 4 C/S Application, start ASAP.
e-mail [EMAIL PROTECTED] if you are
interested.
Hi there:
I'm designing a client/server DB app for a travel agency. The server
will be in the main house, and the clients all around the country, one on
every sale point.
There will be a web based client, programmed by someone else who defends
the idea of using MS-SQL as the server app. I
Hello
I have been using the TStarFtp- Internet FTP Component for Delphi by Tony
BenBrahim for over a year on win95/98 machine without any problems. I have
now started testing on a NT machine and am getting data transmission errors
sporadically.
Does anyone know if there is an update or know of
If you have another table with a record for each client then you can record
the last journal id processed by each client. Then have a purge process
that removes old journal entries based on the min(id).
The problem with this is cross db transactions. What happens if the cleint
read the
hidden message brain dump mode
Chant the following backwards before you go to sleep for the next few days
and you will feel better:
.tinu sap.metsys eht elipmocer ot tnaw t'nod I ,oN
/hidden message brain dump mode
Seriously, system.pas depends on "compiler magic". All sorts of things are
hard
OK. Fine. I'll risk the impure design!
Where do you guys learn all this stuff?!
Thanks everyone.
Mark
OK
When I try this, or the similar hex solution proposed all I get
is
Line1||Line2 (ie 2 heavy vertical bars in place of the CR/LF
characters)
or more precisely
ne1||Lin
There must be
Sounds like you are using a TButton - which doesnt support multilines - use
a TBitButton instead
Oscar
-Original Message-
From: Mark Howard [mailto:[EMAIL PROTECTED]]
Sent: Friday, February 04, 2000 10:00 AM
To: Multiple recipients of list delphi
Subject: [DUG]: Multi-line Caption
OK.
Thanks Chris
But it seems a bit long winded
How does this compare with GetTopParentHandle or Screen.ActiveForm.Handle
Regards
Neven
- Original Message -
From: Chris Reynolds [EMAIL PROTECTED]
To: Multiple recipients of list delphi [EMAIL PROTECTED]
Sent: Thursday, 3 February 2000
Stacey wrote:
Does ExOnHook32 work with Delphi 4?
The nagware component I downloaded DID worked for me, and I
only had the DCU (i.e no request to recompile when I built an
app which used it).
Checked out pretty good -- now testing it in a (semi) live setting.
cheers,
peter
I was looking at http://home.turbopower.com/~perl/page3.html
when i should have been looking at
http://home.turbopower.com/~perl/exhook.htm.
Stacey
-Original Message-
From: Peter Hyde [mailto:[EMAIL PROTECTED]]
Sent: Friday, 4 February 2000 10:13
To: Multiple recipients of list
Okay last simple question - from a control how to I find its form? so I
can get the Handle?
function getParentForm(wc:TwinControl):Tform;
var
parentControl :TWinControl;
begin
try
parentControl := wc.Parent;
while not ((parentControl is Tform) or (parentControl =nil)) do
I'm designing a client/server DB app for a travel agency. The server
will be in the main house, and the clients all around the country, one on
every sale point.
There will be a web based client, programmed by someone else who defends
the idea of using MS-SQL as the server app. I like (love)
All this talk of how to find the owning form for an control and no one has
mentioned the standard utility functions GetParentForm and ValidParentForm
in Forms.pas that will do what you want and are guarenteed to be available
and working over any possible future changes to Delphi!
Have a look in
Peter and co will say they WebHUB
(www.href.com) is in there too, but its a 3rd party product,
so we were not really
considering it in our list - tho I'd say you should atleast
LOOK at it :)
My understanding is WEBHUB lite is included with D5. Doesn't this kinda
imply that Borland does in
Hi again
Using D3.
I want to remove one version of a QReport from my project and
replace it with another.
I use Project manager to remove it but when I go to add in the
new report I get 3 error messages
Warning - duplicate resources
TYPE 10 (RCDATA), ID TOWNSUM1
File OwnSum2Un.DFM resource
How's this then ... (admittedly doesn't provide the same
side-effects as the above)
function FindControlForm(WC:TwinControl):Tform;
begin
Result := nil;
repeat
if WC is TForm then Result := TForm(WC)
else WC := WC.Parent;
until WC=Result;
end;
FindControlForm (Nil) -
No, it IS a TBitBtn.
Mark
Oscar Martin wrote:
Sounds like you are using a TButton - which doesnt support multilines - use
a TBitButton instead
Oscar
-Original Message-
From: Mark Howard [mailto:[EMAIL PROTECTED]]
Sent: Friday, February 04, 2000 10:00 AM
To: Multiple recipients
It still runs because a unit doesnt have to be in the project (.dpr) to be
included in the exe! :) If it is in a uses clause and the .pas or .dcu file
is somewhere on your search path then it will still run...
As for the duplicate resources, I've had that before but forget how to fix
it (sorry
Dennis wrote:
(re: WebHub http://www.href.com)
built with Delphi, and you use it as you would the VCL. Shouldn't Borland
be encouraging developers to use products developed with Delphi?
...especially when large chunks http://of community.borland.com
are built with it g.
cheers,
peter
function FindControlForm(WC:TwinControl):Tform;
begin
Result := nil;
repeat
if WC is TForm then Result := TForm(WC)
else WC := WC.Parent;
until WC=Result;
end;
FindControlForm (Nil) - Access Violation time. Same thing if WC.Parent is
Nil.
You were warned it didn't have
Hi all,
Seems as though the market is hotting up in this regard. As usual for this time of
year I seem
to get enquiries from a number of parties for available Delphi programmers.
My take on the situation is that most people are gainfully employed, so the
opportunity exists
for some deal
I've never seen any documentation about Interbase before. Does it have
the
posibility to have the web based client programmed in something else than
Delphi? If this is the case, I wouldn't worry any more; it would be just
a
Java (JDBC), Perl (Mark! Where are those docs!), C(++), PHP3?, ASP
I would normally just do the following and have had no problems
btnTest.Caption := 'Line 1' + chr(13) + 'Line 2';
Eion McIntosh
PPCS Ltd
-Original Message-
From: Mark Howard [SMTP:[EMAIL PROTECTED]]
Sent: Friday, 4 February 2000 11:27
To: Multiple recipients of list delphi
Hiya all - I just thought I'd renew this thread as it was getting a little
out of control
I'm writing a CustomEdit (derived from a TCustomEdit) and one function I'd
like is to auto exit
(that is Fake TAB being pressed)
The Ideas I've had so far
1/ Use 'FindNextControl'
2/ Use
You might have to roll your own. If you include a "DT_WORDBREAK or " on
each line in the implementation of TButtonGlyph (buttons.pas) that refers to
"DT_CENTER ..." or "DT_CALCRECT", then your BitBtns will all wordwrap - and
everything else that uses TButtonGlyph (caveat: not sure how that might
Another idea (roughly):
1. Use MS SQL / MSDE (natural for ADO, see next point)
2. Use ADO (can easily share common _Connection object between many COM
objects, etc)
3. Create entire application as a series of COM objects with Delphi
(Business objects, Utility objects, DBLayer, etc - all the
My understanding is WEBHUB lite is included with D5. Doesn't this kinda
imply that Borland does in some way endorse this product. Afterall, it is
built with Delphi, and you use it as you would the VCL. Shouldn't Borland
be encouraging developers to use products developed with Delphi?
yeah -
How do we go about storing a several files
(LZh's) in one exe. The Exe would run, decompress the files to a temp
directory and then install them in various places in a users system (based on
registry settings). This would upgrade an existing application, with the
user only needing to run
Resources can become a problem if you replace a dfm but have
an old .res file hanging about. Try deleting the res files
and see if that helps.
Jeff Sinclair
At 11:34 4/02/00 +1300, you wrote:
It still runs because a unit doesnt have to be in the project (.dpr) to be
included in the exe! :) If
There
is an SFX example that comes with TCompress - does that give you any pointers? I
had a play with it, and it worked quite well.
-Original Message-From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf Of Steven
WildSent: Friday, 4 February 2000 13:31To: Multiple
Hi,
A guy in our team has a unit with a bunch of interfaces and another unit with
classes implementing those interfaces. There is one particular class however
that keeps reporting that the declaration of a procedure differs from the
declaration in the interface. I have checked that there are
have a
look at LoadCompressedResource in the help file for TCompress, and the
SELFEXTR.DPR and BMTEST.DPR sample projects.
There
also the SFX.DPR and MAKEEXE.DPR projects with TCompLHA (available even in the
shareware version) that I have had a play with, for making self extracting
EXEs.
The following is the contents of a .rc file:
#define ID_LANGUAGE_TXT 4242
ID_LANGUAGE_TXT RCDATA "language.txt"
compile that into a .res file then use the following code to access it:
procedure WriteLanguageFile;
var
ResStream : TResourceStream;
begin
ResStream :=
Hi
A site has an HP 2100 and my app is by default trying to print to
the wrong tray. (QR2)
By using the QRPreview Printer setup dialog box, we can get it to
print to the correct tray (Tray2).
Is someone able to send me a snippet of code which demonstrates
how to do this programmatically?
My
Tad advanced for me - besides if the suggestions about including CF/LF work for
others, why does my app not accept them?
Are there other TBitBtn properties that clash with the suggested solutions?
Mark
Carl Reynolds wrote:
You might have to roll your own. If you include a "DT_WORDBREAK or "
Mark,
Button.Caption := 'Line1'#$0D#$0A'Line2';
definitely works for me. What font are you using? What version of Delphi
are you using? I have used it with D2 - D4. Do you have a bitmap on the
button?
If you really cannot get this to work, you can always create a bitmap with 2
lines of
Unfortunately yes, I have had this problem. And I would love to know of an
easy solution. I just re-wrote everything and it was fine the second time
around. Sorry...
Dave.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]
Sent: Friday, 4 February 2000 3:11
To:
I'm having trouble getting nested datasets working for the first time.
Originally I was getting a 'Record changed by another user' message. I
created a simple test ap with a grid and 3 client datasets connected via a
DCOMConnection to my server. A button sets the main cds params and calls
Dennis
The following is a line copied out of the OnCreateForm procedure of the form on
which the BitBtn is located:
BitBtn1.Caption := 'Line1'#$0D#$0A'Line2'; (have also tried all the similar
variations suggested by others)
I have tried several different fonts - no go. Using D3.
Have tried with
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
Behalf Of Mark Howard
Sent: Friday, 4 February 2000 14:40
To: Multiple recipients of list delphi
Subject: [DUG]: Setting Default Printer Tray
Hi
A site has an HP 2100 and my app is by default trying to
Has anyone had a look at XCL (http://xcl.cjb.net/)?
Regards,
Dennis.
---
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
I've had this problem a bit when experimenting with flags on the Interface
and Automation Objects. Since its all just experimentation 'coz I don't
really understand some of the finer nuances of dual versus vtable etc and
how the type library editor deals with them, I'm not sure of the how and
43 matches
Mail list logo