Advertisement
zoltanleo

Untitled

Apr 21st, 2023
1,653
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.63 KB | None | 0 0
  1. program Project1;
  2.  
  3. uses
  4.   DUnitX.MemoryLeakMonitor.FastMM4,
  5.   Vcl.Forms,
  6.   Unit1 in 'Unit1.pas' {Form1};
  7.  
  8. {$R *.res}
  9.  
  10. begin
  11. //  {$ifdef debug}
  12. //  System.ReportMemoryLeaksOnShutdown:= True;
  13. //  {$endif}
  14.   Application.Initialize;
  15.   {$ifdef debug}
  16.   System.ReportMemoryLeaksOnShutdown:= True;
  17.   {$endif}
  18.   Application.MainFormOnTaskbar := True;
  19.   Application.CreateForm(TForm1, Form1);
  20.   Application.Run;
  21. end.
  22.  
  23. procedure TForm1.Button1Click(Sender: TObject);
  24. var
  25.   lbl: TLabel;
  26. begin
  27.   lbl:= TLabel.Create(nil);
  28.   lbl.Parent:= Self;
  29.   lbl.Left:= 10;
  30.   lbl.Top:= 10;
  31.   lbl.Caption:= 'dfskhfjkshjfkhdsjkhskjf';
  32. end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement