Ładny brzuch
Pomocy!!!
Jeszcze raczkuje w tych temataqch i mam problem.
Pisze pierwszy program jaki by w Delpchi w pierwszym nr eksperta.
Nie wiem czemu ale nie pojawia mi si procedura Ttest.FormCreate(pod tym mam pona wpisa pytania. samemu jak wpisuje procedure to wyskakuje mi masa bdw.
Jak kto wie co naley z tym zrobi to prosze o pomoc.
Viper
Moe nieco wiecej szczegolow, najlepiej wklej zrodlo, bedzie atwiej pomc :D
Pozdro.
-------------------------------
Zlorzeczenia to jedyny jezyk rozumiany przez wszystkich programistow.
-------
GG: 4206396
cytat:x_r_o_m napisa:
Moe nieco wiecej szczegolow, najlepiej wklej zrodlo, bedzie atwiej pomc :D
Pozdro.
-------------------------------
Zlorzeczenia to jedyny jezyk rozumiany przez wszystkich programistow.
-------
GG: 4206396
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Menus, jpeg;
type
TTest = class(TForm)
panelpytanie: TPanel;
panelodpoowiedz: TPanel;
panelstatystyka: TPanel;
tekstPytanie: TLabel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
tekstLiczbaPoprawnych: TLabel;
tekstLiczbaNiepoprawnych: TLabel;
tekstLiczbaPytan: TLabel;
radioOdpowiedz1: TRadioButton;
radioOdpowiedz2: TRadioButton;
radioOdpowiedz3: TRadioButton;
przyciskOdpowiedz: TButton;
MainMenu1: TMainMenu;
Gra1: TMenuItem;
Odpowiedz1: TMenuItem;
Konec1: TMenuItem;
Autor1: TMenuItem;
Image1: TImage;
procedure Konec1Click(Sender: TObject);
procedure Autor1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
const liczbaPytan = 10;
var
Test: TTest;
pytania: array [1..liczbaPytan] of string;
odpowiedzi1: array[1..liczbaPytan] of string;
odpowiedzi2: array[1..liczbaPytan] of string;
odpowiedzi3: array[1..liczbaPytan] of string;
poprawne: array[1..liczbaPytan] of integer
aktualnePytanie:integer;
liczbaPoprawnych:integer;
implementation
{$R *.dfm}
procedure TTest.Konec1Click(Sender: TObject);
begin
close;
end;
procedure TTest.Autor1Click(Sender: TObject);
begin
ShowMessage ('Autorem tego programu jest Micha Wasiukiewicz');
end;
end.
Viper
cytat:Viper_pc napisa:
Pomocy!!!
Jeszcze raczkuje w tych temataqch i mam problem.
Pisze pierwszy program jaki by w Delpchi w pierwszym nr eksperta.
Nie wiem czemu ale nie pojawia mi si procedura Ttest.FormCreate(pod tym mam pona wpisa pytania. samemu jak wpisuje procedure to wyskakuje mi masa bdw.
Jak kto wie co naley z tym zrobi to prosze o pomoc.
nie wiem czy o to ci chodzi ale sprobuj tak:
zaznacz forme
przejdz do object inspektora
kliknij zakladne zdarzenia(events)
i tam kliknij dwa razy na onCreate
bedziesz mial wtedy swoja procedure:)
pozdro:)
GG: 4596137
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Jeszcze raczkuje w tych temataqch i mam problem.
Pisze pierwszy program jaki by w Delpchi w pierwszym nr eksperta.
Nie wiem czemu ale nie pojawia mi si procedura Ttest.FormCreate(pod tym mam pona wpisa pytania. samemu jak wpisuje procedure to wyskakuje mi masa bdw.
Jak kto wie co naley z tym zrobi to prosze o pomoc.
Viper
Moe nieco wiecej szczegolow, najlepiej wklej zrodlo, bedzie atwiej pomc :D
Pozdro.
-------------------------------
Zlorzeczenia to jedyny jezyk rozumiany przez wszystkich programistow.
-------
GG: 4206396
cytat:x_r_o_m napisa:
Moe nieco wiecej szczegolow, najlepiej wklej zrodlo, bedzie atwiej pomc :D
Pozdro.
-------------------------------
Zlorzeczenia to jedyny jezyk rozumiany przez wszystkich programistow.
-------
GG: 4206396
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Menus, jpeg;
type
TTest = class(TForm)
panelpytanie: TPanel;
panelodpoowiedz: TPanel;
panelstatystyka: TPanel;
tekstPytanie: TLabel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
tekstLiczbaPoprawnych: TLabel;
tekstLiczbaNiepoprawnych: TLabel;
tekstLiczbaPytan: TLabel;
radioOdpowiedz1: TRadioButton;
radioOdpowiedz2: TRadioButton;
radioOdpowiedz3: TRadioButton;
przyciskOdpowiedz: TButton;
MainMenu1: TMainMenu;
Gra1: TMenuItem;
Odpowiedz1: TMenuItem;
Konec1: TMenuItem;
Autor1: TMenuItem;
Image1: TImage;
procedure Konec1Click(Sender: TObject);
procedure Autor1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
const liczbaPytan = 10;
var
Test: TTest;
pytania: array [1..liczbaPytan] of string;
odpowiedzi1: array[1..liczbaPytan] of string;
odpowiedzi2: array[1..liczbaPytan] of string;
odpowiedzi3: array[1..liczbaPytan] of string;
poprawne: array[1..liczbaPytan] of integer
aktualnePytanie:integer;
liczbaPoprawnych:integer;
implementation
{$R *.dfm}
procedure TTest.Konec1Click(Sender: TObject);
begin
close;
end;
procedure TTest.Autor1Click(Sender: TObject);
begin
ShowMessage ('Autorem tego programu jest Micha Wasiukiewicz');
end;
end.
Viper
cytat:Viper_pc napisa:
Pomocy!!!
Jeszcze raczkuje w tych temataqch i mam problem.
Pisze pierwszy program jaki by w Delpchi w pierwszym nr eksperta.
Nie wiem czemu ale nie pojawia mi si procedura Ttest.FormCreate(pod tym mam pona wpisa pytania. samemu jak wpisuje procedure to wyskakuje mi masa bdw.
Jak kto wie co naley z tym zrobi to prosze o pomoc.
nie wiem czy o to ci chodzi ale sprobuj tak:
zaznacz forme
przejdz do object inspektora
kliknij zakladne zdarzenia(events)
i tam kliknij dwa razy na onCreate
bedziesz mial wtedy swoja procedure:)
pozdro:)
GG: 4596137