PDA

View Full Version : تغییر فونت و رنگ Tbutton


mohammad amin
پنج شنبه 17 فروردین 1391, 17:13 عصر
سلام

چگونه می توانم (نوع) فونت را برای یک Tbutton تغییر بدهم؟

همچنین

برای تغییر رنگ
سعید صابری
پنج شنبه 17 فروردین 1391, 20:03 عصر
در قسمت خصوصیات button گزینه Font!
Ananas
پنج شنبه 17 فروردین 1391, 20:13 عصر
در قسمت خصوصیات button گزینه Font!
رنگش عوض نمیشه.
mbshareat
جمعه 18 فروردین 1391, 00:58 صبح
سلام به همگی
من یه دکمه طراحی کردم. اگه دوست داشتین بردارین::گیج:
8531085311
mohammad amin
شنبه 19 فروردین 1391, 15:36 عصر
در قسمت خصوصیات button گزینه Font!

نه!!
منظورم این است که مثلا در حین برنامه اگر کاربر روی button کلیک کرد فونت button عوض شود ، اگر b kodak بود b titr شود!!!

لطفا برنامه اش را بدهید (منطورم همان یک خط برنامه است)
Ananas
شنبه 19 فروردین 1391, 17:17 عصر
نه!!
منظورم این است که مثلا در حین برنامه اگر کاربر روی button کلیک کرد فونت button عوض شود ، اگر b kodak بود b titr شود!!!

لطفا برنامه اش را بدهید (منطورم همان یک خط برنامه است)

procedure TForm1.Button1Click(Sender: TObject);
var
btn : TButton;
begin
btn := Sender as TButton;
if fsBold in btn.Font.Style then
btn.Font.Style := btn.Font.Style - [fsBold]
else
btn.Font.Style := btn.Font.Style + [fsBold];
end;
mbshareat
شنبه 19 فروردین 1391, 17:25 عصر
سلام
البته منظور جناب mohammad amin تغییر نام فونت بود:


procedure TForm1.Button1Click(Sender: TObject);
begin
if Button1.Font.Name= 'b kodak' Then
Button1.Font.Name= 'b titr';
end;