I implemented the following classes:
type
TUtilProcedure = procedure(var AJsonValue: TJSONObject);< br />
TCallback = class
private
FName: string;
FProcedure: TUtilProcedure;
FAnnotatio
Delphi is a well-known rapid application development tool (Rapid Application Development, RAD) under the Windows platform. Its predecessor was the “Borland Turbo Pascal” that was popular in the DOS era. The earliest version was developed by the American Borland company in 1995. The main creator is Anders Hejlsberg. After several years of development, this product has also been transferred to the Embarcadero company. Delphi is an integrated development environment (IDE). The core used is Object Pascal developed from the traditional Pascal language. It uses a graphical user interface as the development environment, and uses IDE, VCL tools and compilers to cooperate with the function of connecting to the database. An application development tool centered on object-oriented programming.
I implemented the following classes:
type
TUtilProcedure = procedure(var AJsonValue: TJSONObject);< br />
TCallback = class
private
FName: string;
FProcedure: TUtilProcedure;
FAnnotatio
I wrote the following code:
var
MainForm: TMainForm;
const
SRootKey = HKEY_LOCAL_MACHINE;
SKey =’SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkList\Profiles’;
implementation
{$ R *.d
How to get changes from TClientDataset?
I have a TClientDataset called GetDataset and I have a grid. I want to make changes in a new TClientDataset called ChangeDataset.
How can I do it
I have 4 consecutive panels with 3 splitters in the middle. The 1st / 2nd / 3rd pane: align = alLeft, the 4th pane: align = alClient .
[1] | [2] | [3] | [4]
Now the user wants, then
I have this code:
TServer = class
private
fOnMsgFromServer: TProc< String, String, String>;
public
procedure RegisterOnMsgFromServer(aCallBack: TProc);
procedure Execute;
end;
procedure TS
In a multi-monitor environment, I want to be able to get the current monitor and active monitor to save the information when I close the form, and when I reopen the form in the future, the form wil
1. Make the minimize button gray:
setwindowlong(handle,gwl_style,getwindowlong(handle,gwl_style) and not ws_minimizebox);
2. Make the maximize button gray:
setwindowlong(handle,gwl_style,getwindowl
I have a column with only “Yes” and “No” values.
I think if the column value is “Yes”, only the cell background color will be red
Otherwise “No” and the background color is yellow
But this code co
I transferred my project from Delphi to Lazarus. In a form, I have a private method with a parameter var Active: Boolean. It’s okay in Delphi, but Lazarus gives an error : Repeat the identifier “Ac
I am developing an application that runs on multiple databases, many of which have their own way to refer to reserved words as field names, such as
such as< /p>
select `key` from mytable or