---

Hej er der nogen der bruger Delphi 6. Fordi jeg vil gerne lære hvordan jeg kan lave sådan af når jeg trykker på en knap kommer der
en ny tekst frem og når jeg trykker igen kommer der igen en nu tekst frem på en lable eller en edit box.. Er der nogen der har koden
til det og som kan hjælpe så bliver jeg glad....

Hilsen
Kim (Per's søn.)

Kan Findes på mIRC Descrtiption: irc.quakenet.eu.org Port(s): 6667-6669 Channel: #CrapC eller #ctrl.dk Og icq 108186310

---

Hej Kim

Du skriver ikke hvad det er for noget text du ønsker at skrive,
I nedenstående eksempel er det linierne i et TMemo, der vises.
Jeg har gjort følgende :

1. Placeret et Tmemo, en TButton og en Tedit på en form.

2. I Formens Oncreate sætter jeg en pegepind til at pege på den linie jeg
vil vise første gang,
der trykke på knappen.

3. I knappens OnClick, lægger jeg den linietext fra memo'et, som jeg ønsker
at viser
over i editboxen.
der efter flytter jeg min pegepind så den peger på den næste linie i memoet.
når tæller når den sidste linie, bliver den sat til at pege på den første
linie.

Her kommer koden (den er skrevet i D3, men burde også kunne kører under D6)
:

TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
FTextln : Integer;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

Const
Start = 0;

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := Memo1.Lines[FTextLn];
FTextLn := (FtextLn + 1) Mod Memo1.Lines.Count;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
FTextLn := Start;
end;

VH Søren Mikkelsen



"Per" <Handyman@fjernluftpost.cybercity.dk> skrev i en meddelelse
news:a9402p$247u$1@news.cybercity.dk...
> Hej er der nogen der bruger Delphi 6. Fordi jeg vil gerne lære hvordan jeg
kan lave sådan af når jeg trykker på en knap kommer der
> en ny tekst frem og når jeg trykker igen kommer der igen en nu tekst frem
på en lable eller en edit box.. Er der nogen der har koden
> til det og som kan hjælpe så bliver jeg glad....
>
> Hilsen
> Kim (Per's søn.)
>
> Kan Findes på mIRC Descrtiption: irc.quakenet.eu.org Port(s): 6667-6669
Channel: #CrapC eller #ctrl.dk Og icq 108186310
>
>

---

Tak skal du have... :)

"Søren Mikkelsen" <somi@wanadoo.dk> skrev i en meddelelse news:s9xt8.3824$v01.100178969@news.orangenet.dk...
> Hej Kim
>
> Du skriver ikke hvad det er for noget text du ønsker at skrive,
> I nedenstående eksempel er det linierne i et TMemo, der vises.
> Jeg har gjort følgende :
>
> 1. Placeret et Tmemo, en TButton og en Tedit på en form.
>
> 2. I Formens Oncreate sætter jeg en pegepind til at pege på den linie jeg
> vil vise første gang,
> der trykke på knappen.
>
> 3. I knappens OnClick, lægger jeg den linietext fra memo'et, som jeg ønsker
> at viser
> over i editboxen.
> der efter flytter jeg min pegepind så den peger på den næste linie i memoet.
> når tæller når den sidste linie, bliver den sat til at pege på den første
> linie.
>
> Her kommer koden (den er skrevet i D3, men burde også kunne kører under D6)
> :
>
> TForm1 = class(TForm)
> Memo1: TMemo;
> Button1: TButton;
> Edit1: TEdit;
> procedure Button1Click(Sender: TObject);
> procedure FormCreate(Sender: TObject);
> private
> { Private declarations }
> FTextln : Integer;
> public
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.DFM}
>
> Const
> Start = 0;
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> Edit1.Text := Memo1.Lines[FTextLn];
> FTextLn := (FtextLn + 1) Mod Memo1.Lines.Count;
> end;
>
> procedure TForm1.FormCreate(Sender: TObject);
> begin
> FTextLn := Start;
> end;
>
> VH Søren Mikkelsen
>
>
>
> "Per" <Handyman@fjernluftpost.cybercity.dk> skrev i en meddelelse
> news:a9402p$247u$1@news.cybercity.dk...
> > Hej er der nogen der bruger Delphi 6. Fordi jeg vil gerne lære hvordan jeg
> kan lave sådan af når jeg trykker på en knap kommer der
> > en ny tekst frem og når jeg trykker igen kommer der igen en nu tekst frem
> på en lable eller en edit box.. Er der nogen der har koden
> > til det og som kan hjælpe så bliver jeg glad....
> >
> > Hilsen
> > Kim (Per's søn.)
> >
> > Kan Findes på mIRC Descrtiption: irc.quakenet.eu.org Port(s): 6667-6669
> Channel: #CrapC eller #ctrl.dk Og icq 108186310
> >
> >
>
>