Form1 deki butonun onclick olayını form2 de çağırmak

[uğur alkan]

Form1 üzerinde bi buton var ve bunun onclik olayını form2 üzerindeki başka bir butondan çağırmak istiyorum bu mümkünmü mümkünse nasıl yapabilirim. Kolay Gelsin

[sadettinpolat]

form2 deki butonun onclick olayina

Kod: Tümünü seç

form1.button1.click 

yazabilirsiniz...

[uğur alkan]

clik olayı çalışıyor fakat OnMouseDown olayında actual parametre hatası veriyor onu nasıl düzeltebilirim.

Cevabınız için çok teşekkür ederim.

[sadettinpolat]

onmousedown olayini nasil calistirmaya calisiyorsun ?

[uğur alkan]

procedure TForm1.BitBtn35MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
buton1_d:=10;
MANUAL:=YSAG+XSOL;
MANUAL_AXIS();
end;

bu çagırmak istediğim prosedür


procedure TForm12.BitBtn35MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Form1.BitBtn35.OnMouseDown;
end;

bu şekilde çağırmayı denedim.

[CiTiZEN]

hocam çalıştırmak istediğiniz butonun mousedown olayından çalıştırmak istediğiniz procedurun bağlı olduğu mousedown olayını seçseniz
örneğin
button1.mousedown
button2.show; ise
button2 nin mousedown olayını object inspector penceresindekı mousedown eventinden seçebilirsiniz (umarım yanlış anlamamışımdır eger anlatamamışsam affola isterseniz fotograflarını gonderebilirim örnek teşkil etmesi açısından)

[sadettinpolat]

ugur; oncelikle metod nedir , property nedir , ctrl+space yazinca karsina cikan listede ne nedir ne degildir iyice ogrenmen lazim.

Form1.BitBtn35.OnMouseDown dedigin yerde OnMouseDown bir ozelliktir bir metod degil. bu nedenle Form1.BitBtn35.OnMouseDown seklinde bir cagirma islemi olmaz cunku ozelliklere sadece deger atayabilirsin. OnMouseDown ozelligine ise buton uzerinde bu olay gerceklestigi vakit calismasini istedigin metodun adini yazarsin.

Form1.BitBtn35.OnMouseDown := BitBtn35MouseDown;

gibi

burda OnMouseDown ozellik adi BitBtn35MouseDown ise bu ozellige atadigin metottur.

yani eger sen mousedown olayini simule etmek icin BitBtn35MouseDown metodunu cagirmalisin. tabi gerekli parametreleri vererek.

aldigi parametreler bu sekilde imis.
BitBtn35MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);

sen bunu su sekilde cagirabilirsin.

BitBtn35MouseDown(nil, nil, nil, 0, 0);

parametreleri metod icerisinde kullaniyorsan gecerli degerler ataman gerekir. benim gibi nil gecmek hataya neden olabilir.

[uğur alkan]

Sadettin Hocam öncelikle teşekkür ederim, Mikroişlemci ve denetleyici tabanlı programlarda özellikle asm de çok iyiyimdir. Ancak delphi bir deniz ve ben sayenizde delphi üzerinde bişeyleri başarabiliyorum.

Tekrar çok teşekkürler

[sadettinpolat]

delphi ile ilgili olarak dogru yerdesiniz.
basimiz sikistikca bizde sizin uzmanlik alaninizdan faydalaniriz

[Baris]

form1.Button1Click(self);