I do this as well and I use the following routine to make it happen: procedure TMyForm.PlaceInsideContainer(Container: TWinControl); begin Parent := Container; Align := alClient; BorderIcons := []; BorderStyle := bsNone; ParentBackground := True; Show; end; I have no problems with this. The only difference that I could possibly imagine could be relevant is the … Read more
This is from Delphi help (Delphi 2006, but also available from at least Delphi 7): Syntax function GetClass(const AClassName: string): TPersistentClass; Description Call GetClass to obtain a class from a class name. This class can be used as a parameter to routines that require a class. The Class must be registered before GetClass can find … Read more
Delphi does not support Multiple Inheritance. But classes can support / implement multiple interfaces and you can delegate interface implementation, so you can kinda simulate multiple inheritence.
The solution is to post a queued message to the control, which it responds to by destroying itself. Ny convention we use CM_RELEASE which is the private message used by TForm in its implementation of the Release method that performs an analogous task. interface type TAmountEdit = class (TEdit) … procedure KeyUp(var Key: Word; Shift … Read more
There’s another similar question, but I’ll repeat my reply here too, to make sure as many people see this info: First up, a disclaimer: although I work for Embarcadero. I can’t speak for my employer. What I’m about to write is based on my own opinion of how a hypothetical 64-bit Delphi should work, but … Read more
Using the Native API function NtQuerySystemInformation you can list all open handles from all processes. try this example program ListAllHandles; {$APPTYPE CONSOLE} uses PSApi, Windows, SysUtils; const SystemHandleInformation = $10; STATUS_SUCCESS = $00000000; STATUS_BUFFER_OVERFLOW = $80000005; STATUS_INFO_LENGTH_MISMATCH = $C0000004; DefaulBUFFERSIZE = $100000; type OBJECT_INFORMATION_CLASS = (ObjectBasicInformation,ObjectNameInformation,ObjectTypeInformation,ObjectAllTypesInformation,ObjectHandleInformation ); SYSTEM_HANDLE=packed record uIdProcess:ULONG; ObjectType:UCHAR; Flags :UCHAR; Handle :Word; … Read more
If you want to register the association for every user, write your data to HKEY_LOCAL_MACHINE\Software\Classes If you want to register the association for the current user only, write your data to HKEY_CURRENT_USER\Software\Classes This is how to do the latter: with TRegistry.Create do try RootKey := HKEY_CURRENT_USER; if OpenKey(‘\Software\Classes\.myfile’, true) then WriteString(”, ‘MyAppDataFile’); if OpenKey(‘\Software\Classes\MyAppDataFile’, true) … Read more
When moving from Delphi 7 to Delphi 2010., our .exe’s grew for example from 16 megs to 35 megs. I asked a question similar to yours on the Embarcadero forum a few weeks ago. (link) In my OP, I listed a series of links on this subject that you might find helpful. We tried using … Read more
This Thread helped me creating something as we discussed yesterday. I took the package posted there and modified it a bit. Here is the source: TestComponents.pas unit TestComponents; interface uses Classes; type TParentComponent = class; TChildComponent = class(TComponent) private FParent: TParentComponent; procedure SetParent(const Value: TParentComponent); protected procedure SetParentComponent(AParent: TComponent); override; public destructor Destroy; override; function … Read more
SFTP and “FTP over SSH” are two separate things, and neither involves SSL (as someone else has suggested). SFTP is a sub-protocol of SSH while “FTP over SSH” is good/bad ol’ FTP tunnelled through an SSH connection with port forwarding. Either way, what you’re after is a Delphi SSH library. I was unable to find … Read more