WebDec 9, 2011 · 1 Answer. Sorted by: 2. You can use TCriticalSection ( SyncObjs unit): put the Write between Enter and Leave: CriticalSection.Enter; try ASocket.Connection.Socket.Write (buf); finally CriticalSection.Leave; end; The methods Acquire and Release do the same ( doc ). Important: if you write to the socket at multiple points of your code, you must ... WebMay 5, 2009 · Start a timer for two seconds and tell the picture control to refresh. When the timer goes off, hide the bullet picture. If you want to animate the fade out, just replace the picture with different ones at different times using the timer going off at different times. At 0 seconds make picture visible.
Delphi - passing variables to another form (without global variables ...
WebSep 26, 2013 · 0. While I am fully in line with the commenters, that it is not a good idea to block user input with a full screen form, here is some code to get you started. The code assumes a screen size of 1920 x 1200. unit Unit152; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm152 ... WebFeb 18, 2012 · That was the basic dock function. If you run your program, show the Form2 and drag that form over the docksite, it should dock at that site. You can even undock it by grabbing the "caption" as you have seen in the IDE. For me, that method moves the dockable form very slowly. However, Zibadian's answer continues to describe how the … how to write a project plan template
multithreading - Delphi Queue and Synchronize - Stack Overflow
WebNov 2, 2024 · The former displays the clock, the latter a textbox for the password. Likewise a separate service can be chosen instead of the "login" screen, but not both in parallel. I am pretty sure that TeamViewer interact with the Lock/Login screen. Same goes for Anydesk, and row of similar applications. So, there should be a way. WebApr 3, 2024 · Locks are intended to protect access to data. The above pattern is often incorrectly used to protect access to an object. But once the calling code is able to start using the object, you're already outside the lock. I.e the underlying data of the object is no longer protected from concurrent thread access. WebJul 8, 2013 · Set the PopupParent of child form = ParentForm procedure TParentForm.Button1Click (Sender: TObject); begin ParentForm.Enabled:=False; with Tform1.create (nil) do show; end; procedure TForm1.FormClose (Sender: TObject; var Action: TCloseAction); begin ParentForm.Enabled := true; form1.free; end; Share … orioles orange rgb