PDA

View Full Version : می خواهم یه ماشین حساب تصویری طراحی کنم...



Tarrah
سه شنبه 26 آبان 1383, 20:58 عصر
سلام
می خواهم یه ماشین حساب تصویری طراحی کنم.یعنی به جای button از تصاویر استفاده کنم.برای این کار یه تصویر بزرگ به عنوان پس زمینه ماشین حساب قرار دادم و روی اون Image هم Image های دیگری قرار دادم.
border style form رو none کردم که موقع runکردن فقط تصویر ماشین حساب بمونه.چون نوار عنوان دیگه قابل رویت نیست برای close va maximize هم عکس تعریف کردم.فقط میمونه یه مشکل:چه طوری می تونم ماشین حساب رو به قسمتهای مختلف desktopحرکت بدم؟یعنی dragکنم؟
فکر میکنم باید در رویداد on mouse down va up اون عکس پس زمینه از دستورات begin drag va end drag استفاده کنم والبته تو یه مقاله انگلیسی نوشته بود باید در Ondragover هم یه تغییراتی بدیم که من متوجه نشدم.
اگه با نوشتن دستورات کمکم کنین خیلی ممنون میشم.
اگه لازم بود برنامه رو هم می فرستم تا دقیقا متوجه بشین :thnx:

1- عنوان سوال اصلاح شد.

2- پست کردن بیش از یکبار هر سوال ممنوع است.

MiRHaDi
سه شنبه 26 آبان 1383, 22:57 عصر
سلام
کتاب 296 برنامه دلفی توش 2 راه هست
یکی با Messageها هست
یکی هم با Drag Drop !
بای

Tarrah
سه شنبه 26 آبان 1383, 23:13 عصر
آخه من الان کتاب از کجا بیارم. :گیج: میشه شما کدش رو بنویسین :thnx:

Delphi KDE
چهارشنبه 27 آبان 1383, 02:18 صبح
این برنامه به قول شما ماشین حساب تصویری با تمام قابلیت هایی که میخواهی رو من قبلا همراه سورس کد دانلود کرده بودم اگر سرچ کنی حتما پیدا میکنی
اگر روی سیستمم پیداش کردم برات اپلود میکنم همینجا( ولی فکر کنم اگر بگردی زودتر از من پیدا میکنی) :mrgreen:
موفق باشی

user
چهارشنبه 27 آبان 1383, 03:21 صبح
برای حرکت کردن فرم یا هر component دیگر کد زیر را باید در رویداد مربوط به mousedown تایپ کنی
const
SC_DRAGMOVE =$f016 ;
begin
Releasecapture;
FORMNAME.Perform(WM_SysCommand,SC_DragMove,0);
End;

Tarrah
چهارشنبه 27 آبان 1383, 09:09 صبح
با تشکر از همه ی دوستان
delphi kde عزیز اگه شما بتونی برام پیدا کنی خیلی ممنون میشم :thnx:
در ضمن من با C builder کار می کنم.کدی رو که user عزیز نوشتن با تغییرات لازم تو برنامه می نویسم $ رو قبول نمی کنه. :(

MiRHaDi
پنج شنبه 28 آبان 1383, 00:49 صبح
سلام
$ یعنی که عبارت جلوش هگزا دسیمال است ! از x0 در C Builder استفاده کن
بای

Delphi KDE
شنبه 30 آبان 1383, 03:00 صبح
همان طور که user نوشته میتونی از این کد هم استفاده کنی
در رویداد OnMouseDown مربوط به فرم فقط این دو خط کد را بنویس بعد مشکل حله !! :mrgreen:


ReleaseCapture;
Form1.Perform(Wm_SysCommand,$F012,0);

Delphi KDE
شنبه 30 آبان 1383, 03:28 صبح
اینم یک حال خفن :wise1:

با تشکر از Farouk Faris
faroukfaris@yahoo.com

Tarrah
پنج شنبه 05 آذر 1383, 22:33 عصر
az hamatoon mamnoonam :thnx:

فریدی
جمعه 06 آذر 1383, 09:56 صبح
برای حرکت دادن یک فرم با یک لیبل که میتونی اون رو بدون کپشن و به اندازه بالای فرمت قرار بدی در On mouse down آن لیبل کد زیر رو قرار بده


Releasecapture;
Perform(WM_SysCommand,SC_Move+1,0);

Tarrah
جمعه 06 آذر 1383, 10:11 صبح
agaye faridy mamnoon az rahnemaitoon :)