unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls, ExtCtrls, ActnList;
type
{ TForm1 }
TForm1 = class(TForm)
AddNumber: TEdit;
ListBox1: TListBox;
RtrnNumber: TButton;
TLInfo: TLabel;
procedure RtrnNumberClick(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{ TForm1 }
procedure TForm1.RtrnNumberClick(Sender: TObject);
begin
end;
initialization
{$I Unit1.lrs}
end.
im trying to get it that when i click ok whatever was typed into Add Number goes into the listbox. or do i need to use something else