05. februar 2002 - 14:34
Der er
9 kommentarer og 1 løsning
Komponenten Tpanel er den ikke ligesom "Writeln" som i Pascal??
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Tal : TEdit; {eks. = 20} Tal2 : TEdit; {eks. = 40} Vis_tal : TPanel; Vis_Tal2 : TPanel; Vis_Tekst : TPanel; procedure Tal2Change(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Tal2Change(Sender: TObject); BEGIN Vis.Caption inttostr(Tal+Tal2); {= 60} Vis_tal.Caption { Hvordan få jeg det indtast tal frem på skærmen} { fra --- Tal : TEdit; ---} Vis_tal2.Caption { Hvordan få jeg det indtast tal frem på skærmen} { fra --- Tal2 : TEdit; ---} Vis_Tekst.Caption { kan men skrive en tekst her} { ligesom med Writeln ('Jeg gå en tur');} END; end.
Annonceindlæg tema
Offentlig digitalisering
Fra effektivisering til digital suverænitet. Hvordan skaber det offentlige en digital fremtid med AI, sikkerhed og kontrol i centrum?
05. februar 2002 - 14:42
#1
Hvis du vil havde flere liner skal du nok kigge på en TMemo MyMemo.Lines.Add('Hej du'); MyMemo.Lines.Add('Hest !'); MyMemo.Lines.Add('Hest igen'); /Martin
05. februar 2002 - 14:58
#2
Hej Martin! jeg ville bare vide hvad men skal skrive efter Vis_Tekst.Caption { hvis men ville se en tal Streng} { eller hvis men ville se en Text Streng} ligesom i gamle dage hvor men skrev : Print A$ Print A Hilsen Martin
05. februar 2002 - 15:05
#3
Har du tallet liggende i en TEdit box ? Så gør du sådan her Vis_tal2.Caption := Edit1.Text; hvis det er en integer værdi: Vis_tal2.Caption := IntToStr(47);
05. februar 2002 - 15:08
#4
Det er en fejl at betragte et Panel komponent på linie med Writeln, du skal betragte et panel som et område hvorpå du sætter forskellige komponenter f.eks. Editboks, labels, memoboks osv. Det som kommer en writeln nærmest er en memoboks hvortil du adder linier, se Martinlinds eks ovenover
05. februar 2002 - 15:57
#5
Hej morten_s!! OK Vis_tal2.Caption := Edit1.Text; jo jeg har tallet liggende i en TEdit box det er måske en godt?? ------------------------------ Tal : TEdit; {=60} Tal2 : TEdit; {=20} Vis_tal : TPanel; ---------------------------- Vis_tal.Caption := Tal.Text+'+'+Tal2.Text+'='; hvordan kan jeg få 'tal' og 'tal2' til en værdi?? inttostr(Tal+Tal2) {dur ikke} så det komme til at se sådan ud!!! 60+20=80 Du kan lige få min E-m MBG@get2net.dk Hilsen Martin
05. februar 2002 - 16:01
#6
Vis_tal.Caption := inttostr(strtoint(Tal.Text) + strtoint(Tal2.Text)); Stoney
05. februar 2002 - 16:11
#7
Jeg har sendt et lille eksempel til dig
05. februar 2002 - 16:12
#8
ok så køre den!!! tak for hjælp!!!!!
05. februar 2002 - 16:13
#9
morten_s>> Skal vi ikke dele disse points ? Stoney
05. februar 2002 - 16:17
#10
gerne for min skyld, har lige knoklet et eksempel sammen til manden
Kurser inden for grundlæggende programmering