I was slightly bored, and I wanted to play with my new Delphi XE, so I’ve made a component for you. It should work in older Delphi’s just fine. You can download it here: BitEditSample.zip How does it work? It inherits from customcontrol, so you can focus the component. It contains an array of labels … Read more
For the fun of it, I wrote an ImageGrid component for you. It has only a vertical scroll bar; resizing the width of the control adjusts the column count and row count. The images are cached as resized bitmaps in an internal list, along with their file names. Because loading and resampling these images may … Read more
You didn’t mention which version of Delphi… Newer Delphi versions have added two new properties to TCustomForm: PopupMode and PopupParent. Setting PopupParent of your modal dialog to the form that’s creating that dialog makes sure that the child form stays on top of it’s parent. It usually fixes the problem you’re describing. I think this … Read more
If you have an object variable in scope and it may or may not be a valid reference, FreeAndNil is what you should be using. That or fixing your code so that your object references are more tightly managed so it’s never a question. Access Violations shouldn’t be thought of as an enemy. They’re bugs: … 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
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
It’s pretty simple in modern Delphi. It’s all built in. Drop a TImage onto the form and load the animated GIF into the Picture property. Then, start the animation by means of the Animate property: (Image1.Picture.Graphic as TGIFImage).Animate := True; You can control the animation with AnimateLoop and AnimateSpeed. It should be pretty easy to … Read more
It is surprisingly common that Delphi applications are reported as (potentially) harmful by AV applications. It happened to me a while ago, using Delphi 2009, see http://en.wikipedia.org/wiki/Wikipedia:Reference_desk/Archives/Computing/2010_March_20#Delphi.2FAVG_Issue. At SO, we also have Virus in Delphi 7 Accidentally created a virus? and many more. It might be the actual Induc Virus. But most likely, it is … Read more
TWebBrowser is just a wrapper for the Internet Explorer ActiveX control, so this is really an IE DOM issue, not a Delphi issue. Try setting the select element’s selectedIndex property instead of its value property: WebBrowser1.OleObject.Document.All.Item(‘year’, 0).selectedIndex := 0; The value property is what gets transmitted to the server, but only of there is an … Read more
var olddir: string; //global variable procedure olddiris(name:string); begin if name=”trick” then olddir:= ‘c:\program files\’+name; end; procedure MyGetPath(name:string); var options : TSelectDirOpts; begin OldDirIs(name); //returns olddir if FileCtrl.SelectDirectory(OldDir,options,0) then ShowMessage(‘i got it’); end; procedure TForm1.Button1Click(Sender: TObject); begin Mygetpath(‘trick’); end; This code runs without error… (Note: changed GetPath -> MyGetPath; added “\” to ‘c:\program files’) If the … Read more