tag:blogger.com,1999:blog-32743863330650947772024-09-05T07:35:53.822+03:00Hayatın içindeki kodlar..Hayat bir koddur. Hayatın içinde daha bilmediğimiz ne kodlar vardır. Hayat devam da etmektedir, olaylar birbirini sürüklemektedir. Tıpkı sizin buraya sürüklendiğiniz gibi. Haberiniz olmamıştır ya da bilmiyorsunuzdur ama buraya geldiniz ya, artık biliyorsunuz. Sevgi ve dostlukla nice paylaşımlara; Merhaba..M. Murat Diclehttp://www.blogger.com/profile/13006890798706532984noreply@blogger.comBlogger4125tag:blogger.com,1999:blog-3274386333065094777.post-29397426479971647632018-08-11T05:02:00.000+03:002018-08-13T05:42:46.760+03:00Can not focus a disabled or invisible window!My suggestion is:
procedure _setFocus(o: TObject);
var
m: TMsg;
c: Cardinal;
begin
c := GetTickCount;
// Wait max. 200 milliseconds...
while not Application.Terminated and (GetTickCount - c > 200) do
begin
if (o is TWinControl) and
&M. Murat Diclehttp://www.blogger.com/profile/13006890798706532984noreply@blogger.com0tag:blogger.com,1999:blog-3274386333065094777.post-74312288712914626642018-07-10T23:55:00.000+03:002018-07-10T23:58:20.499+03:00If source formatter doesn't work...I do not know why it happened. The source formatter (CTRL + D) isn't working on some files. I found a solution for this.
Open Project Manager (CTRL + ALT + F11)
Select the file that the source code formatter does not work with.
Rename it. (e.g., Form1.pas >> Form101.pas)
Press CTRL + D.
Rename. (e.g., Form101.pas >> Form1.pas)
Press CTRL + D.
That's all...
M. Murat Diclehttp://www.blogger.com/profile/13006890798706532984noreply@blogger.com0tag:blogger.com,1999:blog-3274386333065094777.post-36139539783744768702018-07-05T23:29:00.000+03:002018-07-05T23:29:02.719+03:00Catch the error of validation of TMaskEdittype
TMaskEdit = class(Vcl.Mask.TMaskEdit)
protected
procedure ValidateError; override;
end;
TForm1 = class(TForm)
.
.
procedure FormCreate(Sender: TObject);
. .
.
.
.
{ TMaskEdit }
// All TMaskEdits in your form M. Murat Diclehttp://www.blogger.com/profile/13006890798706532984noreply@blogger.com0tag:blogger.com,1999:blog-3274386333065094777.post-71386531000655456502018-07-05T23:03:00.002+03:002018-07-05T23:03:37.442+03:00Is TMaskEdit empty?
Uses
Vcl.Mask,
Vcl.ValEdit,
System.MaskUtils,
...
.
.
.
function isMaskEditEmpty(me: TMaskEdit) : Boolean;
begin
Result := FormatMaskText(me.EditMask, '') = me.Text;
end;
.
.
.
M. Murat Diclehttp://www.blogger.com/profile/13006890798706532984noreply@blogger.com0