Reåbne

Den 21-02-04 19:21 skrev Theis følgende:
-----------------------------------------------------------------------------
???????????

Det forstår jeg ikke noget af.
-----------------------------------------------------------------------------
Du har f.eks en kode der ser sådan ud

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, xpman;

type
  TLogin = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button1Click(Sender: TObject);
  private
   procedure Login;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Login: TLogin;

implementation

uses Unit1;

{$R *.dfm}

procedure TLogin.Button1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key = VK_Return then
begin
 Login;
end;
end;

procedure TLogin.Login;
begin
 if (Edit1.Text = '*****') and (Edit2.Text = '*****') then
  begin
   AdminForm.StatusBar1.Panels[0].Text := 'Din status: Logget ind';
   AdminForm.SQLConnection1.Connected := True;
   Close;
   Edit1.Text := '';
   Edit2.Text := '';
  end
 else
  showmessage('De indtastede oplysninger er forkerte');
  Edit2.Text := '';
end;

procedure TLogin.Button1Click(Sender: TObject);
begin
 Login;
end;

end.

I denne koder er der et sted hvor der står

 
Begin
 login;
end;

Login; linker til en procedure der hedder login, men for at man skal kunne linke til den, skal den ligge under "private"
eks.

  private
   procedure Login;
    { Private declarations }
  public
    { Public declarations }
  end;

Mvh.
Kasper Nielsen

Den 21-02-04 18:18 skrev Theis følgende:
-----------------------------------------------------------------------------
Hej.
Findes der en kode, der får programmet til at begynde fårfra.
Altså vis der bliver lavet nået specielt om i koden, så kan en knap gøre detsom det var da programmet begyndte.
Men en meget lille kode
-----------------------------------------------------------------------------
Du kan f.eks. skrive navnet på en procedure, så starter den proceduren.
(proseduren skal være defineret under "private")

Mvh.
Kasper Nielsen

???????????

Det forstår jeg ikke noget af.

Tak.
Kan du også svare på min anden forum

Den 21-02-04 19:30 skrev Theis følgende:
-----------------------------------------------------------------------------
Tak.
Kan du også svare på min anden forum
-----------------------------------------------------------------------------
Hvad er det for et?

Mvh.
Kasper Nielsen

Har klaret den...
Men jeg har faktisk stadig problemmer på den:

Kan du skrive det på min kode
Her er min Kode. Jeg har skrevet hvor jeg vil have knappen der får alt til at gå forfra:









unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, CheckLst, ExtCtrls, Menus;

type
TForm1 = class(TForm)
Edit7: TEdit;
Panel1: TPanel;
Panel2: TPanel;
Label1: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit8: TEdit;
Panel3: TPanel;
Label2: TLabel;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Label5: TLabel;
Label6: TLabel;
Edit9: TEdit;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Panel4: TPanel;
Panel5: TPanel;
Panel6: TPanel;
Button1: TButton;
Button2: TButton;
Label15: TLabel;
Button3: TButton;
Edit10: TEdit;
CheckListBox1: TCheckListBox;
Label16: TLabel;
Timer1: TTimer;
Timer2: TTimer;
Timer3: TTimer;
Timer4: TTimer;
Timer5: TTimer;
Label17: TLabel;
Label18: TLabel;
MainMenu1: TMainMenu;
Filer1: TMenuItem;
BegyndForfra1: TMenuItem;
Hjlp1: TMenuItem;
Ragler1: TMenuItem;
OmTerninger21: TMenuItem;
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure Timer3Timer(Sender: TObject);
procedure Timer4Timer(Sender: TObject);
procedure BegyndForfra1Click(Sender: TObject);
private
{ Private declarations }
{ Private declarations }
public
{ Public declarations }
end;


var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
randomize;
edit1.text := inttostr(random(6)+1);
edit2.text := inttostr(random(6)+1);
timer2.enabled := true;
edit7.Text := ' Terningerne ruller! ! ! ! !';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.enabled := true;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
var
S1, S2, S3, S4: integer;
begin
timer1.Enabled := false;
S1 := StrToInt(Edit1.Text);
S2 := StrToInt(Edit2.Text);
edit3.Text :=(IntToStr(S1+S2));
S3 := StrToInt(Edit3.Text);
S4 := StrToInt(Edit8.Text);
edit8.text := '';
edit8.Text :=(IntToStr(S3+S4));
timer3.Enabled := true;
timer2.Enabled := false;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
randomize;
edit4.text := inttostr(random(6)+1);
edit5.text := inttostr(random(6)+1);
edit7.text := ' Det er nu computerens tur:';
timer4.enabled := true;
end;

procedure TForm1.Timer4Timer(Sender: TObject);
var
S5, S6, S7, S8: integer;
begin
timer3.enabled := false;
edit7.text := '';
S5 := StrToInt(Edit4.Text);
S6 := StrToInt(Edit5.Text);
edit6.Text :=(IntToStr(S5+S6));
S7 := StrToInt(Edit6.Text);
S8 := StrToInt(Edit9.Text);
edit9.text := '';
edit9.Text :=(IntToStr(S7+S8));
timer4.enabled := false;
end;

procedure TForm1.BegyndForfra1Click(Sender: TObject);
begin
// Her skal du skrive det...
end;

end.

Hvad er det for en fejl du for?

Gør ikke så meget.
Klare mig...

Den 22-02-04 20:04 skrev Theis følgende:
-----------------------------------------------------------------------------
Gør ikke så meget.
Klare mig...
-----------------------------------------------------------------------------
Nå, nu forstår jeg, kan godt gøre det

unit Unit1; 

interface 

uses 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
Dialogs, StdCtrls, CheckLst, ExtCtrls, Menus; 

type 
TForm1 = class(TForm) 
Edit7: TEdit; 
Panel1: TPanel; 
Panel2: TPanel; 
Label1: TLabel; 
Label3: TLabel; 
Label4: TLabel; 
Edit1: TEdit; 
Edit2: TEdit; 
Edit3: TEdit; 
Edit8: TEdit; 
Panel3: TPanel; 
Label2: TLabel; 
Edit4: TEdit; 
Edit5: TEdit; 
Edit6: TEdit; 
Label5: TLabel; 
Label6: TLabel; 
Edit9: TEdit; 
Label7: TLabel; 
Label8: TLabel; 
Label9: TLabel; 
Label10: TLabel; 
Label11: TLabel; 
Label12: TLabel; 
Label13: TLabel; 
Label14: TLabel; 
Panel4: TPanel; 
Panel5: TPanel; 
Panel6: TPanel; 
Button1: TButton; 
Button2: TButton; 
Label15: TLabel; 
Button3: TButton; 
Edit10: TEdit; 
CheckListBox1: TCheckListBox; 
Label16: TLabel; 
Timer1: TTimer; 
Timer2: TTimer; 
Timer3: TTimer; 
Timer4: TTimer; 
Timer5: TTimer; 
Label17: TLabel; 
Label18: TLabel; 
MainMenu1: TMainMenu; 
Filer1: TMenuItem; 
BegyndForfra1: TMenuItem; 
Hjlp1: TMenuItem; 
Ragler1: TMenuItem; 
OmTerninger21: TMenuItem; 
procedure Timer1Timer(Sender: TObject);  
procedure Timer2Timer(Sender: TObject); 
procedure Timer3Timer(Sender: TObject); 
procedure Timer4Timer(Sender: TObject); 
procedure BegyndForfra1Click(Sender: TObject); 
private 
 procedure Button1Click(Sender: TObject);
{ Private declarations } 
public 
{ Public declarations } 
end; 


var 
Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
randomize; 
edit1.text := inttostr(random(6)+1); 
edit2.text := inttostr(random(6)+1); 
timer2.enabled := true; 
edit7.Text := ' Terningerne ruller! ! ! ! !'; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
timer1.enabled := true; 
end; 

procedure TForm1.Timer2Timer(Sender: TObject); 
var 
S1, S2, S3, S4: integer; 
begin 
timer1.Enabled := false; 
S1 := StrToInt(Edit1.Text); 
S2 := StrToInt(Edit2.Text); 
edit3.Text :=(IntToStr(S1+S2)); 
S3 := StrToInt(Edit3.Text); 
S4 := StrToInt(Edit8.Text); 
edit8.text := ''; 
edit8.Text :=(IntToStr(S3+S4)); 
timer3.Enabled := true; 
timer2.Enabled := false; 
end; 

procedure TForm1.Timer3Timer(Sender: TObject); 
begin 
randomize; 
edit4.text := inttostr(random(6)+1); 
edit5.text := inttostr(random(6)+1); 
edit7.text := ' Det er nu computerens tur:'; 
timer4.enabled := true; 
end; 

procedure TForm1.Timer4Timer(Sender: TObject); 
var 
S5, S6, S7, S8: integer; 
begin 
timer3.enabled := false; 
edit7.text := ''; 
S5 := StrToInt(Edit4.Text); 
S6 := StrToInt(Edit5.Text); 
edit6.Text :=(IntToStr(S5+S6)); 
S7 := StrToInt(Edit6.Text); 
S8 := StrToInt(Edit9.Text); 
edit9.text := ''; 
edit9.Text :=(IntToStr(S7+S8)); 
timer4.enabled := false; 
end; 

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

Tror det virker, men hvis det ikke gør så prøv at fjern (Sender: TObject)
i koden:

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

Hvis det stadig ikke virker, så skriv fejlen, så kigger jeg på det

Mvh.
Kasper Nielsen

Fantastisk at du gider at gøre så meget for 2 up.
Prøver det i morgen.

Dog ar jeg ikke brug for det i det pro... du lige har skrevet det i.
Men så kan jeg jo lave det om til et andet pro...