How does one draw text (with onClick event) in a caption bar on vista with aero Like Windows 7 ? The example at delphi.about.com doesn't work on Vista with aero. Do you have any ideas? Thanks to all. Sorry for my bad english. ...
Client: //is called when the client tries to log in procedure TLogin_Form.btnLoginClick(Sender: TObject); var LoginQuery: TQuery; begin //If socket not open, open it if not LoginSocket.Active then begin LoginSocket.Open; end; //create package LoginQuery.Login := ledtName.Text; LoginQuery.Passwort := ledtPasswort...
I am upgrading from Delphi 7 to Delphi 2009. In an existing app, the code completion does nothing at all. If I start a new project, it works fine. Any idea what is going on? ...
I'm using TJvPluginManager in the JVCL to create and load BPL-based plugins for my program. Problem is, one of the plugins isn't loading properly, and I can't debug it. Every time I try to trace into the loading sequence, it gets as far as the LoadLibrary API call, and then the debugger seems to forget what it's there for. It complete...
i have one problem when i run my program in delphi7 have one error message "unknown table type - permission denied - file:c:\PDOXURS.NET direcory C:\" i dont know of make tk for one answer ...
For each setter of a class I have to implement some event logic (OnChanging, OnChanged): procedure TBlock.SetWeightIn(const Value: Double); var OldValue: Double; begin OldValue := FWeightIn; DoOnChanging(OldValue, Value); FWeightIn := Value; DoOnChanged(OldValue, Value); end; procedure TBlock.SetWeightOut(const Value: Double); ...
I have got a method that takes a long time to complete and want to check regularly whether it is done. This is what I have come up with (simplified code, Delphi 2007): type IWaitForDone = interface function IsDone: boolean; end; function TSomeClass.doSomethingThatTakesLong: IWaitForDone; begin Result := TClassThatDoesIt.Creat...
Hi, I have been learning Delphi for the last 3 years, on a hobby/occupational level. I am happy to say that I have now progressed to the point that I can look back on my early code with horror and embarrassment. So I am now going through some of my early apps and rewriting/ refactoring them. One of the bad habits I am trying to get away...
In Delphi: How do I get the address (0x2384293) a pointer points to? var iValue := Integer; iptrValue := PInteger; implementation procedure TForm1.Button1Click(Sender: TObject); begin iptrValue := @iValue; iValue := 32342; //Should return the same value: Edit1.Text := GetAddressOf(iptrValue); Edit2.Text := GetAddressOf(...
I wrote a function,which seperates two or more packets received in one physical packet.However,the compiler doesn't appreciate my effort. The size of every packet is in the first two bytes of the header of the packet,which is 6 bytes.so one real packet = it's first two bytes + 6.That's how I find if there is more than one packet. proced...
I'm evaluating the possibility to write a web application using Delphi (ISAPI/CGI/...). I still cannot see enough reasons to use Delphi instead of a "classic" web development framework. If you have experience in this specific area please share your remarks. Would you recommend Delphi instead of PHP/Rails/ASP/...? Do you know any web app...
How do I change the color of a scrollbar in Delphi? ...
can someone explain this to me like I am a two year old, no its not a fetish just I cant seem to figure out which is router, number 3? what does 4 mean? uses WinInet; const MODEM = 1; LAN = 2; PROXY = 4; BUSY = 8; function GetConnectionKind(var strKind: string): Boolean; var flags: DWORD; begin strKind := ''; Result :...
I know how to get the favourites from IE, but how can I access Firefox's bookmarks? Here's the code I have for retrieving the IE favourites: uses ShlObj, ActiveX; function GetIEFavourites(const favpath: string): TStrings; var searchrec: TSearchRec; str: TStrings; path, dir, FileName: string; Buffer: array[0..2047] of Char; ...
Hi. I have been doing overlapped serial port communication in Delphi lately and there is one problem I'm not sure how to solve. I communicate with a modem. I write a request frame (an AT command) to the modem's COM port and then wait for the modem to respond. The event mask of the port is set to EV_RXCHAR, so when I write a request, I...
can someone find the folder used which the icons are pulled from> I was wanting to see only the icons and name from C:\Program Files or the registry of HKEY_LOCAL_MACHINE\SOFTWARE but NOT both. uses ShellApi; procedure LV_InsertFiles(strPath: string; ListView: TListView; ImageList: TImageList); var i: Integer; Icon: TIcon; Sea...
When I run/debug my project the code completion doesn't work. Is it possible to use code completion during debug/run? ...
Delphi 2006, whenever started afresh, loses component package. This happens on a daily bases. We have component packages with custom VCL components that we wrote ourselves. When starting up Delphi 2006, nothing is noted. But as soon as I open a form that has some of these components on it, I receive bds.exe - Unable To Locate Compone...
I'm trying to implement a camera-model in Delphi/OpenGL after the description given in OpenGL SuperBible. The camera has a position, a forward vector and a up vector. Translating the camera seems to work OK, but when I try to rotate the camera according to the forward vector, I loose sight of my object. function TCamera.GetCameraOrienta...
Someone knows if Delphi Wings (The Embarcadero ORM for Delphi) will be available in Delphi 2010? I'm testing some ORMs but I will preffer the Embarcadero one, if it's available shortly. Regards, Francis ...