Scroll

Hvad er en \"ole\"? Mener du en OLE-control eller hvor er du på vej hen?? :-)

Ja en ole-control

Kunne du så ikke præcisere bare sådan temmelig meget mere, hvad det er du vil lave??

Jeg vil gerne lave en OLE-control der loader et txt dokument.Men der er ikke plads nok til teksten (der skal meget).Så vil jeg gerne have en scroll til at køre op og ned i teksten.

Jeg vil gerne lave en OLE-control der loader et txt dokument.Men der er ikke plads nok til teksten (der skal meget).Så vil jeg gerne have en scroll til at køre op og ned i teksten.

Undskyld jeg kom til at trykker to gange!

Jamen, så skal du jo bare bruge en helt standard TMemo control - den har en Scrollbars property, som du kan sætte til at vise f.eks. både horisontal og vertikal scrollbar.

Sig til, hvis jeg har misforstået noget helt!

Undskyld jeg skrav meget forkert.
Jeg vil lave en Memo som loader et fil med navnet kim.txt.Også skal der komme en scroll bar frem så man kan køre op og ned i teksten.Der kommer ingen scroll frem atomatisk ikke delhpi 4

Nej, det gør der heller ikke i Delphi 5 - men der findes, som jeg også skrev før - en ScrollBars property for TMemo. Den kan du sætte til f.eks. ssVertical. Ganske simpelt!

Vil du lave et eksmelpe og sende den til buha@sol.dk

på forhånd tak

Jamen, har du aldrig brugt Delphi før???

I kode vil man skrive:

  Memo1.ScrollBars := ssVertical;

På design time vil man klikke på memo-feltet, åbne property-inspectoren med F11, og sætte ScrollBars property til ssVertical.

Hvis du ikke kan finde ud af det, så kan du sende dit projekt til mig, så skal jeg nok sætte den for dig - det vil jeg da godt gøre for 300 point, som jo forøvrigt er totalt overkill for et spørgsmål af denne lethedsgrad...

Nej ja kan ikke finde ud af delhpi, jeg er lige statet med det for en uge siden.

procedure TForm1.Memo1Change(Sender: TObject);
begin
Skal jeg sætte der ind her?
end;

end.

Kan du også lave en knap som går til form 2?

på forhånd tak!

Du kan med fordel sætte det ind i følgende:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.ScrollBars := ssVertical;
end;

Mht. Form2? Mener du noget i stil med:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show;
end;

eller sådan her:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.ShowModal;
end;

Tak har fundet ud af det med scroll.
Hvad med knappen?
Og det med pointsne er det en af mine venner som er så dum at give 3oo for det.Jeg skal sige til ham at han skal give dig dine points

tusind tak

Knappen står i mit sidste svar...

Nåh, det havde du vist set :-)

Hjælp jeg har et lille problem det med scroll virker kun når man sletter Memo1.Må jeg ikke sende dig mit problem i zip også løser du problemmet og sender det tilbage.

Hvis ja hvad er din email?

tko@miltorb-it.dk