Forum > General

Trying something gui here. need help

(1/1)

captian jaster:

--- Code: ---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. 

--- End code ---

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

theo:
What's the Problem?


--- Code: ---ListBox1.Items.Add(AddNumber.text);   
--- End code ---

captian jaster:
Never mind. i did it with a memo box. ill try your code now.
SO COOL!

captian jaster:
It works! thnx

Navigation

[0] Message Index