يه كد براي Popup menu ميخوام

[Arash_XL7710i_207]

كدي ميخوام در يه جاهايي كليك راست انجام نشه و منو هم باز نشه و يه پيغام بده مثلا در بعضي سايتها و وبلاگها

يه سوال ديگه هم هست:
چجوري ميشه يه ساعت تو برنامه داشته باشيم كه همزمان با ساعت سيستم كار كنه.

[F A R H A D]

سلام
جواب سوال دوم: میتونی ساعت جاری سیستم رو با استفاده از تابع Time بگیری و داخل یه تایمر قرار بدی.
موفق باشی

[Mavix]

با سلام

جوال سوال اول :


procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if Button = mbRight then
ShowMessage('No Click Here.');
;end


اگه میخوای در جای خاصی این عمل صورت گیرد میتونی از X و Y مختصاتش رو بدی.

-----------------------------------------------------------------------------------------------------------------------------

جواب سوال دوم :

از برگه System کمپوننت Timer و از برگه Standard کمپوننت Label رو بذار رو فرم. در رویداد OnTimer کمپوننت Timer1 بنویس :


;(Label1.Caption := TimeToStr(Time

موفق باشین.

[Arash_XL7710i_207]

عاليه ممنونم