Delphi - pomoc, mini gierka.

[Bezel21]

Witam, mam pomoc... otóż próbuje zrobić mini gierkę. Mam pewne kłopoty:
-Jak usunąć z ludka tło...?

Foto:


-Jak zrobić, aby po kliknięciu Gra>nowa, otwierała się aplikacja na nowo/od początku...?

Foto:


-Jak zrobić przezroczyste tło labela, a napis np. biały?

Foto:
Nie ma.

-Jak zrobić, aby po wejsciu ludkiem (ludek to image2) na jakiś label, label znikal i pojawiala się jego treść w edit1?

Oto źródło, jeżeli to coś pomoże:

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, jpeg, ExtCtrls, StdCtrls, Menus;



type

  TForm1 = class(TForm)

    Panel1: TPanel;

    Image2: TImage;

    MainMenu1: TMainMenu;

    File1: TMenuItem;

    Save1: TMenuItem;

    Open1: TMenuItem;

    New1: TMenuItem;

    Image1: TImage;

    procedure FormKeyDown(Sender: TObject; var Key: Word;

      Shift: TShiftState);

    procedure Button1Click(Sender: TObject);

    procedure Save1Click(Sender: TObject);

    procedure Open1Click(Sender: TObject);

        private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

if Key = VK_LEFT then Panel1.left := Panel1.left - 10;

if Key = VK_RIGHT then panel1.left := Panel1.left + 10;

if Key = VK_UP then panel1.top := panel1.top - 10;

if Key = VK_DOWN then panel1.top := panel1.top + 10;

if panel1.Top <= 0 then panel1.Top := 0;

if panel1.Left <= 0 then panel1.Left := 0;

if panel1.Left >= form1.Clientwidth - panel1.Width then panel1.left := form1.Clientwidth - panel1.width;

if panel1.Top >= Form1.ClientHeight - panel1.height then panel1.Top := Form1.ClientHeight - panel1.height;

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

MessageBox(Handle,'Napis','Tytul',MB_OKCANCEL + MB_IconExclamation);

end;



procedure TForm1.Save1Click(Sender: TObject);

begin

close;

end;



procedure TForm1.Open1Click(Sender: TObject);

begin

MessageBox(Handle,'Gra polega na jak najszybszym ułożeniu wyrazu/ów podanych w prawym, górnym rogu gry.','Instrukcja',MB_OK + MB_Iconquestion);

end;



end

 

[milosz0010]

-Jak usunąć z ludka tło...?[/b]

Ustawic rozrzezrzenie, ktore obsluguje przezroczystosc.

-Jak zrobić, aby po kliknięciu Gra>nowa, otwierała się aplikacja na nowo/od początku...?[/b]

Ustawiasz wsyztskie parametry pocztakowe, pozycje itd

-Jak zrobić przezroczyste tło labela, a napis np. biały?[/b]

Wlasciwosci Obejct inspectora

Font, Color itp

-Jak zrobić, aby po wejsciu ludkiem (ludek to image2) na jakiś label, label znikal i pojawiala się jego treść w edit1?[/b]

if (pozycja_ludka = pozycja_labela) then

begin

label1.visible:=false;

edit1.text:=label1.caption;

Pozdro

 

[PaPaDo]

Co do przeźroczystości ustaw w formie:

Form.TransparentColor:=True;

Form.TransparentColorValue:=clWindow;

TransparentColorValue - musi być dokładnie ten sam kolor co ma ten koleś w tle

 

[Bezel21]

Dzieki, ludzie!
Zaraz przetestuje ;]
Miłosz masz plusika

 

[darkhaker]

Najlepiej to polecam Omege - jest super na niej naprawdę ztobiłem fajną gierkę (czy.aplikacje) i bardzo ją chwale

To odemnie