[ad_1] Set the Enabled property for the control of your choice. For example to disable button: Button1.Enabled := False; to enable: Button1.Enabled := True; 1 [ad_2] solved how to disable and enable buttons in delphi
[ad_1] If I were you, I’d create a data structure that the main application thread and all the update threads have access to, and that can be synchronised, and that ONLY the main app thread uses to update the VCL control, if this is the way you need to go. 0 [ad_2] solved Synchronized deletion … Read more
[ad_1] The immediate problem in this code is that you’re storing pointers to the string parameters in your record. Those pointers are addresses in your main process; they are not valid in the target process. You should store those values in fixed-size arrays in your record, just like you’re already doing with the module and … Read more
[ad_1] Parallels desktop has an alternate way to right click to support a single button mouse. The running VM will only see the right click when this is used. So your Windows VM is currently receiving two right clicks which it passes on to your Delphi VCL Application. Ref: https://kb.parallels.com/en/9151 2 [ad_2] solved How to … Read more
[ad_1] Try something like this: function HasThreeConsecutiveLetters(const Str: string): Boolean; const QwertyLetters: array[0..2] of string = ( ‘QWERTYUIOP’, ‘ASDFGHJKL’, ‘ZXCVBNM’ ); var I, J, K: Integer; S: String; begin Result := False; S := AnsiUpperCase(Str); for I := 1 to Length(S) do begin for J := Low(QwertyLetters) to High(QwertyLetters) do begin K := Pos(S[I], QwertyLetters[J]); … Read more
[ad_1] Help tells us: Strings are compared according to the ordinal values that make up the characters that make up the string. ‘A’ and ‘a’ are different symbols, with different ordinal values, so comparison is case-sensitive, of course. There are special functions like CompareText for insensitive comparisons. Note that case-insensitivity is especially emphasized in descriptions. … Read more
[ad_1] To get the same value from java.security.PublicKey.getEnconded() on Chilkat library you have to use CkPublicKey.GetDer() and pass false to the boolean parameter to make it use the PKCS8 format. [ad_2] solved Digital signature between Java and Delphi
[ad_1] Existing Delphi code translation: public static string ByteToHex(Byte InByte) { char[] Digits = new char[] { ‘0’, ‘1’, ‘2’, ‘3’, ‘4’, ‘5’, ‘6’, ‘7’, ‘8’, ‘9’, ‘A’, ‘B’, ‘C’, ‘D’, ‘E’, ‘F’, }; return string.Concat(Digits[InByte >> 4], Digits[InByte & 0x0F]); } Better implementation (all you want is formatting): public static string ByteToHex(Byte InByte) => … Read more
[ad_1] 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 … Read more
[ad_1] You don’t need all of the jumping-through hoops you’re doing. Windows will find the application associated with PDF files for you. procedure TForm1.Button1Click(Sender: TObject); var s: String; Ret: DWord; begin s := ‘C:\MyFiles\MyFile.pdf’; Ret := ShellExecute(Handle, nil, PChar(s), nil, nil, SW_SHOW); if Ret < 32 then ShowMessage(SysErrorMessage(GetLastError)); end; Note: Normally you should never call … Read more
[ad_1] unit AniThread; interface uses Classes, Windows, Controls, Graphics; type TAnimationThread = class(TThread) private { private declarations } FWnd: HWND; FPaintRect: TRect; FbkColor, FfgColor: TColor; FInterval: integer; protected procedure Execute; override; public constructor Create(paintsurface : TWinControl; {Control to paint on } paintrect : TRect; { area for animation bar } bkColor, barcolor : TColor; { … Read more
[ad_1] I have taken the first permutation algorithm I found in wikipedia and implemented it in Delphi (2009); I hope that is what you are looking for: type TIntegerArray = array of Integer; procedure Permutation(K: Integer; var A: TIntegerArray); var I, J: Integer; Tmp: Integer; begin for I:= 2 to Length(A) do begin J:= K … Read more
[ad_1] My guess is that: does not have the recent changes is because the data has not been posted. And cannot be from what I can see. You’re trying to insert and update tuples from two tables, but you fetched only a foreign key of a detail table. Imagine, that you’d like to update this … Read more
[ad_1] In your question you left out a very important piece of the puzzle. You’ve mentioned it in comments, but I repeat it here because it’s the direct trigger of your problem. In comments you said the form is created as follows: with TForm1.Create(Self) do begin try ShowModal; finally Free; end; end; Your problem is … Read more
[ad_1] I haven’t seen such basic behaviour of a TEdit Change in many years… In D2009 + Windows 7 64 and tested on XP. I made a simulation work without any trouble. I suspect you have AutoSelect set to True for the message editor. Therefore when focus switches back and forth the editor auto selects … Read more