delphi - knap og edit box - Udvikleren.dk - Programmering, webdesign og grafik

Tags: delphi

Bruger #3807 @ 11.04.04 17:33

hvordan kan jeg lave en knap der laver to edit boxe et bestemt sted

jeg vil gerne ha sådan at hvis jeg har to edit boxe her

==== ====
edit 1 edit2 ====
==== ==== knap
====
og så en knap her

når jeg trykker på knappen skal der komme to nye edit boxe neden under de forrige, igen og igen

==================
Intet er værre end en NINJA!
==================
////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

7 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 3 karma

Sorter efter stemmer Sorter efter dato

Bruger #5209 @ 11.04.04 20:28

165

Er det noe som dette du mener?:

Kode

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  EditCount: Integer;
  LeftEditTop,
  RightEditTop: Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
var
  NewEdit: TEdit;
begin
  for I := 0 to 9 do
  begin
    NewEdit := TEdit.Create(Self);
    with NewEdit do
    begin
      Visible := False;
      Parent := Self;
      Left := 8;
      Top := LeftEditTop;
      Name := 'NewEdit' + IntToStr(EditCount);
      Text := Name;
      Visible := True;
    end;
    Inc(EditCount);
    Inc(LeftEditTop, 24);
    Button2.Top := LeftEditTop;
  end;

  for I := 0 to 9 do
  begin
    NewEdit := TEdit.Create(Self);
    with NewEdit do
    begin
      Visible := False;
      Parent := Self;
      Left := 136;
      Top := RightEditTop;
      Name := 'NewEdit' + IntToStr(EditCount);
      Text := Name;
      Visible := True;
    end;
    Inc(EditCount);
    Inc(RightEditTop, 24);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  EditCount := 1;
  LeftEditTop := 32;
  RightEditTop := 32;
end;

end.

Mvh
DiZpel

Bruger #3807 @ 11.04.04 23:53

jeg ville gerne have den til at lave en enkelt kasse under den der var, der skal så laves to kasser en under hver af de to, og næste gang man trykker skal den lave to kasser mere under dem der blev lavet før... kan man få den til at huske hvor mange sæt kasser der var?

Bruger #5209 @ 12.04.04 01:00

165

Som dette?:

Kode

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  EditCount,
  LeftEditTop,
  RightEditTop,
  NumEditBoxesInc: Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
var
  NewEdit: TEdit;
begin
  for I := 1 to NumEditBoxesInc do
  begin
    NewEdit := TEdit.Create(Self);
    with NewEdit do
    begin
      Visible := False;
      Parent := Self;
      Left := 8;
      Top := LeftEditTop;
      Name := 'NewEdit' + IntToStr(EditCount);
      Text := Name;
      Visible := True;
    end;
    Inc(EditCount);
    Inc(LeftEditTop, 24);
    Button2.Top := LeftEditTop;
  end;

  for I := 1 to NumEditBoxesInc do
  begin
    NewEdit := TEdit.Create(Self);
    with NewEdit do
    begin
      Visible := False;
      Parent := Self;
      Left := 136;
      Top := RightEditTop;
      Name := 'NewEdit' + IntToStr(EditCount);
      Text := Name;
      Visible := True;
    end;
    Inc(EditCount);
    Inc(RightEditTop, 24);
  end;

  Inc(NumEditBoxesInc, 2);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  EditCount := 1;
  NumEditBoxesInc := 2;
  LeftEditTop := 32;
  RightEditTop := 32;
end;

end.

Mvh
DiZpel

Bruger #5209 @ 12.04.04 01:07

165

Du kan også sjekke hvor mange editbokser du har på din form som dette:

Kode

var
  I,
  Count: Integer;
begin
  Count := 0;
  for I := 0 to Self.ComponentCount - 1 do
  begin
    if Self.Components[I].ClassType = TEdit then
      Inc(Count);
  end;
  ShowMessage('There is a total of ' + IntToStr(Count) + ' editboxes on the main form.');
end;

Mvh
DiZpel

Bruger #3807 @ 12.04.04 11:47

hmm... det kan jeg ikk få til at virke, kan man ikk lave noget helt andet så,

et tekstdokument der ligger udenfor programmet hvor der står fx

Hey
Hej
Apfelsin
Appelsin

så skal der være to edit boxe i programmet og en knap hvis man skriver hey i den ene box skal der komme til at stå hej i den anden og hvis man skriver appelsin i den anden skal der komme til at stå apfelsin i den første...

hvordan kan man gøre det sådan at man kan bygge videre på listen også programmet er færdigt?

Bruger #5209 @ 12.04.04 12:43

165

det kan jeg ikk få til at virke

Har du aktivert knappens OnClick og formens OnCreate?
1. Lag et nytt prosjekt.
2. Slipp 2 editbokser og 2 knapper på formen.
3. Lim inn eksemplet over i din unit1.
4. Dobbelklikk på formen og på knappen.

Mvh
DiZpel

Bruger #3807 @ 12.04.04 22:42

det har jeg prøvet

kan man ikke lave
et tekstdokument der ligger udenfor programmet hvor der står fx

Hey
Hej
Apfelsin
Appelsin

så skal der være to edit boxe i programmet og en knap hvis man skriver hey i den ene box skal der komme til at stå hej i den anden og hvis man skriver appelsin i den anden skal der komme til at stå apfelsin i den første...

hvordan kan man gøre det sådan at man kan bygge videre på listen også programmet er færdigt?

knap og edit box

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler