Button رنگی [بایگانی] - برنامه نویس

masoode

دوشنبه 21 اردیبهشت 1383, 09:13 صبح

چگونه می توان رنگ کلید ها را تغییر داد. البته نمی خواهم از Image یا کامپوننت های غیر از VCL استفاده کنم. اصلا آیا چنین چیزی در دلفی هست؟ در VB که خیلی را این کار انجام می شود.

Mohammad S

دوشنبه 21 اردیبهشت 1383, 12:48 عصر

کامپوننتهایی هستند که دکمه های رنگی و جالبی دارند و فکر نمی کنم مشکلی داشته باشند. شما به راحتی می توانید از آنها استفاده کنید. :wink:

JavanSoft

دوشنبه 21 اردیبهشت 1383, 12:50 عصر

Button را فکر نمی کنم بتوان ... Bitbtn هم فقط در مورد caption می توان انجام داد ...اما Speed Buttonرا با Transparent کردن می توان برنگ زیرین در اورد
فکر می کنم در مورد هر سه با توابع Canvasبتوان کاری را انجام داد اما مدام باید کنترل شوند

آناهیتا

دوشنبه 21 اردیبهشت 1383, 13:05 عصر

با سلام ، برای این سئوال جوابهای سلیقه ای زیادی وجود دارند که در اینجا یکی از آنها را هم من می نویسم.

استفاده از TPANEL موجود در تب استاندارد . این کامپوننت قابلیت تغییر رنگ دارد . کد زیر برای تغییر شکل خود پنل وقتی که روی آن FOCUS انجام می شود:

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
panel1.BorderStyle:=bssingle;
PANEL1.BevelInner:=BVRAISED;
end;

که البته می توان BORDERSTYLE و BEVELINNER را به دلخواه تغییر داد.

و کد دوم برای خود فرم جهت بازگرداندن پنل به شکل اولیه :

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
IF panel1.BorderStyle=bssingle THEN BEGIN
panel1.BorderStyle:=bsNONE;
PANEL1.BevelInner:=BVNONE;
END;
end;

و در نهایت کلیک به شکل زیر

procedure TForm1.Panel1Click(Sender: TObject);
begin
SHOWMESSAGE('CLICK')
end;

امیدوارم مفید باشد.

moradi_am

دوشنبه 21 اردیبهشت 1383, 15:20 عصر

با خاصیت glyph که bitbtn و speedbtn دارند میتوانید یک تصویر را برای دگمه انتخاب کنید .

omidsm

سه شنبه 22 اردیبهشت 1383, 10:33 صبح

با تغییرات کوچکی در سورس می توان این کار را انجام داد 8)

masoode

پنج شنبه 24 اردیبهشت 1383, 10:03 صبح

تشکر از جواب هایتان. کارم راه افتاد :flower: