Cum se citește linia de linie de la capătul liniei Delfi FMX fișier memo - maimuță foc de la A la Z

Nu au terminat funcții FMX pentru a deschide link-uri web dintr-o aplicație?
Și atunci trebuie să tam-tam cu lisapetami și multe IFDEF.
În cele din urmă, ceea ce am primit.
Pentru comoditate, ea a suflat toate module diferite.
modulului Windiws
uUtilsWindows unitare; interfață utilizează ShellApi, variante, Windows, FMX.Types, FMX.Platform.Win; Procedura WindowsOpenUrl (const sUrl: string; WindowHandle: TWindowHandle); Procedura de implementare WindowsOpenUrl (const sUrl: string; WindowHandle: TWindowHandle); începe ShellExecute (FmxHandleToHWND (WindowHandle), 'deschis', PChar (VarToStr (sUrl)), zero, zero, SW_NORMAL); se încheie; end.
Modul pentru Android
Unitate uUtilsAndroid; interfață folosește FMX.Helpers.Android, Androidapi.JNI.Net, Androidapi.JNI.GraphicsContentViewText, AndroidApi.Helpers; Procedura AndroidOpenUrl (const sUrl: string); Procedura de implementare AndroidOpenUrl (const sUrl: string); Var Uri: Jnet_Uri; OpenLinkIntent: JIntent; începe Uri: = StrToJURI (sUrl); OpenLinkIntent: = TJIntent.JavaClass.init (TJIntent.JavaClass.ACTION_VIEW, Uri); // va fi ceva pentru a viziona OpenLinkIntent.addCategory (TJIntent.JavaClass.CATEGORY_BROWSABLE); // in fereastra de browser OpenLinkIntent.setData (Uri); // urmăriți acest link SharedActivity.startActivity (OpenLinkIntent); // capăt deschis; end.
Acum, în forma sa de bază:
folosește. , Vkbdhelper, uUtilsAndroid, uUtilsWindows ;. Procedura TfmEditObject.actOpenUrlExecute (Expeditor: TObject); începe AndroidOpenUrl (edMapsCoordUrl.Text); WindowsOpenUrl (edMapsCoordUrl.Text, Self.Handle); se încheie;
Și dacă adăugați o altă platformă, un alt modul necesar.
Poate că există o versiune corectă, ca să spunem așa, design-ul de cod sursă?

Cum se citește linia de linie de la capătul liniei Delfi FMX fișier memo - maimuță foc de la A la Z

Cum se citește linia de linie de la capătul liniei Delfi FMX fișier memo - maimuță foc de la A la Z

var Tastatura: IFMXVirtualKeyboardService; începe dacă TPlatformServices.Current.SupportsPlatformService (IFMXVirtualKeyboardService, IInterface (tastatura)) apoi, dacă TVirtualKeyboardState.Visible în Keyboard.GetVirtualKeyBoardState apoi ShowMessage ( 'tastatură deschisă') altceva ShowMessage ( 'tastatură ascunsă'); se încheie; Așa că m-am dus la Delphi. Dar am nevoie pentru C ++

Cum se citește linia de linie de la capătul liniei Delfi FMX fișier memo - maimuță foc de la A la Z

Bună tuturor draga!
Încerc să fac stretching pe componenta de conținut. Cum este pus în aplicare în tipul de mesageri WhatsApp în cazul în text mare, care se întinde (eliberat) de conținutul unui câmp mare, în cazul în care pic scurt.
Text2.Text: = Memo1.Lines.Strings [4]; text2.Height: = canvas.TextHeight (Text2.Text); // modificări linie înălțime, deoarece există un rând în TText pur și simplu transferat WordWrap vizual. text2.Height: = canvas.TextWidth (text2.Text); // - ca un nonsens Cum este realizat cine confruntat vreodată?

Cum se citește linia de linie de la capătul liniei Delfi FMX fișier memo - maimuță foc de la A la Z

Cum se citește linia de linie de la capătul liniei Delfi FMX fișier memo - maimuță foc de la A la Z

Cum se citește linia de linie de la capătul liniei Delfi FMX fișier memo - maimuță foc de la A la Z

var s: string; fs: TFileStream; începe fs: = TFileStream.Create (tpath.Combine (tpath.GetDownloadsPath, 'load.jpg'), fmCreate); NetHTTPClient1.Get ((Sender ca TImage) .Hint, fs); fs.Free; (Expeditor ca TImage) .MultiResBitmap.Bitmaps [1] .LoadFromFile (tpath.Combine (tpath.GetDownloadsPath, 'load.jpg')); Am conectat încă pas pe acest forum FMX.Features.Bitmap.Helpers.pas
(Expeditor ca TImage) .MultiResBitmap.Bitmaps [1] .LoadFromUrl ((Sender ca TImage) .Hint); la fel de ușor să facă acest lucru și să consilieze Georgia și forma nu este atârnat?

Acum, utilizatorii paginii 0

Nu există persoane se uită la această pagină

  • Toate Activitate
  • principal
  • probleme generale
  • Întrebările de limbaj Object Pascal și RTL
  • linii
  • Cum se citește linia de linie de la sfârșitul fișierului memo Delphi FMX?