Hej. Har før skrevet en forum. Men der var det får ingen up.
Nu har jeg valgt at gøre det for 100 up.
Her er brevet som jeg har lavet
(
Hej Udviklere.
Jeg er en begynder på 13 år, som hygger mig med det bedste programeringsprogram. Jeg har godt nok en masse spørsmål men her er et som jeg virkelig har brug for:
Jeg kunne godt tænke mig at lave et program som gør at der er et ur i hjørnet + en editbox og en knap. Uret vise jo tiden, og editboxen skal man skrive en tid. Når tiden er kommet på uret vil windows lukke.
Dette program har jeg lavet men nu kommer den udbyggelse jeg vil sprøre om:
Jeg vil gerne lave endu en editbox. I denne skal den begynde at tælle ned tidspunktet vor den lukke pc'en. Udover det vil jeg også få en label's tæks til at skifte til: Computeren lukker om 5 min, for eksempel.
Kan i hjælpe mig.
Min kode for helle programmet er:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, ExtCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
Timer1: TTimer;
MaskEdit1: TMaskEdit;
Label1: TLabel;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
var
S: string;
begin
S := Timetostr(time);
panel1.Caption := S;
form1.Caption := S;
application.title := S;
if s = MaskEdit1.text then
ExitWindowsEx(EWX_POWEROFF, 0);
Label1.Top := Label1.Top - 4;
end;
end.
Må jeg også spørger et dumt spørgsmål.
Hvordan laver man en ny linie i en label???????
På forhånd tak.
Theis Frederiksen Hinz.
Theisf@stofanet.dk
Ps. Du skal skrive det på en nooby måde så jeg fårstår det.
Og det skal også virke: