formun sonunu nasıl belirleriz

[true_false]

selam ben acemi delphiciniz
sorum:
formun sağ tarafını yani uzunluğunu belirtmek örneğin butonun üstüne geldiğimiz zaman (onmouseover) leftini arttırarak veya azaltarak formun üzerinde dolaşması, yalnız şöyle bir sorun var buton devamlı olarak formun üzerinde sağa doğru kayıyor yani formun sonunu belirtemiyorum
şöle bir ip ucu aldım formun leftinden width'ini çıkarttığımız zaman bulunurmuş ama bana kod lazım.

not:sadece deneme amaçlıdır önemli işleri olanlar cevaplamayabilir ama bu acemi kardeşinize yardım etmek isterseniz amenna şimdiden teşekkürler.[/url][/code]

[muskut]

Cevap değil ama yazıyorum

Lütfen mesaj yazdıktan sonra mesajınızı göndermeden dönüp bir kez okuyalım. Çünkü bazen cümleler arasında o kadar çok kopukluk oluyor ki, anlamak çok zorlaşıyor. Ne yalan söyliyim ben senin sorununu anlayamadım Delphide acemi olabilirsin ama duygularını ifade etmede acemi olmadığına eminim

kolay gelsin.

[webaytek]

muskut + 1

[mege]

Kod: Tümünü seç

.............
var
  Form1: TForm1;
  yon :boolean;
implementation

{$R *.DFM}

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if yon then
    button1.left:= button1.left+1
  else
    button1.left:= button1.left-1;

if (button1.left + button1.width) > form1.width then
  yon:= False
else if button1.left  < 0 then
  yon:= TRUE;

end;

[Arifceylan28]

Eğer yalnız sağa doğru gitmesini istemiyorsanız formun sınırları içinde butonun leftine ve topuna rasgele sayılar ürettirin.Random komutunu kullanın yani.Kolay gelsin.

[mege]

hım ben bunu şurda kullanabilirm

Kod: Tümünü seç

button1.caption := 'Elemanlara zam yap butonu';

[Arifceylan28]

hım ben bunu şurda kullanabilirm
Kod:
button1.caption := 'Elemanlara zam yap butonu';

Bence "satılıcak mallara zam yaptır" butonuna kullanın.Böylece alışveriş yerlerinde zamları unutalım

[Arifceylan28]

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
a,b:integer;//*****"Pardon a ve b değişkenlerine gerek yok.Yanlışlık oldu. "
begin
randomize;
Button1.Left:=random(form1.width-button1.width);
button1.Top:=random(form1.height-button1.height);
end;

Bu kodda butonu yalnız sağa ve sola değil formun içinde dolaştırıyor.

Freeman35 ekledi
//*****"Pardon a ve b değişkenlerine gerek yok.Yanlışlık oldu. " bir mesaj olark gönderilmiş, ben bunu sildim çünkü gereksiz mesaj fazlalığı, kendi yazdığınız mesajları edit, yani değiştirebiliyorsunuz. Biraz daha dikkak

Kolay gele