Indsætte en linie i synedit

Tags:    delphi

<< < 12 > >>
User
Bruger #535 @ 27.08.02 16:58
Jeg har et synedit felt hvor jeg vil have at når man trykker på en knap så indsætter den det der står i knappen, i synedit feltet. Den syn edit bliver oprettet ved hjælp af denne kode:

procedure TForm1.FormCreate(Sender: TObject);
var
tabsheet : Ttabsheet;
edit : TSynEdit;
begin
TabSheet := TTabSheet.Create(self);

tabsheet.PageControl := pagecontrol1;

tabsheet.caption := ('ny_side.htm');
edit :=TSynEdit.create(self);

with edit do

begin
parent := tabsheet;
Align := alclient;
Highlighter := SynHTMLSyn1;
gutter.ShowLineNumbers := True;
edit.Lines.loadfromfile('c:\\index.htm');
end;

Så hvordan gør jeg det???

Normalt kan man vel gøre sådan her synedit1.lines := 'det der skal indsættes'; men det kan man ikke pga. at min synedit bliver oprettet på den måde som den nu gør.

Mvh
Jesper



13 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 3 karma
Sorter efter stemmer Sorter efter dato
User
Bruger #535 @ 31.08.02 11:19
Fold kodeboks ind/udKode 


Det virker!!

Men kan man ikke gøre sådan at man kan indsætte flere linier? Sådan som det er nu kan man kun sætte en linie ind.

Og jeg er foresten nybegynder så jeg er ikke helt inde i systemmet endnu.

Mvh
Jesper



Fold kodeboks ind/udKode 


Det virker!!

Men kan man ikke gøre sådan at man kan indsætte flere linier? Sådan som det er nu kan man kun sætte en linie ind.


Det kan man vel nok. Du kan enten lave en string hvor du benytter dig af #13#10 (carriage return, line feed) til at lave flere linjer eller du kan bruge f.eks. en TStringList til det.

Det med at bruge en string kan du gøre på følgende måde:

Fold kodeboks ind/udKode 


TStringList kan du bruge på følgende måde:

Fold kodeboks ind/udKode 




User
Bruger #535 @ 01.09.02 12:38
Så må du hellere få dine points. Jeg siger tak for hjælpen. :)



<< < 12 > >>
t