Informatika

Další program bude opět taková malá “legrácka”. Po spuštění programu se v levé části formuláře objeví tlačítko s nápisem “Konec”. Jakmile však uživatel přesune myš nad tlačítko, to zmizí a objeví se na pravé straně okna. Přesuneme-li na něj kurzor myší, opět zmizí a je znovu vlevo.
Rozbor programu:

1. Vytvořte si složku (adresář), do kterého budeme ukládat všechny soubory projektu.
2. V menu File vyberte položku New Application nová aplikace. Vytvoříte nový projekt.
3. Pojmenujte formulář FrmHlavni. Upravte jeho velikost. Nastavte vlastnost Caption na text “Legrácka”.
4. Umístěte na plochu formuláře vlevo komponentu button a pojmenujte ji BtnLeve. Vlastnost Caption nastavte na text “Konec”.
5. Umístěte na plochu formuláře vpravo komponentu button a pojmenujte ji BtnPrave. Vlastnost Caption nastavte na text “Konec”. Vlastnost Visible nastavte na hodnotu true.
6. U komponenty BtnLeve vyberte událost OnClick a dopište kód. Nejprve zmizení komponenty BtnLeve a pak objevení komponenty BtnPrave.
BtnLeve.Visible:=false; BtnPrave.Visible:=true;
7. U komponenty BtnPrave rovněž ošetřete reakci na událost OnClick.
BtnPrave.Visible:=false; BtnLeve.Visible:=true;
8. Uložte všechny soubory do připravené složky a spusťte program.

Soubor Project3.dpr

program Project3;

uses

Forms,

Unit1 in ‘Unit1.pas’ {FrmHlavni};

{$R *.res}

begin

Application.Initialize; Application.CreateForm(

TFrmHlavni, FrmHlavni); Application.Run;

end.
Soubor Unit1.pas

// Příklady v Delphi

// odladěno v Borland Delphi 6

unit Unit1;

interface

uses

32

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

Dialogs, StdCtrls;

type

TFrmHlavni = class(TForm)

BtnLeve: TButton; BtnPrave: TButton;

procedure BtnLeveMouseMove(

Sender: TObject; Shift: TShiftState;

X,Y: Integer); procedure BtnPraveMouseMove(Sender: TObject;

Shift: TShiftState;

X,Y: Integer);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FrmHlavni: TFrmHlavni;

implementation

{$R *.dfm}

procedure TFrmHlavni.BtnLeveMouseMove(Sender: TObject;

Shift:TShiftState;X, Y: Integer);

begin

BtnLeve.Visible:=false; BtnPrave.Visible:=true;

end;

procedure TFrmHlavni.BtnPraveMouseMove(Sender: TObject;

Shift: TShiftState;X, Y: Integer);

begin

BtnLeve.Visible:=true; BtnPrave.Visible:=

false;

end;

end.

Časté chyby