Shape Kullanimi.

[saracoza]

Şimdi sizlere form üzerindeki bir nesnenin nasil hareket ettirileceği,
şekil almasi ve hizi hakkında bilgilendiriceğim;
Formunuza bir adet shape bir adet timer bir adet buton koyunuz;
aşağıdaki kodu gerekli yerlere yapiştiriniz.

---------------
Kod:
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Shape1: TShape;
Timer1: TTimer;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

var
yon:Boolean; //Global değişken
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Interval:=100;//hizini ayarlayabilirsiniz 50,25,10 kullanarak.
Timer1.Enabled:=false;
Shape1.Shape:=stCircle;//Circle ing.de daire demek square kare demek deneme yapabilirsiniz.
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
sayi:Integer;
begin
sayi:=Shape1.Left;
if yon=false Then
begin
if sayi>=Form1.ClientWidth Then
yon:=true //sola dön
else
Shape1.Left:=sayi+10;//10 birim sağa
end
else
begin
if sayi<=0 Then
yon:=false //sağa dön
else
Shape1.Left:=sayi-10; //10 birim sola
end;
end;
end.

---------------
formun properties ini tıklayıp ordan color a varirsaniz formunuzu değişik rengelendirebilirsiniz.
Shape nin properties ini tıklayıp Brushu - yaparsaniz size stil ve renkler acilacaktir.
şeklinize uygulayabilir değişik bir görünüm sağlayabilirsiniz.
size // den sonra bazi bilgiler verdim kendi mantiğiniz ile
değişiklikler yapip bilginizi geliştirin,çalışmalarınızda başarılar
ALINTIDIR.

[Caylaq]

paylaşım için tşkler