limelect

@lars this is the first thing I did. GOOGLE GOOGLE GOOGLE! To the point, I do not have the Delphi version needed. What I have is a Professional ver. Never needed above it.

@uwe Raabe I tried to add IppeerCommon as the error suggested and it does not exist.

Yes but the problem is not the URL!! this just to put something. The problem is much before that FClient := TRESTClient.Create(nil);

@Lars Fosdal just copied O365WebHook.pas and procedure TestExampleToATeamsChannel; var Teams: TWebhook; begin Teams := TWebhook.Create('https://limelect.com'); try Teams.PostMessage(TSimpleText.Create('Hello from Delphi!')); finally Teams.Free; end; end; procedure TForm1.Button1Click(Sender: TObject); begin TestExampleToATeamsChannel; end; Using this post https://larsfosdal.blog/2020/10/16/post-a-message-to-teams-from-delphi-using-webhooks/ Maybe i suppose to add IppeerCommon which i do not have

@Lars Fosdal I used your blog https://larsfosdal.blog/2020/10/16/post-a-message-to-teams-from-delphi-using-webhooks/ to see what is all about I used D10.2.3. I got his error on create FClient := TRESTClient.Create(nil); P.S i used the updated section How to delete a post?

I have been using this guy software with much improvement. Yes since 1997. I wonder who is he? this is from his software Email did not help {*****************************************************************} {* *} {* Dancer's ImageVue v1.0.5 *} {* A Bitmap property editor by African Dancer *} {* *} {* ImageVue is based on Delphi's demo program ImageViewer and *} {* Dr. Bob's image property editor. *} {* *} {* Features: *} {* * Preview images before loading *} {* * Auto conversion from icon and metafiles to bitmap *} {* * 85 Buitl-in button images *} {* * Bookmarks *} {* * ImageEdit 1.0.5 *} {* *} {* African Dancer: dancer@tieus.com *} {* Dec. 23, 1997, Vancouver *} {* *} {*****************************************************************}

@Tntman I got this https://www.whois.com/whois/tieus.com and send an email will see thanks I thought the guy is still active

@Stano I am still around and working.

Thanks OK

@Lars Fosdal This is a test </> [my test] Nice now I understand So if I put source I </> before the source right?

@Uwe Raabe The only thing that I dislike is that the Formater options are all over. when you triggered DelForExp it opens a form asking what you want to do much simpler and more user friendly. Or am I old fashion? P.S I also have it as a stand-alone

@dummzeuch Kind of off-topic What I liked very much with DelForExp that you could format the whole project.

I just did something similar for my project 1.put TRxWindowHook 2. associate with your control . in my case it was a memo. catch Cnt C put this KeyCount boolean procedure TForm2.RxWindowHook1BeforeMessage(Sender: TObject; var Msg: TMessage; var Handled: Boolean); begin if msg.msg = WM_KEYDOWN then begin if (msg.wparam = 17) then KeyCount := true else if (msg.wparam = 67) and (KeyCount = true) then begin KeyCount := false; DoNotCopy := True; << i needed that on cont C end else KeyCount := false; end; end;

@Darian Miller Just for fun JUST FOUND NO BRACKET IN MY SOURCE !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! what an HTML PAGE !!!!! plz fix x:= StrToInt(s); <<<<<<<<<<<< cannot put bracket i unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, JvExStdCtrls, JvEdit, JvValidateEdit, Vcl.Mask, JvExMask, JvSpin; type TForm1 = class(TForm) Button1: TButton; JvValidateEdit1: TJvValidateEdit; Label1: TLabel; Button2: TButton; JvValidateEdit2: TJvValidateEdit; Label2: TLabel; Button3: TButton; JvValidateEdit3: TJvValidateEdit; JvSpinEdit1: TJvSpinEdit; Label3: TLabel; Button4: TButton; Label4: TLabel; Label5: TLabel; Edit1: TEdit; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin Label1.Caption:='Answer'; Label2.Caption:='Answer'; Label3.Caption:='Answer'; end; procedure TForm1.Button1Click(Sender: TObject); //to binary var i,x:integer; ans:string; begin ans:=''; i:= JvValidateEdit1.Value; while i>0 do begin ans:=IntToStr(i mod 2) + ans ; i :=i div 2; //ans:=IntToStr(i mod 2)+ans ; //i :=i div 2; end; Label1.Caption:=ans; end; procedure TForm1.Button2Click(Sender: TObject); // to decimal var s:string; i,ans:Integer; begin ans:=1; s:=JvValidateEdit2.Text; for I := 1 to length(s)-1 do ans:=(ans*2) +StrToInt(s[i+1]); Label2.Caption:=IntToStr(ans); end; procedure TForm1.Button3Click(Sender: TObject); //fraction cal var f:real; i,x:integer ; ans:string; begin ans:='0.'; f:=JvValidateEdit3.Value; for I := 1 to Round(JvSpinEdit1.Value) do begin f:=f*2; x:=Trunc(f); f:=Frac(f); ans:=ans+IntToStr(x); end; Label3.Caption:=ans; end; // https://indepth.dev/the-simple-math-behind-decimal-binary-conversion-algorithms/ procedure TForm1.Button4Click(Sender: TObject); //binary to fruction var s:string; k:Real; i,x:Integer; ans:string; begin k:=0; s:=Edit1.Text; for I :=Length(s) downto 1 do begin x:= StrToInt(s); k:=(1/2)*(x+k); end; Label5.Caption:=FloatToStr(k); end; end. object Form1: TForm1 Left = 0 Top = 0 Caption = 'Form1' ClientHeight = 283 ClientWidth = 552 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False OnCreate = FormCreate PixelsPerInch = 120 TextHeight = 16 object Label1: TLabel Left = 335 Top = 35 Width = 37 Height = 19 Caption = 'Label1' end object Label2: TLabel Left = 335 Top = 73 Width = 37 Height = 16 Caption = 'Label2' end object Label3: TLabel Left = 335 Top = 119 Width = 27 Height = 16 Caption = 'anse' end object Label4: TLabel Left = 187 Top = 155 Width = 16 Height = 21 Caption = '0.' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -17 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label5: TLabel Left = 335 Top = 159 Width = 27 Height = 16 Caption = 'anse' end object Button1: TButton Left = 66 Top = 32 Width = 110 Height = 25 Caption = 'To Binary' TabOrder = 0 OnClick = Button1Click end object JvValidateEdit1: TJvValidateEdit Left = 182 Top = 32 Width = 121 Height = 24 CriticalPoints.MaxValueIncluded = False CriticalPoints.MinValueIncluded = False EditText = '582' TabOrder = 1 end object Button2: TButton Left = 68 Top = 70 Width = 108 Height = 25 Caption = 'To Decimal' TabOrder = 2 OnClick = Button2Click end object JvValidateEdit2: TJvValidateEdit Left = 182 Top = 70 Width = 121 Height = 24 CriticalPoints.MaxValueIncluded = False CriticalPoints.MinValueIncluded = False EditText = '1001000110' TabOrder = 3 end object Button3: TButton Left = 66 Top = 116 Width = 110 Height = 25 Caption = 'Fruction Calc' TabOrder = 4 OnClick = Button3Click end object JvValidateEdit3: TJvValidateEdit Left = 182 Top = 117 Width = 121 Height = 24 CriticalPoints.MaxValueIncluded = False CriticalPoints.MinValueIncluded = False DisplayFormat = dfFloat DecimalPlaces = 10 EditText = '0.24' TabOrder = 5 end object JvSpinEdit1: TJvSpinEdit Left = 481 Top = 116 Width = 63 Height = 24 MaxValue = 10.000000000000000000 MinValue = 1.000000000000000000 Value = 8.000000000000000000 TabOrder = 6 end object Button4: TButton Left = 73 Top = 155 Width = 108 Height = 25 Caption = 'Binary Fruction' TabOrder = 7 OnClick = Button4Click end object Edit1: TEdit Left = 208 Top = 155 Width = 95 Height = 24 NumbersOnly = True TabOrder = 8 Text = '1011' end end

@Daniel Thanks

@Daniel Thanks

One more thing. I tried Gexpert demo project docking form example It has the same problem Is it an IDE problem or am I missing something?

@Daniel I hope this is better This is an IDE expert problem

I do not know if it will help But Rxlib has has RxDateUtil.pas check it

IsFirstInstance in OgFirst in tponguard librery for free does what you need. the above is old. The new onguard dose it differently but you can find here too Look for first instance https://documentation.help/TurboPack-OnGuard-FMX/documentation.pdf Put this function in the DPR

Further to my small project and on D10.2.3 I am NOT using tool Pallet I am using ToolBar>Component as on d7. I want to detect the tabs and open one of them I am using also Winspector. FDelphiForm :=Application.MainForm; x:=TComponent(FDelphiForm.FindComponent('ComponentToolbarFrame')); x:=TComponent(x.FindComponent('TabControl'));<<< hear i tried also TTabControl instead of TComponent x IS NOT NIL. TTabControl(x).TabIndex:=3; <<<<< dose not work label1.caption:= TTabControl(x).Tabs[0] ; <<< Access violation Label2.Caption:=TComponent(x).name; ===TabControl Any thing with tabs give an error. I have tried many variations. As far as I recall @dummzeuch comented that multiline is not possible above D7 I tried it does not work. Maybe it is not possible to access the ToolBar ?

Found one drawback sx := TStringList(GetObjectProp(x, PropInfo)); // all the tabs this instruction cannot be made ONShow only On form create. It makes on second-time error. It has to execute only once. Which mean installing a new component will not update unless I restart Delphi.

Ok my software is OK Now for Embarcadero to give some Answers. I have 2 components bar. 1. D7 like. 2. Tool pallet. They differ in what the show position wise!!!!! For example, the Tool bar does not have BDE or ActivX in the same position !!!! What is going on?

@dummzeuch without your lead I could not have done it I was thrown away by thinking that it was TabControl Thanks Checking that it works got the list of my tabs sx=tstringlist PropInfo:= GetPropInfo(x.ClassInfo, 'Items'); sx:= TStringList(GetObjectProp(x,PropInfo)); Label2.Caption:=inttostr(Sx.Count); Memo1.Clear; for I := 0 to Sx.Count-1 do Memo1.Lines.Add(sx) ; Great why cannot write bracket i bracket ???????????