Mesajı Büyük Yazmak

[ozcank]

Arkadaşlar

ShowMessage('Bu Ay (5 Mikron Sediment) Bakım yapılması gereken müşteriler mevcuttur !!! ');

bu mesajın puntolarını daha büyük ve renkli yazdırabilirmiyim?

[tuanna]

amacın mesaj vermek se bu standart mesaj veriri kendine bir mesaj formu yap ve devamlı ona değişkenler gönder!

[ozcank]

elinde hiç kod varmı örnek gönderirsen sevinirim.

[karflake]

Renkler aşağıdaki şekilde ayarlanabiliyor, ama yazı tipi büyüklüğü nasıl değiştiriliyor, bilmiyorum.

Kod: Tümünü seç

with CreateMessageDialog('Bu program karflake tarafından hazırlanmıştır.'+#13+#10+'İyi günlerde kullanmanız dileğiyle',mtinformation, [mbOk]) do
  try
    Color := clred;
    font.Color:=clyellow;
    ShowModal;
  finally
    Free;
  end;

[rsimsek]

Gerisini de ben tamamlıyayım bari

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
  with CreateMessageDialog('Bu mesaj da ''rsimsek'' tarafından 12 punto ile yazılmıştır'#10#13
                   +'İyi günlerde kullanmanız dileğiyle'#10#10#13, mtinformation, [mbOk]) do
  try
    Color := clSkyBlue;
    Font.Color:=clNavy;
    Font.Size := 12;
    Font.Style := [fsItalic]; // hatta eğik/Italic
    ShowModal;
  finally
    Free;
  end;
end;