2022-12-24 40 0

< style></div><div> textarea {</div><div> overflow-wrap: normal;</div><div> overflow-x: scroll;</div><div> }</div><div> textarea { overflow-wrap: normal; over

2022-12-24 32 0

if cxDBTreeList1.FocusedNode.HasChildren = true then begin Application.MessageBox('当前目录下有下级节点，不能删除！', '提示', MB_OK + MB_ICONINFORMATION); exit; end; https://www.cnblogs.com/windson/p/12663153.html

2022-12-24 55 0

获取安卓机器码{$IFDEF Android}function GetAndroidID(): string;var JObj: JObject; JTM: JTelephonyManager;begin JObj := SharedActivityContext.getSystemService(TJContext.JavaClass.TELEPHONY_SERVICE); if JObj<>nil then begin JTM := TJTelephonyManager.W

2022-12-24 32 0

uses FoxmailMsgFrm;//调用procedure TForm1.Button1Click(Sender: TObject);beginShowInfo('信息');end;procedure TForm1.Button2Click(Sender: TObject);beginShowWarning('信息');end;procedure TForm1.Button3Click(Sender: TObject);beginShowError('信息&

2022-12-24 110 0

procedure TForm1.Button1Click(Sender: TObject);var DC: HDC; t:integer;begin DC := GetDC(0); t:=GetDeviceCaps(DC, logpixelsx) ; ReleaseDC(0, DC); edit1.Text:= inttostr(t); edit2.Text:= vartostr (t / 96 );end;

2022-12-24 54 0

function AddStr(const Str: string; const AdditionalStr: string; const DelimiterStr: string): string;begin if Str = EmptyStr then begin Result := AdditionalStr; end else begin Result := Str + DelimiterStr + AdditionalStr; end;end;procedure TFo

2022-12-24 38 0

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);vari:Integer;beginif (Key = '.') and (Length(Edit1.Text) > 0) then //处理小数点 begin for i := 1 to length(Edit1.text) do begin if Edit1.Text[i] = '.' then Key := #

2022-12-24 26 0

Function CopyTo_(S : String; StopChar : Char) : String; Var I : Integer; S1 : String;begin// S1 := ''; For I := 1 to Length(S) do if S[I] = StopChar then break else S1 := S1 + S[I]; result := S1;end;procedure TForm1.FormCreate(Sender: TObject